<%
'*****
Dim Conn,db_path
Server.ScriptTimeout = 500
cnpath="DBQ=" & server.mappath("base.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open DataSource ,"",""
Set RS = Server.CreateObject("ADODB.Recordset")
Set bd = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
Set oRs = Server.CreateObject("ADODB.Recordset")
%>
<%
VG_SQL = "select * from tbl_mensagens where cd_msg=" & 1
Set VL_Cons = conn.execute(VG_SQL)
if not VL_Cons.eof then
session("msg1")=VL_Cons("mensagem1")
session("msg2")=VL_Cons("mensagem2")
session("msg3")=VL_Cons("mensagem3")
end if
Conn.Close
Set bd = Nothing
Set Conexao = Nothing
%>
Associação São Paulo Táxi
