<% 'session.Timeout = 10 dim conexaodb Sub Abreconexao Set conexaodb = Server.CreateObject("ADODB.Connection") conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../banco/database.mdb") & ";Persist Security Info=False" 'conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\LocalUser\nomedosite\banco\database.mdb;Persist Security Info=False" End sub sub FechaConexao Conexaodb.close Set Conexaodb = Nothing End Sub %>