<% '=================================================== '(c) 2003-2004 efreedownloads.com '=================================================== Session( "empty" ) = False Session( "notequal" ) = False Session( "Fail" ) = False Session( "PC" ) = False Session( "continue" ) = False Session( "notfull" ) = False Session( "email" ) = False Session( "Forgot" ) = False Session( "Remember" ) = False Session( "empt" ) = False Session( "mail" ) = False Session( "noteq" ) = False Session( "RFail" ) = False Session( "RC" ) = False Session( "exist" ) = False Session( "register" ) = False Session( "illegalusername" ) = False Session( "illegalpass" ) = False Session( "loginFailure" ) = False Session( "out" ) = False Session( "khali" ) = False Session( "tapal" ) = False Session( "Contact" ) = False Session( "send" ) = False Session( "illegalF_Name" ) = False Session( "illegalL_Name" ) = False Session( "FNkhali" ) = False Session( "LNkhali" ) = False Session( "EMkhali" ) = False Session( "MBkhali" ) = False Session( "MSkhali" ) = False session("MesLen") = False session("FName")="" session("LName")="" session("St")="" session("Cty")="" session("Cntry")="" session("HomePhone")="" session("Mob")="" session("Emailaddress")="" session("Mes")="" session("User_Name")="" session("Sec_Qsn")="" session("answer")="" session("finalcheck") = false If Session( "login" ) = 1 Then sCartItemNums = session("cartitemnumarray") nCartItemQtys = session("cartitemqtyarray") nNumCartItems = ubound(sCartItemNums) IF nNumCartItems = 0 Then session("current") = True End If 'Determine the mode of this page's operation. If we got here from a ' link that had a "mode" querystring of "add", mode is add: sMode = request.querystring("mode") 'Or, we could have gotten here from a form: select case request.form("cmdSubmit") case "Proceed to Checkout" sMode = "checkout" case "Recalculate Order" sMode = "recalc" case "Continue Shopping" sMode = "continue" end select if sMode = "add" then session("current") = False nThisItemIndex = 0 sItemNo = ucase(request.querystring("itemno")) if nNumCartItems > 0 then for i = 1 to nNumCartItems if ucase(scartitemnums(i)) = sItemNo then nThisItemIndex = i exit for end if next end if if nThisItemIndex = 0 then nThisItemIndex = nNumCartItems + 1 redim Preserve sCartItemNums(nThisItemIndex) redim Preserve nCartItemQtys(nThisItemIndex) sCartItemNums(nThisItemIndex) = sItemNo nCartItemQtys(nThisItemIndex) = 1 else nCartItemQtys(nThisItemIndex) = nCartItemQtys(nThisItemIndex) + 1 end if session("cartitemnumarray") = sCartItemNums session("cartitemqtyarray") = nCartItemQtys nNumCartItems = ubound(sCartItemNums) end if if sMode = "recalc" or sMode = "checkout" or sMode = "continue" then session("current") = False nTotalItems = 0 for i = 1 to nNumCartItems nThisQty = int(request.form("txtItemQty" & i)) nTotalItems = nTotalItems + nThisQty nCartItemQtys(i) = nThisQty next If nTotalItems = 0 Then session("current") = true End If session("cartitemnumarray") = sCartItemNums session("cartitemqtyarray") = nCartItemQtys end if if sMode = "checkout" then session("finalcheck") = true end if 'Move to another page based on mode. ' If mode is "add" or "recalc", we stay here. ' If mode is "continue", we move back to the main page so the user ' can shop more. ' If mode is "checkout", we stay here but change the mode th select case sMode case "continue" session("current") = False nTotalItems = 0 for i = 1 to nNumCartItems nThisQty = int(request.form("txtItemQty" & i)) nTotalItems = nTotalItems + nThisQty nCartItemQtys(i) = nThisQty next If nTotalItems = 0 Then session("current") = true End If session("cartitemnumarray") = sCartItemNums session("cartitemqtyarray") = nCartItemQtys response.redirect("default.asp") end select set db2con = server.createobject("adodb.connection") constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("./db/project_database.mdb")& ";" db2con.open constr if sMode = "checkout" then sPageHead = "Online Book Store Checkout" sPageCaption = "Checkout" else sPageHead = "Online Book Store Shopping Cart" sPageCaption = "Shopping Cart" end if %>
<% if sMode = "checkout" then %>
<% else %> <% end if %>
<% if session("current") = true then response.write "Your shopping cart is empty.
" response.write "
" response.write "
" response.write "" response.write "" response.write "Continue Shopping" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write "
" response.write vbcrlf else if sMode = "checkout" then %> Please provide the following information and click the "Submit Order" button to submit order.

Customer Information
Full Name:
Address:
City/State/ZIP:
Daytime Phone:
Shipping Information(If different from Customer's Information)
Full Name:
Address:
City/State/ZIP:
Daytime Phone:
Payment Information
Payment Method: Visa  Mastercard  American Express
Account Number:
Expiration (MM/YYYY):
<% else response.write "Hint: To remove Items from your shopping cart, Enter zero(0) in respective quantity text field" response.write "
" response.write "
" response.write "
" response.write "Your shopping cart currently contains these items:" end if %>

<% Quantity = 0 cSubTotal = 0 nNumItems = 0 for i = 1 to nNumCartItems confirm = Request.Form("selected" & CStr(i)) Set rsProducts = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM products WHERE itemproductnumber = '" & sCartItemNums(i) & "'" rsProducts.open sSQL, db2con, adopenstatic, adlockpessimistic, adcmdtext sTemp = "" Quantity = nCartItemQtys(i) nNumItems = nNumItems + nCartItemQtys(i) If Quantity > 0 Then %> <% %> <% if rsProducts("ItemSalePrice") > 0 then cPrice = rsProducts("ItemSalePrice") else cPrice = rsProducts("ItemRegularPrice") end if %> <% cExtension = nCartItemQtys(i) * cPrice cSubTotal = cSubTotal + cExtension %> <% End If next %> <% cShipping = 4.50 + (1.25 * nNumItems) %> <% cTotal = cSubTotal + cShipping %>
Quantity Item No. Item Name Price Extension
<% = sTemp %> <% = rsProducts("itemproductnumber") %> <% = rsProducts("itemname") %> <% = formatcurrency(cPrice) %> <% = formatcurrency(cExtension) %>
Subtotal <% = formatcurrency(cSubTotal) %>
Shipping & Handling <% = formatcurrency(cShipping) %>
Grand Total <% = formatcurrency(cTotal) %>

<% if Not session("finalcheck") = true then %>

<% end if %> <% if sMode = "checkout" then %> <% else %> <% end if %>
<% end if Else Call Response.Redirect( "loginhere.asp" ) End If %>