<% Dim bolSubmitted 'test to see if form was submitted If Request("btnSend") <> "" Then 'form was submitted: process message ' 'notes ' - this assumes page is running on ' Win2000/Win2003 with the IIS SMTP service ' installed and active locally ' - SMTP must be configured to relay for the ' local host's addresses. ' - Need to modify "to" address appropriately ' Dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.Body = Request("txtMessage") objMail.From = Request("txtEmail") objMail.To = "Larry@mr-reversemortgage.com" objMail.Subject = "Feedback from Web Site" objMail.Send Set objMail = Nothing bolSubmitted = True %>
Mr Reverse <% If Not bolSubmitted Then%> You can also send us a message using this Web page: What's your e-mail address ? (so that we can reply) What's your Name ? What's your Telephone number? What would you like to tell us? Just type your message in the box above and click to send it!<% Else %> Thanks for your message!<% End If %>
Mr Reverse
You can also send us a message using this Web page:
What's your e-mail address ? (so that we can reply)
What's your Name ?
What's your Telephone number?
What would you like to tell us?
Just type your message in the box above and click to send it!
Thanks for your message!
