<% DIM sDSN ' For help setting your database connection, please go to the following URL ' http://www.ecommercetemplates.com/help/ecommplus/faq.asp#faq8 ' These dashes at the beginning of the line mean that these lines are "comments" and are ignored. sDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/fpdb/vsproducts.mdb") ' Microsoft Access 2000 using mapped path 'sDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\fpdb\vsproducts.mdb;" ' Microsoft Access 2000 ' Please note, for SQL Server you must have an SQL Server database available. Most people will want to use the Access database provided. 'sDSN = "driver={SQL Server};server=SERVERNAME;uid=USERNAME;pwd=PASSWORD;database=DATABASENAME" ' SQL Server %> <% Dim maintablebg,innertablebg,headeralign,maintablewidth,innertablewidth,maintablespacing,innertablespacing,maintablepadding,innertablepadding,sqlserver,nobuyorcheckout,noprice Dim mailhost,sortBy,pathtossl,taxShipping,pagebarattop,productcolumns,useproductbodyformat,usesearchbodyformat,usedetailbodyformat,useemailfriend,expireaffiliate,XXLicenseNumber ' For a description of these parameters and their useage, please open the following URL in your browser ' http://www.ecommercetemplates.com/help/ecommplus/parameters.asp mailhost = "your.mailserver.com" sortBy = 1 pathtossl = "" taxShipping=0 pagebarattop=0 productcolumns=2 useproductbodyformat=1 usesearchbodyformat=1 usedetailbodyformat=1 useemailfriend=true nobuyorcheckout=false noprice=false expireaffiliate=30 sqlserver=false usecategoryformat=1 allproductsimage="" nogiftcertificate=false showtaxinclusive=false upspickuptype="03" overridecurrency=false orcsymbol="AU$ " orcemailsymbol="AU$ " orcdecplaces=2 orcpreamount=true encryptmethod="aspencrypt" commercialloc=false showcategories=true termsandconditions=false showquantonproduct=false showquantondetail=false ' =================================================================== ' Please do not edit anything below this line ' =================================================================== maintablebg="" innertablebg="" maintablewidth="100%" innertablewidth="100%" maintablespacing="0" innertablespacing="0" maintablepadding="0" innertablepadding="3" headeralign="left" Session.LCID = 1033 const maxprodopts=15 const helpbaseurl="http://www.ecommercetemplates.com/help/ecommplus/" Function Max(a,b) if a > b then Max=a else Max=b end if End function Function Min(a,b) if a < b then Min=a else Min=b end if End function %> <% ' Please make sure this line is the first line in this file. xxPlsProc="Please proceed only if you are in acceptance of our terms and conditions.\nYou must signal your acceptance by checking the box." xxTermsCo="Please click here if you are in acceptance of our terms and conditions.
To review our terms and conditions, please click here." xxComLoc="Please click here if your shipping destination is a commercial location." xxValCC="Please enter a valid credit card number." xxCCMon="Please select your credit card expiry month." xxCCYear="Please select your credit card expiry year." xxDot="." xxEFYF1="Your friend " xxEFYF2=" has recommended this site to you" xxEFYF3=", and sends you the following message:" ssIncTax="(%s Inc. Tax)" xxMCCO="Checkout" xxMCSC="Shopping cart" xxMCIIC="Product(s) in cart" xxHndlg="Handling" xxFree="Free" xxDscnts="Discounts" xxDsProd="The following discounts apply to all these products." xxDsCat="The following discounts apply in all these categories." xxDsApp="Discounts Apply !" xxAppDs="Applicable Discounts" xxTotDs="Total Discounts" xxSubTot="Sub Total" xxGifCer="Coupon Number" xxGifNum="Coupon or Discount Number" xxGifEnt="If you have a coupon or discount number, please enter it here." xxNoGfCr="The discount number you entered (%s) was not found, has expired or is not applicable. Please click here if you wish to go back and try again." ' These were added pre-v3.0.0 xxListPrice="List Price: %s" ' These were added pre-v2.5.0 standardship="Standard Shipping" expressship="Express Shipping" xxHomeURL="categories.asp" xxHome="Home" xxOutStok="Out of Stock" xxOutState="Outside USA" xxState="State (US)" xxAllSta="State" xxNonState="State (Non US)" xxCntryTxt="United States of America" xxPlsSel="Please Select..." xxAddOrd="has been added to your order." xxPlsWait="Please wait while we forward you to view the contents of your cart or " xxClkHere="click here" xxSrryItm="Sorry, the item" xxIsCntly="is currently" xxOutStck="out of stock." xxTemprly="temporarily" xxNotChOu=""Temporarily" means that the product has been added to someones shopping cart, but they have not checked out. If they do not complete the purchase, the product will be free in" xxChkBack=", so please check back." xxShrtWhl="a short while" xxPlease="Please" xxToRetrn="to return to the products page." xxPlsEntr="Please enter a value in the field" xxAlphaNu="Please enter only alphanumeric characters with no spaces in the field" xxShpDtls="If you set the shipping address, please complete all shipping details." xxShpDiff="Shipping Details. (If different from above)." xxNoMeth="There are no methods available for your shipping destination." xxPlsSlct="Please select a" xxName="Full Name" xxEmail="Email" xxAddress="Address" xxCity="City" xxZip="Zip" xxPhone="Phone" xxCountry="Country" xxWntRem="Do you want us to remember your customer details for the next time you visit?\n\nOk=Yes, Cancel=No." xxCstDtl="Please enter your customer details." xxAddInf="Additional Information" xxRemMe="Remember me." xxOpCook="Use this option to write a cookie to allow us to prepopulate this form the next time you visit." xxNoPay="No Payment Methods Configured." xxClkCmp="Please click below to complete your transaction." xxPlsChz="Please choose one of the payment methods below." xxShpOpt="Please select a shipping option from those below." xxSryErr="Sorry, there was an error processing your request." xxChkCmp="Check totals and proceed to process payment." xxTotGds="Total Goods" xxShippg="Shipping" xxStaTax="State Tax" xxCntTax="Country Tax" xxGndTot="Grand Total" xxCrdNum="Card Number" xxExpEnd="Expires End" xxMonth="Month" xxYear="Year" xx34code="3 or 4 digit code from back of card" xxIfPres="(if present)" xxMstClk="You must click below to complete the checkout process." xxTnxOrd="Thank you for your order." xxTrnRes="Transaction Result" xxOrdNum="Order Number" xxAutCod="Authorization Code" xxSorTrn="I'm sorry, there was a problem with your transaction." xxGoBack="Go Back and Try Again" xxNoStok="One or more of your update request could not be completed as there is not sufficient stock." xxCODets="Details" xxCOName="Name" xxCOUPri="Unit Price" xxCOSel="Select" xxQuant="Quantity" xxTotal="Total" xxDelete="Delete" xxCntShp="Continue Shopping" xxUpdTot="Update Totals" xxSryEmp="Sorry, your shopping cart is empty" xxPrsChk="Press checkout to enter your customer and shipping information." xxNoCats="No categories are currently defined." xxClkCat="Please click on a category to view sub categories." xxAlProd="All Products" xxAlPrCa="View all products in all categories." xxNoPrds="No products are currently available." xxClkPrd="Please click on a category to view products." xxPrdEnt="Please enter a value where indicated." xxPrdChs="Please choose from the available product options." xxPrd255="Please enter a maximum of 255 chars in the field indicated." xxPrice="Price" xxPrDets="Details" xxEmFrnd="Email Friend" xxCusDet="Customer Details" xxShpDet="Shipping Details" xxShpMet="Shipping Method" xxPrId="Product ID" xxPrNm="Product Name" xxUnitPr="Unit Price" xxOrdTot="Order Total" xxOrdStr="Order at your store" xxTnxOrd="Thank you for your order" xxTouSoo="We will be in touch as soon as possible about your order, the details of which are as follows:" xxAff1="Your affiliate link has just generated a sale totalling" xxAff2="Please note that this is for information only as comission is only paid on cleared funds." xxAff3="Affiliate partner sale" xxThnks="Thank You." xxThkYou="
Thank you for your purchase !

We will be in contact as soon as possible.

" xxThkErr="
Sorry, there seemed to be an error !

If you need any help with your purchase, then please be sure to contact us.

" xxRecEml="You will receive a copy of this receipt by email." xxPrev="Previous" xxNext="Next" xxSrchPr="Search Products" xxSrchFr="Search For" xxSrchMx="Max Price" xxSrchTp="Search Type" xxSrchAl="All words" xxSrchAn="Any word" xxSrchEx="Exact Phrase " xxSrchCt="In Category" xxSrchAC="All Categories" xxSrchNM="Sorry, no products matched your search." xxAffPrg="Affiliate Partners Program." xxWelcom="Welcome" xxAffLog="Your login is correct. Please wait while we forward you to view your account details." xxAffDts="Please enter your affiliate details." xxAffUse="I'm sorry, that affiliate ID is already in use. Please choose another." xxForAut="If you are not forwarded automatically, please" xxInform="Please note. By checking the "inform me" option, you will receive an email notification every time your affiliate link generates a sale." xxInfMe="Inform me" xxAffLI="Login to your affiliate account" xxAffID="Affiliate ID" xxBack="Back to Account Details" xxNewAct="Open new affiliate account" xxGotAct="For those who already have an affiliate account." xxAffNo="Sorry, we could not find your affiliate login / password." xxPwd="Password" xxTotTod="Total so far today" xxTotYes="Total yesterday" xxTotMTD="Total month to date" xxTotLM="Total last month" xxEdtAff="Edit Affiliate Details" xxAffLI1="To set up your affiliate link, use any page with a .asp extension, for instance" xxAffLI2="Please note that these totals are only provisional. Commission will only be paid on cleared funds, and sometimes sales are "charged back"." xxAffLI3="The above totals are for sales generated, not comission due." xxEFNam="Your Name" xxEFEm="Your Email" xxEFFEm="Your Friends Email" xxEFCmt="Your Comments" xxClsWin="Close Window" xxEFBlr="Let your friends know all about the great deals that are on offer at this site. Just fill in the details below and click "Send"." xxSearch="Search" xxOrdId="Order ID" xxInAssc="In Association with" xxTnkStr="Thank You For Shopping at Our Store" xxTnkWit="Thank you for shopping with" xxMerRef="Merchant's Reference" xxPlsNt1="Please take note of the above information, and quote the" xxPlsNt2="if you need to contact our store for any reason." xxOrdNIs="Your order number is" xxClkBck="Please Click Here to Head Back to Our Store" ' Please make sure this line is the last line in this file %> <% Dim gasaReferer,gasaThisSite,datedelim if Trim(request.querystring("PARTNER"))<>"" then if expireaffiliate = "" then expireaffiliate=30 response.write "" end if if sqlserver=true then datedelim = "'" else datedelim = "#" end if codestr="2952710692840328509902143349209039553396765" function upsencode(thestr) newstr="" for index=1 to Len(thestr) thechar = Mid(thestr,index,1) newstr=newstr & Chr(asc(thechar)+Int(Mid(codestr,index,1))) next upsencode=newstr end function function upsdecode(thestr) if IsNull(thestr) then upsdecode="" else newstr="" for index=1 to Len(thestr) thechar = Mid(thestr,index,1) newstr=newstr & Chr(asc(thechar)-Int(Mid(codestr,index,1))) next upsdecode=newstr end if end function function FormatEuroCurrency(amount) if overridecurrency=true then if orcpreamount=true then FormatEuroCurrency = orcsymbol & FormatNumber(amount,orcdecplaces) else FormatEuroCurrency = FormatNumber(amount,orcdecplaces) & orcsymbol end if else if useEuro then FormatEuroCurrency = FormatNumber(amount,2) & " €" else FormatEuroCurrency = FormatCurrency(amount,-1,-2,0,-2) end if end if end function function FormatEmailEuroCurrency(amount) if overridecurrency=true then if orcpreamount=true then FormatEmailEuroCurrency = orcemailsymbol & FormatNumber(amount,orcdecplaces) else FormatEmailEuroCurrency = FormatNumber(amount,orcdecplaces) & orcemailsymbol end if else if useEuro then FormatEmailEuroCurrency = FormatNumber(amount,2) & " Euro" else FormatEmailEuroCurrency = FormatCurrency(amount,-1,-2,0,-2) end if end if end function Sub do_stock_management(smOrdId) if stockManage <> 0 then sSQL="SELECT cartProdID, cartQuantity FROM cart WHERE cartCompleted=0 AND cartOrderID=" & smOrdId rs.Open sSQL,cnn,0,1 do while NOT rs.EOF sSQL = "UPDATE products SET pInStock=pInStock-"&rs("cartQuantity")&" WHERE pID='"&rs("cartProdID")&"'" cnn.Execute(sSQL) rs.MoveNext loop rs.Close end if End Sub %>

Munz Chocolates		See entire list
Tablet specialties.	Munz Choc. bars 23g, Soft-bag.
Munz chocolate bars 46g, POS-pack.	Munz chocolate bars 23g, POS-pack.	Munz Wave Chocolate bar 34g, POS-pack.