asked on
<%
' Functions
Function GetURL(str_URL)
Set obj_XMLHTTP = Server.CreateObject ("MSXML2.ServerXMLHTTP.3.0")
obj_XMLHTTP.Open "GET", str_URL, False, "", ""
obj_XMLHTTP.Send()
While obj_XMLHTTP.readyState <> 4
obj_XMLHTTP.waitForResponse(8000)
Wend
If Err.Number = 0 Then
' Response.Write("Status = " & obj_XMLHTTP.Status & "<br>")
If obj_XMLHTTP.Status = 200 Then
str_GetURL = obj_XMLHTTP.ResponseText
Else
str_GetURL = "Bad URL"
End If
Else
str_GetURL = "Bad URL"
End If
Set obj_XMLHTTP = Nothing
GetURL = str_GetURL
End Function
%>
<%
str_URL = "http://www.legacyhousingltd.com/consignment/RFID/alertlist.csv"
str_Text = GetURL(str_URL)
%>
<%
ary_Text = Split(str_Text,vblf)
For int_Counter = 0 TO UBound(ary_Text)
Response.Write("[Line " & int_Counter & "] " & ary_Text(int_Counter) & "<br>")
Next
%>