Une fonction très simple permettant de détecter si le nom de domaine du site Web est accessible normalement. Fonction urlChk(sUrl)
en cas d'erreur, reprendre ensuite
Définir xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET,sUrl,false
xmlHttp.envoyer
si xmlHttp.Status <> 200 alors
urlChk=faux
autre
urlChk = vrai
finir si
Fonction de fin
sUrl=http://www.vevb.com
si urlChk(sUrl) alors
réponse.write(sUrl&(accessible normalement))
autre
réponse.write(sUrl&(inaccessible))
finir si