[Resolvido] erro Microsoft VBScript runtime error '80

[Gomide 0]

Pessoal,

Estou com dificuldades para sanar um problema, logo apos quando o usuario efetua o cadastro é enviado um email para confirmação, quando vai ativar o cadastro da erro conforme abaixo

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'abreconexao'

 

/participe/cadastrar1.asp, line 14

Será que alguem poderá dar um help?

 

Att;

gustavo

[hargon 64]

Você tem que postar o código da página ou pelo menos a linha que deu erro para tentarmos entender o que está acontecendo.

[Gomide 0]

Você tem que postar o código da página ou pelo menos a linha que deu erro para tentarmos entender o que está acontecendo.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="conexao.asp"-->
<%
Dim conexao
codigo = request.QueryString("id") 

if codigo <> "" then 
sim = "sim" 
data = day(date)&"/"&month(date)&"/"&year(date)
strUpdate = " Update usuarios Set "
strUpdate = strUpdate + " data = '" + data + "', "
strUpdate = strUpdate + " libera = '" + sim + "' "
strUpdate = strUpdate + " WHERE codigo = '"&codigo&"' " 
Call abreConexao-----------------------------------------------------[u][b]é daqui pra baixo que começa o erro[/b][/u]
Set rs = conexao.Execute(strUpdate) 
else 
response.Redirect("erro.asp")
end if 
response.redirect("efetuado.asp") 

Call fechaConexao
Set rs = Nothing 'fecha o recordset conexao
%>

Desculpe, é pq eu estava com mta pressa na hora

[hargon 64]

E o que tem dentro de conexao.asp?

[Gomide 0]

E o que tem dentro de conexao.asp?

<%
	Dim conGalo 

	Banco = "/dados/cadastro.mdb"
	Caminhodb = Server.MapPath(Banco)
	Set conGalo = Server.CreateObject("ADODB.Connection")
	conGalo.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminhodb & ";"
%>

isso ai.....

[xanburzum 169]

verifique se nao esta tentando passar um valor de um tipo em campo com outro tipo,

ou seja se esta tentando passar um valor texto em um campo numerico...

verifique sua instruçao SQL

[hargon 64]

Veja, você tem problema na linha que chama o procedimento abreConexao, mas em nenhuma parte do código você criou ele. Então pq executa esse comando?

 

Remova essa linha e onde está conGalo, coloque conexao para ficar igual as demais parte do código.

 

Com certeza após fazer as alterações acima o próximo erro será na linha Call fechaConexao, então remova de uma vez, pois em nenhuma parte do código você criou isso.

[Gomide 0]

Veja, você tem problema na linha que chama o procedimento abreConexao, mas em nenhuma parte do código você criou ele. Então pq executa esse comando?

 

Remova essa linha e onde está conGalo, coloque conexao para ficar igual as demais parte do código.

 

Com certeza após fazer as alterações acima o próximo erro será na linha Call fechaConexao, então remova de uma vez, pois em nenhuma parte do código você criou isso.

Obrigado pelas dicas, porém consegui resolver....modifiquei tudo...fiz assim...

 

<%
Dim string
string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\dados\cadastro.mdb")

Sub AbreConexao
	Set Conexao = Server.CreateObject("ADODB.Connection")
	Conexao.Open string
end sub

Sub FechaConexao
	Conexao.Close
	Set Conexao = Nothing
End Sub
%>

ai funfa numa boa...

 

pode dar como encerrado o topico...

 

vlw