Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Persits.MailSender Question

Status
Not open for further replies.

rozino

Technical User
Jul 21, 2005
2
0
0
US
Can someone tell me why this code doesn't send an email to the address based on just this code? Thanks.
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
%>
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top