<% Response.Buffer = True Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.Expires=0 'Acabar com o cache Session.LCID = 1046 'Indicar idioma portugues Dim DSNtemp, caminho caminho = server.mappath("../dados/bd_biblioteca_clam.accdb") 'Indica onde está o banco de dados 'DSNtemp="Provider=Microsoft.ACE.OLEDB.12.0;Data Source="& caminho &";Persist Security Info=False;" DSNtemp="Provider=Microsoft.ACE.OLEDB.12.0;" DSNtemp=DSNtemp & "Data Source="& caminho &"" Set Conn = server.CreateObject("adodb.connection") Conn.open DSNtemp 'abrindo a conexão %>