<%response.Buffer=true ' ***** Cria conexao com o banco de dados Set con=Server.CreateObject("ADODB.Connection") Set rs1=Server.CreateObject("ADODB.RecordSet") con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("melogtm.mdb") & ";" sql1="Select * from regiao order by ds_regiao" set rs1=con.execute(sql1) %> Verificar Viagens / Verify Schedule
Verificar Viagens / Verify Schedule
 
Saída de / Departure: 
Destino / Destination: 

* Campos de preenchimento obrigatório / Required.