Can someone tell me why this won't send the email, just based on this part of the code? Thanks in advance.
Rozino
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = Request("Email")
Mail.AddAddress Request("location")
Mail.AddCC "rozino@s121.com"
Mail.Subject = "Website Customer Survey Form"
Mail.Body = Chr(13) & Chr(10) &_
"Location: " & cStr(Request("Location")) & Chr(13) & Chr(10) &_
"Quality: " & cStr(Request("Quality")) & Chr(13) & Chr(10) &_
"QualityComments: " & cStr(Request("QualityComments")) & Chr(13) & Chr(10) &_
"Value: " & cStr(Request("ValueQuestion")) & Chr(13) & Chr(10) &_
"ValueComments: " & cStr(Request("ValueComments")) & Chr(13) & Chr(10) &_
"CustomerService: " & cStr(Request("CustomerService")) & Chr(13) & Chr(10) &_
"CustomerServiceComments: " & cStr(Request("CustomerServiceComments")) & Chr(13) & Chr(10) &_
"SessionType: " & cStr(Request("SessionType")) & Chr(13) & Chr(10) &_
"NextPlan: " & cStr(Request("NextPlan")) & Chr(13) & Chr(10) &_
"Recommend: " & cStr(Request("Recommend")) & Chr(13) & Chr(10) &_
"Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_
"Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_
"Phone: " & cStr(Request("Phone"))
If (cStr(Request("Submit")) <> "") Then
Mail.Send
End If
%>
Rozino
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "localhost"
Mail.From = Request("Email")
Mail.AddAddress Request("location")
Mail.AddCC "rozino@s121.com"
Mail.Subject = "Website Customer Survey Form"
Mail.Body = Chr(13) & Chr(10) &_
"Location: " & cStr(Request("Location")) & Chr(13) & Chr(10) &_
"Quality: " & cStr(Request("Quality")) & Chr(13) & Chr(10) &_
"QualityComments: " & cStr(Request("QualityComments")) & Chr(13) & Chr(10) &_
"Value: " & cStr(Request("ValueQuestion")) & Chr(13) & Chr(10) &_
"ValueComments: " & cStr(Request("ValueComments")) & Chr(13) & Chr(10) &_
"CustomerService: " & cStr(Request("CustomerService")) & Chr(13) & Chr(10) &_
"CustomerServiceComments: " & cStr(Request("CustomerServiceComments")) & Chr(13) & Chr(10) &_
"SessionType: " & cStr(Request("SessionType")) & Chr(13) & Chr(10) &_
"NextPlan: " & cStr(Request("NextPlan")) & Chr(13) & Chr(10) &_
"Recommend: " & cStr(Request("Recommend")) & Chr(13) & Chr(10) &_
"Email: " & cStr(Request("Email")) & Chr(13) & Chr(10) &_
"Name: " & cStr(Request("Name")) & Chr(13) & Chr(10) &_
"Phone: " & cStr(Request("Phone"))
If (cStr(Request("Submit")) <> "") Then
Mail.Send
End If
%>