Busca de dominios disponíveis e indisponíveis

[marciolvs 1]

Pessoal!

 

Peguei um codigo que ele pesquisa dominios internacionais e nacionais ao mesmo tempo e me informa c está disponivel para registro ou não...

 

segue codigo...

 

verifica.dominio.geral.asp

 

<%
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:<br><br>www."&dominio&"<br><br><strong><font color='#009900'>PARABÊNS, DOMÍNIO DISPONÍVEL PARA REGISTRO<br><br></strong>"
mensagem1 = "<font color='#009900' face='arial' align='center' size='2'>Domínio Disponível"
else
'mensagem1 = "Resultado da pesquisa:<br><br>www."&dominio&"<br><br><strong><font color='#FF0000'>IMPOSSÍVEL, DOMÍNIO JÁ REGISTRADO<br><br></font></strong>"
mensagem1 = "<font color='#FF0000' face='arial' align='center' size='2'>Domínio Indisponível"
end if
Set criaconexao = Nothing
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
  <link href="css.css" rel="stylesheet" type="text/css">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	<form method=post action="verifica.dominio.geral.asp">
	<tr>
	  <td><div align="center">www.
	  <input name=dominio type=text class="form" size=25>
	  <input name="submit" type=submit class="form" value="Buscar">
	  </div></td>
	</tr>
	<tr>
	  <td><div align="center"> <%=mensagem1%> </div></td>
	</tr>
	</form>
  </table>

oq acontece é que ele funcionou apenas nos primeiros dias, agora ele fica dando erro... informa que todos domínios estão disponivés..

 

tem como alguém me ajudar, ou me informar algum que funciona corretamente???

 

 

Aguardo uma ajudinha...

 

 

Marcio Leandro

[jrcardozo 4]

retire essa linha e veja se apresenta algum erro

on error resume next

[marciolvs 1]

retire essa linha e veja se apresenta algum erro

on error resume next

Tirei..

 

me retornou este erro..

 

erro '80004005'

 

 

Tem uma solução ai ???

[Mário Monteiro 179]

so isso de erro? tem uma descrição?

[marciolvs 1]

so isso de erro? tem uma descrição?

 

só isso mesmo...

 

 

testa lá...

 

http://www.consultta.com

[Mário Monteiro 179]

apareceu isso no codigo fonte

 

<meta http-equiv="Page-Enter" content="revealtrans(duration=2,transition=5)">

<font face="Arial" size=2>erro '80004005'</font>

<p>

<font face="Arial" size=2>/novo/verifica.dominio.geral.asp</font><font face="Arial" size=2>, line 14</font>

o que tem na linha em questao?

[jrcardozo 4]

acabei de acessar o link e não apresentou nenhum erro, porém todos os testes deu como indisponivel

 

coloque mais especificações do erro. possivelmente tenha que refazer o codigo