<%
if request.form("Submit")<> "Enviar" then
%>
<%
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.
|
|
 |
