Erro De Vbscript Em Asp.

CrUnCk · Novembro 9, 2005

Estou trabalando no meu serviço com uma pagina de cadastro, porem o usuario

cadastrante envia os seus dados, e na pagina de finalização dar erro assim:

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'close'

/iel/bolsaderesiduos/anegocios_cadastro_finalizacao.asp, line 61

====================== codigo==========================

<%

Response.Expires=0

DIM strINS,rsINS,strNF,rsNF,strCNPJ,rsCNPJ

strINS = "INSERT INTO Usuarios (NomeFantasia,CodCategoria,CNPJ,País,Estado,Cidade,CEP,Endereco,Bairro,Telefone1,Telefone2,Contato,Cargo,Senha,[E-Mail],BInformativo,Tamanho,Ativo) Values ('"&session("NomeFantasia")&"','"&session("Categoria")&"','"&session("CNPJ")&"','"&session("Pais")&"','"&session("Estado")&"','"&session("Cidade")&"','"&session("CEP")&"','"&session("Endereco")&"','"&session("Bairro")&"','"&session("Telefone")&"','"&session("Telefone2")&"','"&session("Contato")&"','"&session("Cargo")&"','"&session("senha1")&"','"&session("Email1")&"','"&session("Boletim")&"','"&session("Tamanho")&"','No')"

strNF = "select NomeFantasia FROM Usuarios WHERE NomeFantasia like '"& session("NomeFantasia") &"' "

strCNPJ = "select CNPJ FROM Usuarios WHERE CNPJ like '"& session("CNPJ") &"'"

CALL abreconexao

SET rsNF = conexaodb.execute(strNF)

SET rsCNPJ = conexaodb.execute(strCNPJ)

%>

<html>

<head>

<title>Bolsa de Resíduos & Negócios</title>

<!--

.style1 {

font-family: Arial, Helvetica, sans-serif;

font-size: x-small;

}

.style2 {

font-family: Arial, Helvetica, sans-serif;

font-size: large;

font-weight: bold;

}

-->

</style>

</head>

<body>

<tr>

</tr>

<tr>

<%

IF NOT rsNF.EOF THEN

Response.Write "<font face='arial' size='3' color='red' ><b>O cadastro com o nome '"&session("NomeFantasia")&"' Já Existe no cadastro! </font></b><br>"

ELSEIF NOT rsCNPJ.EOF THEN

Response.Write "<font face='arial' size='3' color='red' ><b>O cadastro com o número do CNPJ '"&session("CNPJ")&"' Já Existe no cadastro! </font></b><br>"

ELSE

rsINS = conexaodb.execute(strINS)

Response.Write "<p align='center'><strong><font size='3' face='Arial, Helvetica, sans-serif'>'"&session("NomeFantasia")&"',Cadastro realizado com sucesso!</font></strong><br><font size='2' face='Arial, Helvetica, sans-serif'>Agora você deve pagar sua fatura para podermos ativar sua conta. Após pagar sua fatura envie-nos um e-mail com o comprovante de depósito.</font></p>"

END IF

%>

</p>

</td>

</tr>

</table>

<tr>

</tr>

</body>

</html>

<%

rsIns.close

rsNF.close

rsCNPJ.close

call fechaconexao

set rsIns = nothing

set rsNF = nothing

set rsCNPJ = nothing

%>

<% Session Abandon %>

fantasma · Novembro 9, 2005

retira isso e ve oque acontece

rsIns.close

rsNF.close

rsCNPJ.close

CrUnCk · Novembro 9, 2005

deu outro erro, agora de conexao com o banco de dados:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'conexaodb'

/iel/bolsaderesiduos/conexao.inc, line 8

vai o codigo do aqrquivo de conexao:

<%

sub AbreConexao

ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="& Server.MapPath("Dados\BDBolsa.mdb")

set conexaodb = Server.CreateObject("ADODB.Connection")

conexaodb.open ConnectionString

end sub

sub FechaConexao

conexaodb.close //<--------(linha 8)

set conexaodb = nothing

end sub

%>

fantasma · Novembro 9, 2005

retira essa linha tb

CrUnCk · Novembro 9, 2005

valeu fantasma, resolveu aqui, obrigadão!

Mas voce sabe a causa desse erro, pois ele só acontece no SERVER aqui da empresa e no server instalado na minha maquina, mas na mesma pagina que eu hospedei num site gratuito na interenet, rola tudo beleza!

fantasma · Novembro 9, 2005

<%

sub AbreConexao

ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="& Server.MapPath("Dados\BDBolsa.mdb")

set conexaodb = Server.CreateObject("ADODB.Connection")

conexaodb.open ConnectionString

end sub

sub FechaConexao

conexaodb.close //<--------(linha 8)

set conexaodb = nothing

end sub

Call AbreConexao

%>

eu acho se você por a ultima linha assim tb ira funcionar pois sua conexão estava fechada

Entrar

Erro De Vbscript Em Asp.

Pergunta

CrUnCk

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

fantasma

Link para o comentário

Compartilhar em outros sites

CrUnCk

Link para o comentário

Compartilhar em outros sites

fantasma

Link para o comentário

Compartilhar em outros sites

CrUnCk

Link para o comentário

Compartilhar em outros sites

fantasma

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades