'''URL PÅ DET BILLEDE DER SKAL KALDES
PicUrl="
https://www.test.net/Vigtigt/dont_edit_or_delete.htm"'''Str. I BYTES PÅ BILLEDET DER KALDES
PicSize=227
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", PicUrl, False
On Error Resume Next
objXMLHTTP.Send
bytLength = LenB(objXMLHTTP.ResponseBody)
Set objXMLHTTP = Nothing
'''VISER OG FINDER STATUS
IF NOT err.number<>0 THEN
IF bytLength=PicSize THEN
Response.Write "Status: Siden er oppe"
Response.Redirect "
https://www.test.net/forside/prod/" ELSE
Response.Write "Status: Siden er nede"
Response.Redirect "
https://www.test.net/services/login.asp" END IF
ELSE
Response.Write "Status: Domæne findes ikke"
Response.Redirect "
https://www.test.gatetrade.net/services/login.asp" END IF