RESERVAS
<% if request.form("Submit")<> "Enviar" then %>
Categoria:
Grupo:
Nome:
Localidade:
Email:
Mensagem:
<% else strType=Request.form("Categoria") strArea=Request.form("Grupo") strFirstName=Request.form("Nome") strLastName=Request.form("Apelido") stremail=Request.form("email") strDate=Date strComments=Request.form("Comentario") Set objConn = Server.CreateObject("ADODB.Connection") ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("comments.mdb") objConn.Open ConnectionString sqlQuery = "SELECT * FROM Comments" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open sqlQuery, objConn, 1, 2 objRS.AddNew objRS("Categoria")=strType objRS("Grupo")=strArea objRS("Nome")=strFirstName objRS("Apelido")=strLastName objRS("email")=stremail objRS("SubmitDate")=strDate objRS("comentario")=strcomments objRS.Update objRS.Close Set objRS = Nothing strBody = "Categoria: " & strType & chr(10) & chr(13) strBody=strBody & "Grupo: " & strArea & chr(10) & chr(13) strBody=strBody & "Nome: " & strFirstName & "Localidade: " & strLastName & chr(10) & chr(13) strBody=strBody & "Email: " & stremail & chr(10) & chr(13) strBody=strBody & "Mensagem: " & strComments & chr(10) & chr(13) strBody=strBody & "Data: " & strDate & chr(10) & chr(13) strBody=strBody & "--------------- " & chr(10) & chr(13) Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "webmaster@s3rentacar.com" objCDO.To = "reservas@s3rentacar.com" objCDO.Subject = "S3 Rent-a-Car Reservas" objCDO.Body = strBody objCDO.BodyFormat = 1 objCDO.MailFormat = 1 objCDO.Send 'Set objCDO = Server.CreateObject("CDONTS.NewMail") 'objCDO.From = "publicidade@tudoben.com" 'objCDO.To = stremail 'objCDO.Subject = "Comentários, Sugestőes e Perguntas" 'objCDO.Body = strBody 'objCDO.BodyFormat = 1 'objCDO.MailFormat = 1 'objCDO.Send Response.Write "Mensagem enviada

" Response.Write strFirstName & " de " & strLastName Response.Write ", muito obrigado pelo seu contacto. " 'Response.Write " acerca do seu " & strArea end if %>
 
É muito fácil alugar um carro na S3 Rent a Car. Dispomos de diversas formas para que você possa efetuar sua reserva com comodidade e segurança.Online,telefone e fax.

 

  Jukebox
  PARCEIROS