<% EMailMe Sub EMailMe() Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("contact") Mailer.FromAddress = Request.Form("email") Mailer.RemoteHost = "mail.orlandohamptoninn.com" Mailer.AddRecipient "Name", "info@orlandohamptoninn.com" Mailer.ReturnReceipt = false Mailer.ConfirmRead = false Mailer.Subject = "Request for Information - Contact Page" strBody = " *** CONTACT INFO *** " & vbcrlf & vbcrlf strBody = strBody & "Name: " & Request.Form("FirstName")& " " & Request.Form("LastName") & vbcrlf strBody = strBody & "Address 1: " & Request.Form("address1") & vbcrlf strBody = strBody & "Address 2: " & Request.Form("city") & ", " & Request.Form("state") & " " & Request.Form("zip") & vbcrlf strBody = strBody & "" & vbcrlf & vbcrlf strBody = strBody & "Phone: " & Request.Form("phone") & vbcrlf strBody = strBody & "FAX: " & Request.Form("fax") & vbcrlf strBody = strBody & "e-mail: " & Request.Form("email") & vbcrlf strBody = strBody & " " & vbcrlf & vbcrlf strBody = strBody & "Comments: " & Request.Form("comments") & vbcrlf Mailer.BodyText = strBody If Mailer.SendMail Then End If Set Mailer = Nothing response.redirect "thankyou.htm" End Sub %>