<% Dim sItemNums(0) sCartItemNums = session("CartItemNumArray") nCartItemQtys = session("CartItemQtyArray") nNumCartItems = ubound(sCartItemNums) '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 Visit" sMode = "continue" end select if sMode = "add" then 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 for i = 1 to nNumCartItems if request.form("txtItemQty" & i)="" or isnumeric(request.form("txtItemQty" & i))=false then nThisQty=1 Else nThisQty = int(request.form("txtItemQty" & i)) end if nCartItemQtys(i) = nThisQty next session("cartitemnumarray") = sCartItemNums session("cartitemqtyarray") = nCartItemQtys 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" 'response.redirect("default2.asp") response.redirect("Default.htm") end select set dbMain = server.createobject("ADODB.Connection") SPath=Server.MapPath("ASPStore.mdb") dbMain.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SPath dbMain.open if sMode = "checkout" then sPageHead = "ASP Unleashed Online Store Checkout" sPageCaption = "Checkout" else sPageHead = "ASP Unleashed Online Store Shopping Cart" sPageCaption = "Shopping Cart" end if %> Marble Slabs & Tiles in inida , Green Marble in india, White Marble, makrana marble,Dolomitem,Sandstone exporters,Sandstone suppliers,indian Granite exporter in india
 

ISO-9001

Search

       Home         Contact Us

Slates | Granite | Marble | Cobbles | Pebbles | Mosaics | Limestones | Sandstones | Quartzite |


<% if sMode = "checkout" then %>
<% else %> <% end if %> <% if nNumCartItems = 0 then response.write "There are no items in Your Query.
" else if sMode = "checkout" then %>

Your Query is ready to submit. Please provide the following information and click the "Submit Query" button.

Customer Information
Name:
Address:
City/State/Country:
Daytime Phone:
E-Mail
<% else response.write " " & vbcrlf response.write "You want to know information about following product(s):" end if %>

<% sTemp = "" nNumItems = nNumItems + nCartItemQtys(i) %> <% if rsProducts("ItemSalePrice") > 0 then cPrice = rsProducts("ItemSalePrice") else cPrice = rsProducts("ItemRegularPrice") end if %> <% cExtension = nCartItemQtys(i) * cPrice cSubTotal = cSubTotal + cExtension %> <% next %> <% cShipping = 4.50 + (1.25 * nNumItems) %> <% cTotal = cSubTotal + cShipping %>
Quantity Item No.

Item Name <% cSubTotal = 0 nNumItems = 0 for i = 1 to nNumCartItems Set rsProducts = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM products WHERE itemproductnumber = '" & _ sCartItemNums(i) & "'" rsProducts.open sSQL, dbMain, adopenstatic, _ adlockpessimistic, adcmdtext if rsProducts.eof=true or rsProducts.bof=true then rsProducts.close sSQL = "SELECT * FROM products WHERE Secitemproductnumber = '" & _ sCartItemNums(i) & "'" rsProducts.open sSQL, dbMain, adopenstatic, _ adlockpessimistic, adcmdtext end if %>

<% = sTemp %> <% = rsProducts("itemproductnumber") %> <% = rsProducts("itemname") %>

 

<% if sMode = "checkout" then %> <% else %> <% end if %>

  Copyright Stone India All Rights Reserved.

  Your use of this website constitutes acceptance of the Privacy Policy and Terms & Conditions
  This site is best viewed in Netscape 4.5 or Internet Explorer 4.0 or higher with resolution 800 x 600 pixels

 
<% end if %>