<% If Request.form("comment") = "" Then ' If nothing is in the 'comment' field, goes to form to get it %>

To: [email protected] Full Names: Email:

Type your feedback in the box below

<% Else Set Mail = Server.CreateObject("Persits.MailSender") ' Opens ASPEmail Mail.Host = "mail.yahoo.com" ' Specify a valid SMTP server Mail.From = "[email protected]" ' Specify sender's address Mail.FromName = Request.form("name") ' Specify sender's name Mail.AddAddress Request.form("email") ' Sends a copy to yourself for testing 'Mail.AddAddress "[email protected]", "Test" ' Can have multiple of these. Mail.AddReplyTo Request.form("email") ' Get name from form so it knows what name to reply to Mail.Subject = "Customer Feedback and/or Questions" ' Set subject line for Email Mail.Body = " Name: " & Request.form("name") & "
Email Address: " & Request.form("email") & "
Comment: " & Request.form("comment") & "

" Mail.IsHTML = True ' Enables HTML capabilities On Error Resume Next Mail.Send ' Sends the email If Err <> 0 Then Response.Write "

Error encountered: " & Err.Description & "
Please try again." Else IF Request.form("reason") = "Request_Information" THEN Response.write("" & Request.form("name") & "

Thank you for your questions! We will reply back to you shortly with an answer.") ELSE Response.write("" & Request.form("name") & "

Thank you for your comments.") End If End If End If session.abandon %>