<% 'EMAIL FORM USING CLASSIC ASP AND CDONTS Dim varName, varCity, varState, varEmail, varComments, varSend, thisPage varName = Request.Form("txtName") varCity = Request.Form("txtCity") varState = Request.Form("txtState") varEmail = Request.Form("txtEmail") varComments = Request.Form("txtComments") varSend = Request.Form("send") thisPage = Request.ServerVariables("SCRIPT_NAME") If not varSend = 1 Then 'OUTPUT THE CONTACT FORM %>

Feedback Form

Thank You for your interest in SURE WIPE ®

All comments, questions and ideas are appreciated and
seriously considered.

 
Name


 City


State/Province


EMail



Comments

SURE WIPE® is a Registered TradeMark of Koch Innovations Inc. All Rights Reserved.

<% Else 'SEND MAIL varComments = Replace(varComments, chr(10), "
") Dim ObjMail Set ObjMail = Server.CreateObject("CDO.Message") objMail.From = varName & " <" & varEmail & ">" objMail.To = "info2@surewipe.com" 'Add your email address objMail.Subject = "Sure Wipe Feedback Form" objMail.HTMLBody = "Name: " & varName & "

"_ & VBCrLf & "City: " & varCity & "

"_ & VBCrLf & "State: " & varState & "


"_ & CBCrLf & "Comments: " & varComments & "

" objMail.Send Set objMail = Nothing 'AND OUTPUT THANK YOU Response.Write "Hey "& varName & ",
"_ & VBCrLf & "Thanks for your feedback.
"_ & VBCrLf & "and for your visit at SURE WIPE.COM.
"_ & VBCrLf & "Click on the CAR to return to SURE WIPE® HOME PAGE" End If %>

HOME