<%@ LANGUAGE="VBScript" %><% Response.AddHeader "cache-control", "private" %><% Response.AddHeader "pragma", "no-cache" %><% Response.Expires = 0 %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 99 v.3.0.1 ' ' Author : LaGarde, Incorporated ' ' Notes : There are no configurable elements in this file. ' ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to LaGarde, Incorporated. Its use or disclosure in ' whole or in part without the expressed written permission of ' LaGarde, Incorporated is expressely prohibited. ' ' (c) Copyright 1998,1999 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %><% Dim DSN_Name DSN_Name = Session("DSN_Name") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DSN="&DSN_Name&"" If Request("MODIFY") = "1" Then SQLStmt = " SELECT PRICE, DESCRIPTION FROM PRODUCT WHERE " SQLStmt = SQLStmt & " PRODUCT_ID = '" & Request("PRODUCT_ID") & "' " Set RSUpdt = Connection.Execute(SQLStmt) MyCurrSymbol = FormatCurrency(1) MyCurrSymbol = Replace((MyCurrSymbol),"1","") MyCurrSymbol = Replace((MyCurrSymbol),",","") MyCurrSymbol = Replace((MyCurrSymbol),".","") MyCurrSymbol = Replace((MyCurrSymbol),"0","") ProdPrice = Replace(RSUpdt("Price"),MyCurrSymbol,"") rPrice = Replace((ProdPrice),",",".") ExtPrice = (RSUpdt("Price")*Request("Quantity")) ExtPrice = Replace((ExtPrice),MyCurrSymbol,"") RExtPrice = Replace((ExtPrice),",",".") SQLStmt = "UPDATE ORDERS SET QUANTITY = " & Request("QUANTITY") & ", " SQLStmt = SQLStmt & " TOTAL = " & RExtPrice & " " SQLStmt = SQLStmt & " WHERE ORDERS.ID = " & Request("ID") & " " Set RSMod = Connection.Execute(SQLStmt) ElseIf Request("DELETE") = "1" Then SQLStmt = "DELETE * FROM ORDERS WHERE ID = " & Request("ID") & "" Set RSDel = Connection.Execute(SQLStmt) End If SQLStmt = "SELECT * FROM Admin" Set RSAdmin = Connection.Execute(SQLStmt) SSLPath = RSAdmin("SSL_PATH") TaxCountry = RSAdmin("TAX_COUNTRY") CountryTaxAmt = RSAdmin("COUNTRY_TAX_AMOUNT") TaxState = RSAdmin("TAX_STATE") StateTaxAmt = RSAdmin("STATE_TAX_AMOUNT") ShippingA = CCur(RSAdmin("SHIPPING_A")) ShipAAmt = CCur(RSAdmin("SHIPA_AMOUNT")) ShippingB = CCur(RSAdmin("SHIPPING_B")) ShipABAmt = CCur(RSAdmin("SHIPAB_AMOUNT")) ShippingC = CCur(RSAdmin("SHIPPING_C")) ShipBCAmt = CCur(RSAdmin("SHIPBC_AMOUNT")) ShippingD = CCur(RSAdmin("SHIPPING_D")) ShipCDAmt = CCur(RSAdmin("SHIPCD_AMOUNT")) ShippingE = CCur(RSAdmin("SHIPPING_E")) ShipDEAmt = CCur(RSAdmin("SHIPDE_AMOUNT")) ShippingF = CCur(RSAdmin("SHIPPING_F")) ShipEFAmt = CCur(RSAdmin("SHIPEF_AMOUNT")) ShipF_UpAmt = CCur(RSAdmin("SHIPF_UP_AMOUNT")) SpShipAmt = CCur(RSAdmin("SPECIAL_SHIP_AMOUNT")) SpShipAAmt = CCur(ShipAAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipBAmt = CCur(ShipABAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipCAmt = CCur(ShipBCAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipDAmt = CCur(ShipCDAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipEAmt = CCur(ShipDEAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipFAmt = CCur(ShipEFAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) SpShipF_UpAmt = CCur(ShipF_upAmt+(RSAdmin("SPECIAL_SHIP_AMOUNT"))) 'Here we get the order detail for the current customer's order SQLStmt = "SELECT ORDERS.PRODUCT_ID, " SQLStmt = SQLStmt & "ORDERS.PRICE, " SQLStmt = SQLStmt & "ORDERS.TOTAL, " SQLStmt = SQLStmt & "ORDERS.QUANTITY, ORDERS.ID, PRODUCT.DESCRIPTION " SQLStmt = SQLStmt & "FROM ORDERS, PRODUCT " SQLStmt = SQLStmt & "WHERE ORDERS.ORDER_ID = " & Session("ORDER_ID") & " " SQLStmt = SQLStmt & "AND ORDERS.PRODUCT_ID = PRODUCT.PRODUCT_ID" 'Response.Write SQLStmt SET RSOrder = Connection.Execute(SQLStmt) If NOT RSOrder.EOF Then Set RSProduct = Connection.Execute(SQLStmt) SQLStmt = "SELECT Sum(TOTAL) AS SubTotal " SQLStmt = SQLStmt & "FROM ORDERS WHERE " SQLStmt = SQLStmt & " ORDER_ID = " & Session("ORDER_ID") & " " Set RSSumOrd = Connection.Execute(SQLStmt) SQLStmt = "SELECT (Sum(TOTAL) * " & CountryTaxAmt & ") AS CountryTax " SQLStmt = SQLStmt & "FROM ORDERS WHERE " SQLStmt = SQLStmt & " ORDER_ID = " & Session("ORDER_ID") & " " Set RSCountryTax = Connection.Execute(SQLStmt) SQLStmt = "SELECT (Sum(TOTAL) * " & StateTaxAmt & ") AS StateTax " SQLStmt = SQLStmt & "FROM ORDERS WHERE " SQLStmt = SQLStmt & " ORDER_ID = " & Session("ORDER_ID") & " " Set RSStateTax = Connection.Execute(SQLStmt) If RSSumOrd("SubTotal") <= CCur(ShippingA) Then Shipping = ShipAAmt ElseIf ((RSSumOrd("SubTotal") > CCur(ShippingA)) AND (RSSumOrd("SubTotal") <= CCur(ShippingB))) Then Shipping = ShipABAmt ElseIf ((RSSumOrd("SubTotal") > CCur(ShippingB)) AND (RSSumOrd("SubTotal") <= CCur(ShippingC))) Then Shipping = ShipBCAmt ElseIf ((RSSumOrd("SubTotal") > CCur(ShippingC)) AND (RSSumOrd("SubTotal") <= CCur(ShippingD))) Then Shipping = ShipCDAmt ElseIf ((RSSumOrd("SubTotal") > CCur(ShippingD)) AND (RSSumOrd("SubTotal") <= CCur(ShippingE))) Then Shipping = ShipDEAmt ElseIf ((RSSumOrd("SubTotal") > CCur(ShippingE)) AND (RSSumOrd("SubTotal") <= CCur(ShippingF))) Then Shipping = ShipEFAmt ElseIf RSSumOrd("SubTotal") > CCur(ShippingF) Then Shipping = ShipF_UpAmt End If If RSSumOrd("SubTotal") <= CCur(ShippingA) Then SpShipping = SpShipAAmt End If If ((RSSumOrd("SubTotal") > CCur(ShippingA)) AND (RSSumOrd("SubTotal") <= CCur(ShippingB))) Then SpShipping = SpShipBAmt End If If ((RSSumOrd("SubTotal") > CCur(ShippingB)) AND (RSSumOrd("SubTotal") <= CCur(ShippingC))) Then SpShipping = SpShipCAmt End If If ((RSSumOrd("SubTotal") > CCur(ShippingC)) AND (RSSumOrd("SubTotal") <= CCur(ShippingD))) Then SpShipping = SpShipDAmt End If If ((RSSumOrd("SubTotal") > CCur(ShippingD)) AND (RSSumOrd("SubTotal") <= CCur(ShippingE))) Then SpShipping = SpShipEAmt End If If ((RSSumOrd("SubTotal") > CCur(ShippingE)) AND (RSSumOrd("SubTotal") <= CCur(ShippingF))) Then SpShipping = SpShipEAmt End If If RSSumOrd("SubTotal") > CCur(ShippingF) Then SpShipping = SpShipF_UpAmt End If End If %> <% If Not RSOrder.EOF Then %> <% CurrentRecord = 0 Do While NOT RSOrder.EOF %> <% RSOrder.MoveNext CurrentRecord = CurrentRecord = 1 Loop %> &DSN_Name=<%= Session("DSN_Name") %>" onsubmit="return FrontPage_Form3_Validator(this)" name="FrontPage_Form3">

Description	Price	Quantity	Total	Modify Qty	Delete
<%= RSOrder("DESCRIPTION") %>	<%= FormatCurrency(RSOrder("PRICE"),2) %>	">	<%= FormatCurrency(RSOrder("TOTAL"),2) %>	"> "> ">	">">
SubTotal:					<%= FormatCurrency(RSSumOrd("SubTotal"),2) %>
<% If TaxState = "Not Applicable" Then %><%= TaxCountry %><% Else %><%= TaxState %><% End If%> Tax (if applicable):					<%= FormatCurrency(RSStateTax("StateTax"),2) %>
Standard Shipping:					<%= FormatCurrency(Shipping,2) %>
Please indicate the country to which the order will be shipped:				Please select a country United States Afghanistan Albania Algeria American Samoa Andorra Angola Antarctica Antigua & Barbuda Argentina Armenia Aruba Australia Austria Azerbaijan Bahamas Bahrain Bangladesh Barbados Belarus Belgium Belize Benin Bermuda Bhutan Bolivia Bosnia & Herzegovina Botswana Bouvet Island Brazil British Antarctica Territory British Indian Ocean Territory British West Indies Brunei Bulgaria Burundi Caledonia Cambodia Cameroon Canada Canary Islands Canton And Enderbury Islands Cape Verdi Islands Cayman Islands Central African Republic Chad Channel Islands UK Chile China Christmas Island Cocos (Keeling) Islands Colombia Comoros Congo, Republic of Congo, Democratic Republic of Cook Islands Costa Rica Croatia Cuba Curacao Cyprus Czech Republic Dahomey Dem. People's Republic of Korea Dem. Republic of Vietnam Denmark Djibouti Dominica Dominican Republic Dronning Muad Land - Antarctica Ecuador Egypt El Salvador England. UK Equatorial Guinea Estonia Ethiopia Faeroe Islands Falkland Islands Fiji Finland France French Guiana French Polynesia French Southern & Antarctica French Territory of Afars & Issas French West Indies Gabon Gambia Gaza Germany Ghana Gibraltar Georgia Greece Greenland Guadeloupe Guam Guatemala Guinea Guinea Bissau Guyana Haiti Heard & McDonald Islands Holland Honduras Hong Kong Hungary Iceland Ifni India Indonesia Iran Iraq Iraq-Saudi Arabia Neutral Zone Ireland Israel Italy Ivory Coast Jamaica Japan Johnston Atoll Jordan Kazakhstan Kenya Kuwait Kyrgyzstan Laos Latvia Lebanon Leeward Islands Lesotho Liberia Libya Liechtenstein Lithuania Luxembourg Macau Madagascar Malawi Malaysia Maldives Mali Malta Mariana Islands Martinique Mauritania Mauritius Melanesia Mexico Micronesia Midway Islands Moldova Monaco Mongolia Montserrat Montenegro Morocco Mozambique Myanmar Namibia Nauru Navassa Island Nepal Netherlands Netherlands Antilles Neutral Zone New Hebrides New Zealand Nicaragua Niger Nigeria Niue Norfolk Island Northern Ireland, UK North Korea Norway Oman Pacific Island Pakistan Panama Papua New Guinea Paracel Islands Paraguay Peru Philippines Pitcairn Poland Polynesia Portugal Portuguese Guinea Portuguese Timor Principe & Sao Tome Puerto Rico Qatar Republic of Congo Republic of Korea Reunion Romania Russia Rwanda Ryukyu Islands Sabah San Marino Sao Tome & Principe Saudi Arabia Scotland, UK Senegal Serbia Seychelles Sierra Leone Sikkim Singapore Slovakia Slovenia Solomon Islands Somalia Somaliliand South Africa South Korea Spain Spanish Sahara Spartly Islands Sri Lanka St. Christopher-Nevis-Anguilla St. Helena St. Kitts St. Lucia St. Pierre & Miquelon St. Vincent Sudan Surinam Svalbard & Jan Mayen Islands Swaziland Sweden Switzerland Syrian Arab Republic Taiwan Tanzania Thailand Togo Tonga Transkei Trinidad/Tobago Tunisia Turkey Turkmenistan Turks & Caicos Islands Uganda Ukraine United Arab Emirates United Kingdom United States Uruguay US Pacific Island US Virgin Islands Uzbekistan Vanuatu Vatican City Venezuela Vietnam Virgin Islands (British) Virgin Islands (US) Wake Island Wales, UK West Indies Western Samoa Windward Islands Yemen Zambia Zimbabwe All Others
Please indicate the state or Province to which the order will be shipped:				Please select a state Alabama Alaska Arizona Arkansas California Colorado Connecticut Delaware Florida Georgia Hawaii Idaho Illinois Indiana Iowa Kansas Kentucky Louisiana Maine Maryland Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota Ohio Oklahoma Oregon Pennsylvania Rhode Island South Carolina South Dakota Tennessee Texas Utah Vermont Virginia Washington Washington D.C. West Virginia Wisconsin Wyoming Alaska Hawaii Puerto Rico Alberta British Columbia Manitoba New Brunswick New Foundland Northwest Territories Nova Scotia Ontario Prince Edward Island Quebec Saskatchewan Yukon Territory All Others

<% Else %>

There are no items in your cart.

<% End If %> <% Connection.Close %>