<%@ Language=VBScript %> <% '************************************************************************* ' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK! ' Function : Contact Us page ' Product : CandyPress eCommerce Storefront ' Version : 2.2 ' Modified : November 2002 ' Copyright: Copyright (C) 2002 CandyPress.Com ' See "license.txt" for this product for details regarding ' licensing, usage, disclaimers, distribution and general ' copyright requirements. If you don't have a copy of this ' file, you may request one at webmaster@candypress.com '************************************************************************* Option explicit Response.Buffer = true %> <% 'Email dim emailTo dim emailName dim emailFrom dim emailSubject dim emailBody 'Work Fields dim arrayErrors dim formID 'Database dim mySQL dim conntemp dim rstemp 'Session dim idOrder dim idCust '************************************************************************* 'Open Database Connection call openDb() 'Store Configuration if loadConfig() = false then call errorDB(langErrConfig,"") end if 'Get/Set Cart/Order Session idOrder = sessionCart() 'Get/Set Customer Session idCust = sessionCust() 'Get Form or QueryString parms emailName = validHTML(Request("emailName")) emailFrom = validHTML(Request("emailFrom")) emailSubject = validHTML(Request("emailSubject")) emailBody = validHTML(Request("emailBody")) 'Set To Email address emailTo = pEmailSales 'Did the user click the "Send" button? if Request.Form("formID") = "00" then 'Do some checks if len(emailName) = 0 then arrayErrors = arrayErrors & "|emailName" end if if len(emailFrom) = 0 then arrayErrors = arrayErrors & "|emailFrom" else if inStr(emailFrom,"@") = 0 or inStr(emailFrom,".") = 0 then arrayErrors = arrayErrors & "|emailFrom" end if if invalidChar(emailFrom,1,"@.-_") then arrayErrors = arrayErrors & "|emailFrom" end if end if if len(emailSubject) = 0 then arrayErrors = arrayErrors & "|emailSubject" end if if len(emailBody) = 0 then arrayErrors = arrayErrors & "|emailBody" end if 'If there was no errors, send the email. if len(trim(arrayErrors)) = 0 then 'Send Email call sendmail (emailName, emailFrom, emailTo, emailSubject, emailBody, 0) 'Say Thank You response.redirect "sysMsg.asp?msg=" & server.URLEncode(langGenContactUsMsg) end if end if %>

1. An H4 bulb is also reffered to as a 9003 or an HB2
2. A 9004 bulb is also reffered to as an HB1.
3. A 9005 bulb is also reffered to as an HB3.
4. A 9006 bulb is also reffered to as an HB4.
5. A 9007 bulb is also reffered to as an HB5.
6. H.I.D. bulbs are reffered to as 9500, D2R , and D2S .

7. H1, H2, H3, and H7 bulbs are usually reffered to as such.

<% call closedb() %>