% if request("Send")="Send" then StrBody = "This is a new contact: " & 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 & "Subject : " & Request("subject") & Chr(13) & Chr(10) & Chr(13) & Chr(10) StrBody = StrBody & "Message : " & Request("msg_body") & Chr(13) & Chr(10) & Chr(13) & Chr(10) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Administration" Mailer.FromAddress= "info@egywingo.com" Mailer.RemoteHost = "mail.egywingo.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 end if %>