<% '############################################### 'Scripting by Peter Benjaminson 'http://peter.benjaminson.com 'peter [AT] benjaminson [DOT] com ' 'The origins of the ICQ script idea comes from Rasmus Andersson 'Contact info - http://rasmusandersson.com - rasmus [AT] flajm [DOT] com '############################################### '############################################### 'The script for LunarStorm status '############################################### Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", "http://www.lunarstorm.se/usr/usr_presentation.asp?userid={FAA88B2D-97AE-494B-9D5D-45A8FB866639}", False objXMLHTTP.Send Lunar = objXMLHTTP.ResponseText Set objXMLHTTP = Nothing Set objRegExp = New regexp objRegExp.Global = false objRegExp.IgnoreCase = true objRegExp.Pattern = "Online" Set Lunar = objRegExp.Execute(Lunar) Lunar = Lunar.Count If Lunar >= "1" Then Lunar = "Online" Else Lunar = "Offline" End If Response.Write Lunar '############################################### 'The script for ICQ status '############################################### UIN = 64686818 Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") objXMLHTTP.Open "GET", "http://web.icq.com/whitepages/online?icq="& UIN &"&img=1", False objXMLHTTP.Send BtLen = LenB(objXMLHTTP.ResponseBody) Set objXMLHTTP = Nothing Select Case BtLen Case 446 ICQ = "Online" Case 475 ICQ = "Offline" Case 1278 ICQ = "Disabled" Case Else ICQ = "Unknown" End Select Response.Write ICQ %>