<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'refeito por lucas forever
Dim mensagem1 ' variavel
If request.form("dominio")<>"" then
' Inseri a url que você está buscando
procuraurl = "http://www." & request.form("dominio")
dominio = request.form("dominio")
' Cria um objeto XML
Set criaconexao = CreateObject("Microsoft.XMLHTTP")
' Conecta-se com a url buscada
criaconexao.Open "get", procuraurl, False
on error resume next
criaconexao.Send
pagina = criaconexao.getResponseHeader("Date")
' Retorna a busca
if pagina="" then
mensagem1 = "Resultado da pesquisa:
www."&dominio&"
PARABÊNS, DOMÍNIO DISPONÍVEL PARA REGISTRO
"
else
mensagem1 = "Resultado da pesquisa:
www."&dominio&"
IMPOSSÍVEL, DOMÍNIO JÁ REGISTRADO
"
end if
Set criaconexao = Nothing
end if
%>
sistema de whois