<% 'strRef = Request.ServerVariables("HTTP_REFERER") If Request.QueryString = "" Then Else Dim intDelProd, intProdCountDel intDelProd = Request.QueryString intDelProd = CInt(intDelProd1) Response.Cookies("FORHER" & intDelProd).Expires = Date - 1 intProdCountDel = Request.Cookies("FORHER")("PC") intProdCountDel = CInt(intProdCountDel) Response.Cookies("FORHER")("PC") = intProdCountDel Response.Redirect "display.asp" End If If Request.Cookies("FORHER").HasKeys Then Dim intProductCount, intRemove, intTotal, intTotTaxable, intTaxable, intPrice, intPatax, intPatotal, intShipping, intShipTot intProductCount = Request.Cookies("FORHER")("PC") Response.Write "" For varProdNo = 1 to intProductCount If Request.Cookies("FORHER" & varProdNo).HasKeys Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" intShipping = Request.Cookies("FORHER" & varProdNo)("shipping") intPrice = Request.Cookies("FORHER" & varProdNo)("price") Response.Write "" Response.Write "" Response.Write "" intShipping = intShipping * Request.Cookies("FORHER" & varProdNo)("quantity") intPrice = Request.Cookies("FORHER" & varProdNo)("price") intPrice = intPrice * Request.Cookies("FORHER" & varProdNo)("quantity") intShipTot = intShipping + intShipTot intTotal = intTotal + intPrice + intShipping If Request.cookies("FORHER" & varProdNo)("taxable") Then intTaxable = intPrice intPatax = intPatax + (intTaxable * .06) End If End If Next Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
Item NumberDescriptionColorSizeQuantityShippingPrice
" & Request.Cookies("FORHER" & varProdNo)("item") & "" & Request.Cookies("FORHER" & varProdNo)("desc") & "" & Request.Cookies("FORHER" & varProdNo)("color") & "" & Request.Cookies("FORHER" & varProdNo)("size") & "" & Request.Cookies("FORHER" & varProdNo)("quantity") & "" & FormatCurrency(intShipping) & "" & FormatCurrency(intPrice) & "Remove" Response.Write "
Shipping: " & FormatCurrency(intShipTot) & "
Total: " & FormatCurrency(intTotal) & "
PA Residents add 6% state sales tax: " & FormatCurrency(intPatax) & "
PA Residents Total: " & FormatCurrency(intTotal + intPatax) & "
" Else Response.Write "no products are in the shopping cart" End If %> Checkout or Cancel

Secure Checkout
">Continue Shopping