<%
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.
<%Else%>
Thank you for your interest in Virtual Realty, we will be responding to your request shortly.
<%End If%>