<% '********************************************************************* ' Adds a product to the cart without it being in the database ' productname,price ' optional ' catalogid, quantity,,category,returnurl ' Version 4.00 ''********************************************************************* Shopinit Dim catalogid, quantity, InName,Price, incategory, ccode dim returnurl GetInputValues AddToCart Catalogid, ccode, quantity, Inname, price, incategory returnurl=request("returnurl") if returnurl="" then returnurl="shopaddtocart.asp" end if response.redirect returnurl ' Sub GetInputValues ' Keys are ' catalogid = a number in the database ' cCode = product code ' quantity = a number of items ' catalogid = Request("productid") if catalogid="" then catalogid=request("catalogid") end if If catalogid="" then catalogid=0 quantity = Request("quantity") If Quantity<>"" then ValidateQuantity quantity end if if quantity="" then quantity=1 InName=Request("productname") Price=request("Price") incategory=request("category") if incategory="" then incategory="0" ccode=request("code") end sub %>