Eine sehr einfache Funktion, mit der festgestellt wird, ob auf den Domainnamen der Website normal zugegriffen werden kann. Funktion urlChk(sUrl)
Bei Fehler als nächstes fortfahren
Setze xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET,sUrl,false
xmlHttp.send
wenn xmlHttp.Status <> 200 dann
urlChk=false
anders
urlChk=true
Ende wenn
Funktion beenden
sUrl=http://www.vevb.com
wenn urlChk(sUrl) dann
Response.write(sUrl&(normaler Zugriff möglich))
anders
Response.write(sUrl&(auf den nicht zugegriffen werden kann))
Ende wenn