conexao access função

[designmix 0]

ola galera estou tentando cria uma função mais não esta dando certo alguem sabe no que estou errando

 

 

<%sub abre_conexao	Set conexao = Server.CreateObject("ADODB.Connection")	conexao.Open  "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db/noticia.mdb")	end subsub fecha_conexao	conexao.close	Set conexao = nothingend sub%>

 

ERRO

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/arno/web/abre_conexao.asp, line 5

"Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db/noticia.mdb")

 

 

 

valeu

[Ivan.Teles 23]

o erro acontece devido a quebra de linha

tenta assim;

 

%
sub abre_conexao
	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("db/noticia.mdb")
	
end sub

sub fecha_conexao
	conexao.close
	Set conexao = nothing
end sub

%>

[designmix 0]

E ai galera bom dia

para não abrir outro post vou usar esse mesmo

 

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'conn'/arno/web/teste_sql.asp, line 20

<%sub abre_conexao	Set conn = Server.CreateObject("ADODB.Connection")	conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db/noticia.mdb")   end subsub fecha_conexao	conn.close	Set conn = nothingend sub%><%SQl = "Select * From noticia"call abre_conexaoSet rs = conn.Execute(SQl)%><%=rs("id")%>

Valeu http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ivan.Teles 23]

qual é a linha 20?

[designmix 0]

Set rs = conn.Execute(SQl)

[Daw 0]

Tira da sub para ver o erro que dá...

 

Passando o olho não consegui ver problema, tá bem básico.

[designmix 0]

acho que o pau esta aqui mais não acho erroconn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db/noticia.mdb")o caminho do db esta certo

[<%Rafael%> 0]

Tenta isso...

 

<% Set conn = Server.CreateObject("ADODB.Connection")ConnStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("db/noticia.mdb")ConexaoAberta = FalseSub abre_conexao	If Not ConexaoAberta Then		conn.Open ConnStr		ConexaoAberta = True	End IfEnd SubSub fecha_conexao	If ConexaoAberta Then		conn.close		ConexaoAberta = False	End IfEnd Sub %>

Abraços!

[designmix 0]

putz deu certo aqui...valeu mesmo rafael..

[<%Rafael%> 0]

Precisando dá um grito :DAbraços!