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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Persists.MailSender Question

Status
Not open for further replies.

rozino

Technical User
Joined
Jul 21, 2005
Messages
2
Location
US
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
%>
 
er, i guess ou have to ask this in the ASP forum...

Known is handfull, Unknown is worldfull
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top