Scorecards USA

<%response.buffer = true %> <% Dim msg email = request.form("email") cname = request.form("cname") contact = request.form("contact") street = request.form("street") city = request.form("city") state = request.form("state") phone = request.form("phone") q = request.form("q") size = request.form("size") date2 = date '---- Response.Cookies("cname") = request.form("cname") Response.Cookies("contact") = request.form("contact") Response.Cookies("street") = request.form("street") Response.Cookies("city") = request.form("city") Response.Cookies("state") = request.form("state") Response.Cookies("zip") = request.form("zip") Response.Cookies("country") = request.form("country") Response.Cookies("phone") = request.form("phone") Response.Cookies("fax") = request.form("fax") Response.Cookies("email") = request.form("email") Response.Cookies("q") = request.form("q") Response.Cookies("size") = request.form("size") Response.Cookies("comments") = request.form("comments") If request.form("action") = "Submit" then if email = "" then msg = " Please type an email account" end if if q = "" then msg = " Please type a quantity" end if if size = "" then msg = " Please choose a format" end if IF msg = "" then Set JMail = Server.CreateObject("JMail.SMTPMail") Recipient = Request("recipient") JMail.ServerAddress = "64.89.9.62" JMail.Sender = email JMail.Subject = "Price Request" JMail.AddRecipient "sales@scorecardsusa.com" JMail.AppendText "PRICE REQUEST " & vbCrLf JMail.AppendText " " & vbCrLf JMail.AppendText "DATE: " & date & vbCrLf JMail.AppendText "CLUB NAME: " & request.form("cname") & vbCrLf JMail.AppendText "CONTACT PERSON: " & request.form("contact") & vbCrLf JMail.AppendText "STREET " & request.form("street") & vbCrLf JMail.AppendText "CITY: " & request.form("city") & vbCrLf JMail.AppendText "STATE: " & request.form("state") & vbCrLf JMail.AppendText "ZIP: " & request.form("zip") & vbCrLf JMail.AppendText "COUNTRY: " & request.form("country") & vbCrLf JMail.AppendText "TELEPHONE " & request.form("phone") & vbCrLf JMail.AppendText "FAX: " & request.form("fax") & vbCrLf JMail.AppendText "E-MAIL:" & request.form("email") & vbCrLf JMail.AppendText "QUANTITY: " & request.form("q") & vbCrLf JMail.AppendText "FORMAT:" & request.form("size") & vbCrLf JMail.AppendText "Die Cut: " & request.form("option") & vbCrLf JMail.AppendText "Pencil Slit: " & request.form("option2") & vbCrLf JMail.AppendText "Rounded Corners: " & request.form("option3") & vbCrLf JMail.AppendText "COMMENTS: " & request.form("comments") & vbCrLf JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Execute response.redirect "http://www.scorecardsusa.com/thankyou.htm" end if end if %> Scorecards USA

Price Quote Request Form

<%=(msg)%>

	<%=(date)%>
Club Name:
Contact Person:
Street:
City:
State:
Zip:
Country:
Telephone:
Fax:
E-mail:

Please indicate quantity:
Please indicate format:
Full color 4"x12" Full color 6"x8" Full color 5"x12" Full color 6"x12"
Green Ink 4"x12" Green Ink 6"x8" Green Ink 5"x12" Green Ink 6"x12"
Options:	Die Cut Pencil Slit Rounded Corners
Comments or Questions: