Problema no Insert

[kobutiii 0]

Olá pessoal, seguinte, tava fazendo uma página pra treinar asp...Prob é o seguinte, fiz uma página antes com 4 formulários...uma página com uma sub rotina de conexão com o banco...e qdo eu envio os dados que ele vai inserir os dados no banco dá esse erro

Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveis: 'aconn'/Admin/loja/index.asp, line 11

eis a sub

<%Dim dbSub aconn()	  Set db = Server.CreateObject("ADODB.Connection")  db.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=")End SubSub fconn()	db.close	Set db = NothingEnd Sub	%>

o código do insert

<!-- Include File="conexao.asp" --><!-- Include File="top.asp" --><% cMotorista = Request.Form("nome")cBairro = Request.Form("bairro")cCidade = Request.Form("cidade")cEstado = Request.Form("estado")sql = "INSERT INTO proprietario(nomemotorista,  bairro, cidade, estado) VALUES('"& cMotorista &"' , '"& cBairro &"' , '" & cCidade & "' , '" & cEstado & "')"Call aconn()db.execute(sql)Call fconn()%><!-- Include File="bottom.asp" -->

Alguma ótima alma poderia me dizer o porque?

[hargon 64]

Sub aconn()

Set db = Server.CreateObject("ADODB.Connection")

conexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bancodedados.mdb")

db.open conexao

End Sub

[kobutiii 0]

Mto obrigado a tentativa, mas o erro persiste

[hargon 64]

Você não está utilizando aconn em outra parte do código não? antes de chamar ai no INSERT? Talvez você declarou uma variável com esse nome.

 

Porque pela mensagem, você deve está usando o aconn de forma errada em alguma parte do código.

[kobutiii 0]

Você não está utilizando aconn em outra parte do código não? antes de chamar ai no INSERT? Talvez você declarou uma variável com esse nome.

 

Porque pela mensagem, você deve está usando o aconn de forma errada em alguma parte do código.

To não... O código já tá todo ae...

Isso é uma page simples, só pra treina... Acabei o curso de asp básico faz pouco tempo e to treinando...

[Anderson Roberto 0]

1º - Não vi o caminho do banco de dados aqui:

db.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=")

2º - Tenta isso:

Sub aconn()Set db = Server.CreateObject("ADODB.Connection")On Error Resume Nextdb.open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bancodedados.mdb")If Err <> 0 Then   Response.Write "Erro Nº: " & Err.Number & "<br />" & vbCrLf & _						  "Erro Desc.: " & Err.Description & "<br />" & vbCrLf & _						  "Erro Local: " & Err.RaiseEnd IfEnd Sub