script der kan undersøge om et website er oppe at kører eelr ej

Fandt noget jeg kunne bruge her.

<%
'Timeout values in milliseconds
lngResolveTimeout = 500
lngConnectTimeout = 500
lngSendTimeout = 500
lngReceiveTimeout = 500

strTestUrl = "http://www.georgjensen.com"

Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")
With objHttpRequest
  .SetTimeouts lngResolveTimeout, lngConnectTimeout, lngSendTimeout, lngReceiveTimeout
  .Open "GET", strTestUrl
  .Send
  Select Case .Status
      Case 200 'No problem!
        Response.Write "<B>" & strTestUrl & "</B>" & " is up and running"
      Case 404 'Not found
        Response.Write strTestUrl & " could not be found (404 Error)"
      Case Else 'Some other problem
        Response.Write "An unexpected HTTP Status value was returned: " & .Status
  End Select
End With
Set objHttpRequest = Nothing
%>