Una función muy simple que se utiliza para detectar si se puede acceder normalmente al nombre de dominio del sitio web. Función urlChk(surl)
en caso de error reanudar siguiente
Establecer xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET,sUrl,falso
xmlHttp.enviar
si xmlHttp.Status <> 200 entonces
urlChk=falso
demás
urlChk=verdadero
terminar si
Función final
URL=http://www.vevb.com
si urlChk(sUrl) entonces
respuesta.write(sUrl&(se puede acceder normalmente))
demás
respuesta.write(sUrl&(no se puede acceder))
terminar si