I'm going to post my huge code snippet. If I only use the top it works, if i use # 2 or #3 it times out after a few minutes. Help
<%
'Response.Expires = 0
'Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP"

' You can use a IP address here too
'xmlHttp.open "GET", "
false
'xmlHttp.send()
'If(xmlHttp.status=200) then
'Response.Write "<font size=4>" & "DesignPeak Webserver 2" & " " & "<IMG SRC=../images/live2.gif>"
'Else
'Response.Write "<font size=4>" & "DesignPeak Webserver 2" & " " & "<IMG SRC=../images/dead2.gif>"
'End If
'GetCode = xmlHttp.ResponseText
'Set xmlHttp = Nothing
%>
<%
'Response.Expires = 1
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP"

'You can use a IP address here too
'xmlHttp.open "GET", "
false
'xmlHttp.send()
'If(xmlHttp.status=200) then
'Response.Write "<font size=4>" & "DesignPeak Webserver 1" & " " & "<IMG SRC=../images/live2.gif>"
'Else
'Response.Write "<font size=4>" & "DesignPeak Webserver 1" & " " & "<IMG SRC=../images/dead2.gif>"
'End If
'GetCode = xmlHttp.ResponseText
'Set xmlHttp = Nothing
%>
<%
'Response.Expires = 1
'Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP"

'You can use a IP address here too
'xmlHttp.open "GET", "
false
'xmlHttp.send()
'If(xmlHttp.status=200) then
'Response.Write "<font size=4>" & "DesignPeak Webserver 3" & " " & "<IMG SRC=../images/live2.gif>"
'Else
'Response.Write "<font size=4>" & "DesignPeak Webserver 3" & " " & "<IMG SRC=../images/dead2.gif>"
'End If
'GetCode = xmlHttp.ResponseText
'Set xmlHttp = Nothing
'%>