Postada em 31/7/2003 por DTLucchesi <% Dim StrCon Dim Conexao
Set Conexao = Server.CreateObject("ADODB.CONNECTION") Strcon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco.mdb") Sub AbreConexao() Conexao.Open StrCon End Sub Sub FechaConexao() Conexao.Close set Conexao = nothing End Sub %>