<%@Language=VBSCRIPT%> <% Option Explicit Dim Conn Dim RsPrograme If Not IsEmpty(Request.Form("BotaoEnviar")) Then Set conn = server.createobject("adodb.connection") ' Conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/") & "\fpdb\" & "sistemas1.mdb" Conn.Open "DBQ=e:\home\dlsturismo\dados\fpdb\sistemas1.mdb ;Driver={Microsoft Access Driver (*.mdb)}" set RsPrograme = Conn.Execute("Insert into Programe(Usuario, EmpresaCliente, Solicitante, Email, Custo, SaidaDia, SaidaMes, SaidaAno, Adulto, Crianca, Infantil, Preferencia1, Preferencia2, Preferencia3, Preferencia4, Categoria, Duracao, RadioDuracao, Estimado, Preferencia, Observacoes) values ('" & Session("Usuario")& "','" & Request.Form("CampoEmpresaCliente")& "','" & Request.Form("CampoSolicitante")& "','" & Request.Form("CampoEmail")& "','" & Request.Form("CampoCusto")& "','" & Request.Form("CampoSaidaDia")& "','" & Request.Form("CampoSaidaMes")& "','" & Request.Form("CampoSaidaAno")& "','" & Request.Form("CampoAdulto")& "','" & Request.Form("CampoCrianca")& "','" & Request.Form("CampoInfantil")& "','" & Request.Form("CampoPreferencia1")& "','" & Request.Form("CampoPreferencia2")& "','" & Request.Form("CampoPreferencia3")& "','" & Request.Form("CampoPreferencia4")& "','" & Request.Form("CampoCategoria")& "','" & Request.Form("CampoDuracao")& "','" & Request.Form("RadioDuracao")& "','" & Request.Form("CampoEstimado")& "','" & Request.Form("CampoPreferencia")& "','" & Request.Form("CampoObservacoes")& "')") Response.redirect("../programesuaviagem/Programe4.asp") End If %> DLS Turismo - Programe sua viagem, passagem aérea, hotel e carro.
fale consoco
 
.Preencha corretamente todos os campos e clique em enviar.

Empresa/Cliente

 Solicitante
   E-mail C. de Custo
   Quando você deseja viajar?
   Dia Mês Ano
   Quantas pessoas?
   Adultos Crianças Infantil
   Que categoria de hotel você gostaria?
  
   Qual o valor estimado por Passageiro?
   Reais (R$)
   Você tem preferência por alguma Cia Aérea?
  
Quais os locais de sua preferência?
1- .
2-
3-
4-
Duração da viagem?

Dias

Mês

Ano
.
..
    Observações gerais.
   

  
 

Suas perguntas e comentários serão sempre bem vindos. Fale Conosco.

Voltar