<%
Dim objFile
Dim sURL
Dim sUIN
Dim sSizeofFile
Dim sStatus

sUIN = "123456"


sURL = "http://web.icq.com/whitepages/online?icq=" & sUIN & "&img=4"
Set objFile = Server.CreateObject ("Microsoft.XMLHTTP")
objFile.open "GET", sURL, False
objFile.send
sSizeofFile = objFile.getResponseHeader("Content-Length")

'Clean up
Set objFile = Nothing

Select Case sSizeofFile
Case 1216
sStatus = "Disabled"
Case 4334
sStatus = "Online"'
Case 1801
sStatus = "Offline"'
End Select

response.write sStatus

%>