<% function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function %> <% action=Request("action") if Request.ServerVariables("REQUEST_METHOD") = "POST" then if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then theDate = now theName = request.form("Name") theCustID = request.form("Customer_ID_Number") theCompanyName = request.form("Company_Name") theAddress = request.form("Address") thePhone = request.form("Phone_Number") theemail = request.form("email") thePurchaseWater = request.form("Purchase_Water") thePurchaseCoffee = request.form("Purchase_Coffee") theAdditionalComments = request.form("Additional_Comments") thecontent = "Email from: " & theName & vbnewline & vbnewline & "Date: " & theDate & vbnewline & "Customer ID Number: " & theCustID & vbnewline & "Company Name: " & theCompanyName & vbnewline & "Address: " & theAddress & vbnewline & "Phone Number: " & thePhone & vbnewline & "Email: " & theemail & vbnewline & "Purchase Water? " & thePurchaseWater & vbnewline & "Purchase Coffee? " & thePurchaseCoffee & vbnewline & "Additional Comments: " & theAdditionalComments & vbnewline & vbnewline & vbnewline Sender=Request.Form("email") Recepient="tom@rainbowdistributing.com" Set MaailObbject = Server.CreateObject("CDO.Message") MaailObbject.From = Request("email") MaailObbject.To = Recepient MaailObbject.Subject = "Rainbow Distributing: New Order!" MaailObbject.TextBody = thecontent MaailObbject.Send ErrMsg="Your order has been sent successfully.
" else ErrMsg="Image verification did not pass, please try again.
" end if end if %> Rainbow Distributing
   
Rainbow Distributing
   

Order Form:

<% if ErrMsg<>"" then %>

<%=ErrMsg%><% end if %>

Name*:
Customer ID. Number*:
Company Name:
Address:
Phone Number*:
Email*:
I need to purchase:
      Water
Coffee
Please specify the number of cases or bottles you need*:
Image Verification:

Change Image

CASE SENSITIVE
* required fields

Rainbow Distributing
PO Box 1475
Lanesborough, Massachusetts 01237

1(800)462-7248
1(413)448-2625
tom@rainbowdistributing.com

.

Powered by Blue Robin