<% '***** 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
     
 

 

 

 

Power By www.lcinfo.com.br



A nossa missão é a satisfação de nossos clientes.
Ao longo dos anos a Associação São Paulo de Táxi vem tendo várias histórias de sucesso com nossos clientes, sempre prestando um serviço de alta qualidade e disponibilizando novos recursos conseguimos ser um dos lideres do mercado.


Solicite uma vita de um representante para maiores informações.