<%@ Language=VBScript %>
MobileViews.com Pocket PC Newsgroup FAQ List
<%
Dim DoubleQuotes
DoubleQuotes = chr(34)
Function writeBR()
Response.Write(" ")
End Function
Function writeItalics(textString)
Response.Write("")
Response.Write(textString)
Response.Write("")
End Function
Function writeBold(textString)
Response.Write("")
Response.Write(textString)
Response.Write("")
End Function
Function writeColor(textColor, textString)
Response.Write("")
Response.Write(textString)
Response.Write("")
End Function
'Main Function
function displayPocketPCFAQList()
Const nWebLinks = 1 ' Max number of web links in commentary
Dim xmlDoc, objRootElement, numRecords, i
Dim sRecord, recDate, recTitle, recCommentary, recCommentary2
Dim recArrayWebLink(3)
Dim recArrayWebURL(3)
Dim recImage1, recImage1Caption
Dim previousCategory
' Instantiate the XML Processor
set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
' Have the processor validate the document
xmlDoc.validateOnParse=True
' Load the XML document
xmlDoc.load(Server.MapPath("pocketpcfaq.XML"))
' Set the document element
Set objRootElement = xmlDoc.documentElement
' Force the file to load synchronously (all at once)
xmlDoc.async = false
'Response.Write "Number of MeetingNotes Records = "
'Response.Write objRootElement.childnodes.length
'Response.Write ""
previousCategory = "" 'init string
For i = 0 to objRootElement.childNodes.length - 1
recCategory = objRootElement.childNodes(i).firstChild.text
recQ = objRootElement.childNodes(i).childNodes(1).text
recA = objRootElement.childNodes(i).childNodes(2).text
'recURL = objRootElement.childNodes(i).childNodes(3).text
' dump the weblinks text & URLs into the arrays
For j=0 to nWebLinks-1
recArrayWebURL(j) = objRootElement.childNodes(i).childNodes(3+j*2).text
recArrayWebLink(j) = objRootElement.childNodes(i).childNodes(3+j*2+1).text
Next ' For j
recRefNum = objRootElement.childNodes(i).lastChild.text
if previousCategory <> recCategory then
Response.write "
"
previousCategory = recCategory
end if
Response.Write ""
Response.Write recQ
Response.Write ""
writeBR
Next 'i loop
' destroy the COM object when finished
Set xmlDoc = nothing
end function 'displayPocketPCFAQList()
%>
