Conexão De Banco De Dados...

[marcus Gemeos]

Olá pessoal,

Eu gostaria de mudar o código abaixo de conexão para aquele modo "Server" ou seja, qualquer servidor que eu colocar não precisso mudar o diretório do banco de dados, pois ele reconhece por se só automaticamente!

Precisso!

Obrigadão!

<%

sub abre_conexao

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

Conexao.Open "DBQ=C:\Marcus\Site Bahia Mercado\dados\dados.mdb;Driver={Microsoft Access Driver (*.mdb)}"

end sub

sub fecha_conexao

Conexao.close

Set Conexao =nothing

end sub

%>

[kuroi]

tente assim:

<%
sub abre_conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=" & server.mappath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
end sub
%> 

[marcus Gemeos]

Obrigado amigo!

Deu certo!

Abraços!

Marcus