<% strPageTitle = "Contact Us" %>
<%
If Request("action") = "doform" Then
If Request("firstname") <> "" Then
strBody = ""
strBody = strBody & "This form was submitted on " & Date & " at " & Time & "." & vbcrlf & vbcrlf
strBody = strBody & "Name : " & Request("firstname") & " " & Request("lastname") & vbcrlf
strBody = strBody & "Address : " & Request("address1") & vbcrlf
If Request("address2") <> "" Then
strBody = strBody & " : " & Request("address2") & vbcrlf
End If
strBody = strBody & "City / State / Zip : " & Request("city") & ", " & Request("state") & " " & Request("zip") & vbcrlf
strBody = strBody & "Phone : " & Request("phone") & vbcrlf
strBody = strBody & "Email : " & Request("email") & vbcrlf
strBody = strBody & "Email Address : " & Request("email") & vbcrlf
strBody = strBody & "Questions / Comments : " & Request("questions") & vbcrlf
'Set objMail = Server.CreateObject("Persits.MailSender")
'objMail.ResetAll
'objMail.Host = "altman.kineticweb.com"
'objMail.From = "noreply@becomingcenter.com"
' objMail.From = "paul@kineticweb.com"
'objMail.FromName = "The Becoming Center"
'objMail.Subject = "New Contact Form Submission"
'objMail.IsHTML = False
'objMail.AddAddress("ginaf@artmanhome.com")
' objMail.AddAddress("paul@kineticweb.com")
'objMail.Body = strBody
'objMail.SendtoQueue
'Set objMail = Nothing
Set myMail=CreateObject("CDO.Message")
myMail.Subject="New Contact Form Submission"
myMail.From="noreply@becomingcenter.com"
myMail.To="ginaf@artmanhome.com; contact@kaydengroup.com"
myMail.TextBody=strBody
myMail.Send
set myMail=nothing
Else
Response.Redirect("contact-us.asp")
End If
%>
Thank you!
Your contact information has been transmitted to our offices. We will contact you shortly regarding your questions or comments.
<% Else %>
For more information, submit the form below with your requests, or call (215) 283-9999.
Please complete the following information:
<% End If %>