%
Dim action
Sub sendEMail()
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.socket.net"
'JMail.AddRecipient "jfields@idpgroup.com"
JMail.AddRecipient "bobwalt65203@aol.com"
JMail.AddRecipientBCC "webmaster@IDPgroup.com"
If InStr(Request.Form("cf_EMail"),"@") Then
JMail.Sender = Request.Form("cf_EMail")
Else
'JMail.Sender = "landreal10@aol.com"
End If
JMail.SenderName = Request.Form("cf_first_name") & " " & Request.Form("cf_last_name")
JMail.Subject = "*** VirtualRealty.com Website Contact Form"
JMail.Body = "The following contact request was submitted" & vbCRLF & FormatDateTime(Date, vbLongDate) & " at " & FormatDateTime (Now, vbLongTime) & vbCRLF & vbCRLF
JMail.AppendText "Name: " & Request.Form("cf_name") & vbCRLF
JMail.AppendText "Address: " & Request.Form("cf_address") & vbCRLF
JMail.AppendText "City: " & Request.Form("cf_city") & vbCRLF
JMail.AppendText "State: " & Request.Form("cf_state") & vbCRLF
JMail.AppendText "Zip Code: " & Request.Form("cf_zip") & vbCRLF
JMail.AppendText "Telephone: " & Request.Form("cf_telephone") & vbCRLF
JMail.AppendText "E-mail: " & Request.Form("cf_EMail") & vbCRLF
JMail.AppendText "Property: " & Request.Form("cf_property") & vbCRLF
JMail.AppendText "Comments: " & vbCRLF & Request.Form("cf_comments") & vbCRLF
JMail.AppendText "***** END OF FORM *****" & vbCRLF
JMail.Execute
'Response.Write "Email Sent
"
End Sub
Sub Main()
action = "FORM"
If Request("submit") = "Submit" Then
sendEMail()
action = "THANKS"
End If
End Sub
' execute main routine
Main()
pageTitle = "Contact Us"
%>
<%
pageTitle = "Contact Us"
%>
<%If action = "FORM" Then%>
If you are interested in finding out more about one of our properties, please fill out the form below or contact us directly.
Thank you for your interest in Virtual Realty, we will be responding to your request shortly.
<%End If%>