<%@LANGUAGE="VBSCRIPT"%>
<%
' ASPEmail_105: Send All submitted Form Values to an email address
' modify if the name of your submit button is different
If (cStr(Request("Submit")) <> "") Then
str_values = ""
For Each element in Request.Form
If element <> "Submit" Then
str_values = str_values & element & ": " & Request.Form(element) & Chr(13) & Chr(10)
End If
Next
Set Mail = Server.CreateObject("Persits.MailSender")
' Specify a valid SMTP server
Mail.Host = "mail.jacorprinting.com"
' Specify a valid sender's address
Mail.From = "mfinch@jacorprinting.com"
Mail.AddAddress "mfinch@jacorprinting.com"
Mail.Subject = "Web Site Submission"
Mail.Body = Chr(13) & Chr(10) & str_values
Mail.Send
Response.Redirect("thankyou.asp")
End If
%>
Contact Us
Contact us:
Jacor Printing, Inc.
3350-A HWY. 6
Suite
# 151
Sugar Land Texas 77478
Ph. 281-499-3145
Fax 281-499-3530 mfinch@jacorprinting.com
