Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcos-rj

Consulta de domínio

Por , em ASP Clássico

Recommended Posts

marcos-rj    0

marcos-rj
Postado

Boa tarde galera,to usando o script abaixo para verificar seu um dominio é registrado ou não, porem esta dando o seguinte erro:

msxml3.dll error '80070005' Access is denied. /dominio/verifica.asp, line 35

a linha 35 é esta:

ObjXML.Send

Alguem sabe que erro é este???o script pode ser conferido no seguinte endereço:http://www.caac.org.br/dominio/verifica.aspo script:
<% Option Explicit %> <% 'Elimina o armazenamento no BufferResponse.Buffer = false'Função para consulta de Domínio no sites ww.registro.brPrivate Function VerificaDominio(Dominio)		Dim ObjXML				'Variavel para o Objeto XMLHTTP	Dim ResultadoConsulta	'Variavel para guardar retorno da consulta	Dim Situacao		' verifica as condições básicas de sintaxe do domínio	If Len(Dominio) < 9 THEN			Situacao = "Erro ! O domínio deve possuir pelo menos dois caracteres"			ElseIf Len(Dominio) > 32 THEN			Situacao = "Erro ! O domínio deve possuir no máximo 26 caracteres"	Else				' Cria a instância no objeto no servidor		Set ObjXML = Server.CreateObject("Microsoft.XMLHTTP") 			' Obtem a página do endereço base do registro.br 		ObjXML.Open "GET", "http://registro.br/cgi-bin/nicbr/whois?qr="&Dominio, False			'Envia a requisição e aguarda a Resposta		ObjXML.Send			'Guarda o Retorno em uma variável para comparação posterior		ResultadoConsulta = ObjXML.ResponseText			'Pesquisa por palavras chaves no texto para obter o resultado			If instr(1,ResultadoConsulta,"inexistente") Then							Situacao = "Disponível para Registro"					ElseIf instr(1,ResultadoConsulta,"encontrada nenhuma") Then						Situacao = "Erro ! Sintaxe Inválida "					ElseIf instr(1,ResultadoConsulta,"Como fazer uma consulta") Then						Situacao = "Erro ! Sintaxe Inválida "				ElseIf instr(1,ResultadoConsulta,"Primeiro") Then						Situacao = "Domínio de Primeiro Nível Inválido"				Else			Situacao = "Dominio já Registrado"		End If				End If	'retorna o resultado à função	VerificaDominio = SituacaoEnd Function%><html><head><title>Verficando Domínios</title></head><body><div align="center">  <center>  <table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid #000000">	<tr>	  <td bgcolor="#D4D4D4" align="center"><b><font size="2" face="Verdana">Digite		o domínio com a extensão, e sem o www. </font></b></td>	</tr>	<tr>	  <td align="center">		<form method="GET" action="verifica.asp">		  <p><br><input type="text" name="Dominio" size="20" <%IF Request.QueryString("Dominio") <> ""  THEN%> value=<%=Request.QueryString("Dominio")%> <%ELSE%>value="suaempresa.com.br"<%END IF%>><br>		  <input type="submit" value="Consultar" name="B1"><input type="reset" value="Limpar" name="B2"></p>		</form>	  </td>	</tr>	<tr>	  <td bgcolor="#D4D4D4" align="center"><font size="2" face="Verdana" color="#FF0000"><b><%IF Request.QueryString("Dominio") <> ""  THEN%> <%=verificaDominio(Request.QueryString("Dominio"))%><%END IF%></b></font></td>	</tr>  </table>    </center></div></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Haberbeck    0

Haberbeck
Postado

marcos-rjSe eu não me engano, já tive um problema como esse, acho que era a versão do XML instalada que estava diferente e o nome do comando era diferente.[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites

buenolex    0

buenolex
Postado

Como consegui resolver isso?

Olá, preciso fazer uma consulta destas e comigo ocorreu também este mesmo erro. Alguém por acaso sabe da solução?Agradeço qualquer ajuda,Lex.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Eduardo_    0

Eduardo_
Postado

Sei que o tópico é bem antigo, mas assim como eu, outras pessoas podem procurar por esse erro no Google e cair neste tópico.

 

Tive exatamente o mesmo problema e corrigi alterando as permissões de acesso ao diretório no IIS.

Definindo acesso anônimo e tirando a integração com o Windows, para o login.

 

Exemplo do meu código:

 

Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")

xmlhttp.open "POST", "URL do WS", false

xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

xmlhttp.send "XML a ser enviado"

 

É isso! ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito