% if request("Send")="Send" then if Request("name")<>"" and Request("email")<>"" and Request("nationality")<>"" and Request("destination")<>"0" and Request("Hotel")<>"" and Request("adults")<>"0" and Request("CheckIn")<>"" and Request("CheckOut")<>"" then StrBody = "Fast Track Reservations: " & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Name : " & Request("name") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Email : " & Request("email") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Nationality : " & Request("nationality") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "destination : " & Request("destination") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Hotel : " & Request("Hotel") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "adults : " & Request("adults") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Children : " & Request("Children") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Check In : " & Request("CheckIn") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Check Out : " & Request("CheckOut") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Comments : " & Request("body") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Amount : " & Request("amount") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Currency : " & Request("currency") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "End Of data " Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Administration" Mailer.FromAddress= "info@enjoytoursservices.com" Mailer.RemoteHost = "mail.enjoytoursservices.com" Mailer.AddRecipient "Administration","info@enjoytoursservices.com" Mailer.Subject = "Enjoy Tours Services New Contact" Mailer.BodyText = StrBody if Mailer.SendMail then Response.redirect ("messagesent.htm") end if else response.Redirect("additionalinformation.htm") end if end if %>