Är det någon som vet hur man kan kolla att en viss server är online eller inte?

Tänkte mig att jag ska ha en länk till en extern hemsida...
Men vill kolla huruvida den går att nå eller inte. Och beroende på det ska där vara en text som säger att länken är online resp. offline....


Hoppas att ni förstår...

MVH, Torsten.

Följande fungerade bra för mig.

<code>

<%

Function GetResult(urlStr)
Dim xmlHttp
Dim retStr

Set xmlHttp = CreateObject("Msxml2.XMLHTTP")

On Error Resume Next

xmlHttp.Open "GET", urlStr, False

xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.Send

If Err.Number = 0 Then
retStr = "Online"
Else
retStr = "Offline"
End If

Set xmlHttp = nothing
GetResult = retStr

End Function

%>

Servern är <%= GetResult("http://www.domain.com") %>

</code>

Precis vad jag satt och letade efter!
Fungerar perfekt, tack!

/Magnus