<%
Sub Index_HTTP(theURI,amount)
Dim zobjXmlHttp,zobjXml,zobjXmlNode
Set zobjXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
'-- grabs the xml file from remote server --
zobjXmlHttp.Open "GET", theURI, False 'opens connection
zobjXmlHttp.Send 'sends request, grabs the info
'-- load the grabbed xml into parser --
Set zobjXml = Server.CreateObject("Microsoft.XMLDOM")
zobjXml.Load zobjXmlHttp.responseXML
Set zobjXmlHttp = Nothing 'get rid of the connection object
'-- display stuff --
Dim i, ii, targetUrl
ii = (zobjXml.documentElement.childNodes.Length -1)
If amount > 0 And ii > amount Then
ii = amount 'restricts amount displayed
End If
targetUrl = zobjXml.documentElement.childNodes(0).text
For i = 1 To ii
Set zobjXmlNode = zobjXml.documentElement.childNodes(i)
Response.Write "" & zDate("%d%s %n, %y",zobjXmlNode.childNodes(1).text) & " - " & zobjXmlNode.childNodes(2).text & "
"
Set zobjXmlNode = Nothing
Next
Set zobjXml = Nothing
End Sub
%>