% if request.form("CheckForm") = "2" then 'Creating an email as a notifier to Tacoma Land Company Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress= "info@tlcland.com" Mailer.RemoteHost = "mail.tlcland.com" Messagestring = "Request for information from Tacoma Land Company web site" & vbcrlf & vbcrlf Messagestring = Messagestring & "Contact name: " & request.form("first") & vbcrlf Messagestring = Messagestring & "Email address: " & request.form("email") & vbcrlf Messagestring = Messagestring & "Phone: " & request.form("phone") & vbcrlf Messagestring = Messagestring & "How did you hear about us: " & request.form("hear") & " " & request.form("explain") & vbcrlf Messagestring = Messagestring & "I am interested in: " & request.form("interest") & " " & request.form("other") & vbcrlf & vbcrlf Messagestring = Messagestring & "Questions or comments: " & request.form("comments") Mailer.FromName = request.form("first") Mailer.RemoteHost = "mail.tlcland.com" Mailer.ReplyTo = request.form("email") Mailer.AddRecipient "Tacoma Land Company", "info@tlcland.com" Mailer.AddCC "Sara", "sara@tlcland.com" Mailer.Priority = 1 Mailer.Subject = "Request for information from Tacoma Land Company web site" Mailer.Bodytext = Messagestring if Mailer.SendMail then Response.Write "" else Response.Write "" end if %>
Thank you <%= request.form("first") %> for your inquiry about Tacoma Land Company
|
|
Please review your information for accuracy. If you need to make any changes, please click the back button. If the information is correct, click the submit button. |
|
| Name: | <%= request.form("first") %> |
| E-mail address: | <%= request.form("email") %> |
| Phone: | <%= request.form("phone") %> |
| How did you hear about us: | <%= request.form("hear") %> <%= request.form("explain") %> |
| I am interested in: | <%= request.form("interest") %> <%= request.form("other") %> |
| Comments: | <%= request.form("comments") %> |