Uma função muito simples usada para detectar se o nome de domínio do site pode ser acessado normalmente. Função urlChk(sUrl)
em caso de erro, retome a seguir
Definir xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.open GET,sUrl,falso
xmlHttp.send
se xmlHttp.Status <> 200 então
urlChk=falso
outro
urlChk = verdadeiro
terminar se
Função final
URL = http://www.vevb.com
se urlChk(sUrl) então
response.write(sUrl&(pode ser acessado normalmente))
outro
resposta.write(sUrl&(não pode ser acessado))
terminar se