 |
 |
 |
 |
 |
 |
 |
RESERVATIONS
Wait for our contact!!
Back <% Else Response.Write "You must put a email to send the form" %>
Back <% end if %>
|
||||||||||||||||
|
||||||||||||||||
|
RESERVATIONS
|
||||||||||||||||
|
<%
dim Nome
dim Morada
dim Telefone
dim Telefax
Dim EMail
dim Numero
dim Datas
dim Comentarios
if Request.Form("email") <> "" then
Nome = Request.Form("realname")
Morada = Request.Form("address")
Telefone = Request.Form("phone")
Telefax = Request.Form("fax")
EMail = Request.Form("email")
Numero = Request.Form("number")
Datas = Request.Form("dates")
Comentarios = Request.Form("comments")
'response.write Nome & Morada & Telefone & Telefax & E-Mail & Numero & Datas & Comentarios
'response.end
Set JMail = Server.CreateObject("JMail.SMTPMail")
'Next, define your SMTP server & port address...
'(note that you just need to use the following line
JMail.ServerAddress = Request.Form("SMTP")
JMail.ISOEncodeHeaders = False
JMail.Sender = Request.Form("email")
JMail.Subject = "Foi feita uma reserva pelo site em inglês. Os dados são os seguintes: "
JMail.AddRecipient "quintadasequoias@hotmail.com"
sBody = "Nome: " & Nome & chr(13) & _
"Morada: " & Morada & chr(13) & _
"Telefone: " & Telefone & chr(13) & _
"Fax: " & Telefax & chr(13) & chr(13) & _
"E-Mail: " & EMail & chr(13) & _
"Número de Pessoas: " & Numero & chr(13) & _
"Datas: " & Datas & chr(13) & _
"Comentário: " & Comentarios & chr(13) & _
"Esta reserva foi feita em " & date & _
"Fim de Formulário."
'response.write sBody
'response.end
JMail.Body = sBody
JMail.Execute
%>
You email was sent successfuly!! Wait for our contact!! Back <% Else Response.Write "You must put a email to send the form" %> Back <% end if %> |
||||||||||||||||
|
Quinta
das Sequoias . Ap. 1004 . 2710 Sintra . Portugal
Tel. (351) 21 9230342 or 21 9243821 . Fax. 21 9106065 quintadasequoias@hotmail.com |