<%@ LANGUAGE="VBScript" %>
<% Response.AddHeader "cache-control", "private" %>
<% Response.AddHeader "pragma", "no-cache" %>
<% Response.Expires = 0 %>

<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   System      :   StoreFront 2000 Version 4.00.2
'   Author      :   LaGarde, Incorporated
'   Description :   SF2k Database Upgrade
'
'   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 by LaGarde, Incorporated.  All rights reserved.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%	
	
	Dim DSN_Name

	DSN_Name = Session("DSN_Name")
	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open DSN_Name
	ORDER_ID = Request("ORDER_ID")
	PREV_ID = Request("PREV_ID")

'***** ACQUIRE DESIGN ELEMENTS ****************************************
%>
<!--#include file="SFLib/design.inc"-->
<!--#include file="SFLib/currency.inc"-->
<!--#include file="SFLib/tax.inc"-->
<!--#include file="SFLib/ship.inc"-->
<%
	
	SQLStmt = "SELECT GRAND_TOTAL from customer WHERE " _
		& " CUSTOMER_ID = " & ORDER_ID & ""
	Set RSOrderCheck = Connection.Execute(SQLStmt)
	If RSOrderCheck("GRAND_TOTAL") > FormatCurrency("0") Then
	Response.Redirect "order_complete.asp?DSN_NAME="&DSN_NAME
	Connection.Close
	End If
		
	SQL = "SELECT * FROM Admin"
	Set RSAdmin = Connection.Execute(SQL)
	
	SSLPath = RSAdmin("SSL_PATH")
	oCountry = RSAdmin("ORIGIN_COUNTRY")
	oZip = RSAdmin("ORIGIN_ZIP")
	ShipType = RSAdmin("SHIP_TYPE")
	Handling = RSAdmin("HANDLING")
	HandlingSwitch = RSAdmin("HANDLINGSWITCH")
	ShipMin = RSAdmin("SHIP_MIN")
	TransMethod = RSAdmin("TRANSACTION_METHOD")
	UseCookies = RSAdmin("COOKIES")
	COD = RSAdmin("COD")
	CREDIT = RSAdmin("CREDIT")
	PO = RSAdmin("PO")
	ECHECK = RSAdmin("ECHECK")
	PHONEFAX = RSAdmin("PHONEFAX")
	CODAmt = RSAdmin("COD_AMOUNT")
	TaxShip= RSAdmin("TAX_SHIP")
	SecShipType = RSAdmin("SHIP_TYPE_2")
	session.LCID = Trim(RSAdmin("LCID"))
	set RSAdmin = nothing
	Country = Request("Country")
	State = Request("STATE")
	Zip = Request("DEST_ZIP")
	PrmShip = Trim(Request("PrmShip"))
	PaymentMethod = Trim(Request("PAYMENT_METHOD"))
	ShipMeth = Trim(Request("ShipMeth"))
	ShipMethName = ShipMeth
	
	If UseCookies = "1" Then
	If PREV_ID <> "" Then
	SQLStmt = "SELECT * FROM Customer WHERE CUSTOMER_ID = " & PREV_ID & ""
	Set RSPrevOrd = Connection.Execute(SQLStmt)
	%>
	
	<!--#include file="SFLib/cookie.inc"-->
	<%
	
	End If
	End If

	SQL = "SELECT ORDERS.PRODUCT_ID, " _
		& "ORDERS.PRICE, ORDERS.ATTRIBUTEA, ORDERS.ATTRIBUTEB, ORDERS.ATTRIBUTEC, " _
		& "ORDERS.TOTAL, PRODUCT.WEIGHT, PRODUCT.CTAX, PRODUCT.STAX, " _
		& "ORDERS.QUANTITY, ORDERS.ID, ORDERS.DESCRIPTION " _
		& "FROM ORDERS, PRODUCT " _
		& "WHERE ORDERS.ORDER_ID = " & ORDER_ID & " " _
		& "AND ORDERS.PRODUCT_ID = PRODUCT.PRODUCT_ID"
	set RSOrder = Connection.Execute(SQL)
	CTaxSwitch = RSOrder("CTAX")
	STaxSwitch = RSOrder("STAX")
	
	If NOT RSOrder.EOF Then
	
	SQL = "SELECT Sum(TOTAL) AS SubTotal FROM ORDERS WHERE " _
		& " ORDER_ID = " & ORDER_ID & " "
	set RSSumOrd = Connection.Execute(SQL)

	SubTotal = RSSumOrd("SubTotal")
	End If
	


'****** GET COUNTRIES FOR SHIP TO LIST **********************	
	SQL = "SELECT country, country_abb FROM locales WHERE (active = '1' " _
		& "AND country <> NULL)"
	set RSCountry = Connection.Execute (SQL)

'****** GET STATES FOR SHIP TO LIST *************************
	SQL = "SELECT state, state_abb FROM locales WHERE (active = '1' " _
		& "AND state <> NULL)"
	set RSState = Connection.Execute (SQL)
		
'****** GET SELECTED COUNTRY FOR SHIP TO LIST **********************	
	SQL = "SELECT country, country_abb FROM locales WHERE COUNTRY_ABB = '" & COUNTRY & "' "
	set RSSelCountry = Connection.Execute (SQL)

'****** GET SELECTED STATE FOR SHIP TO LIST *************************
	SQL = "SELECT state, state_abb FROM locales WHERE STATE_ABB = '" & STATE & "'"
	set RSSelState = Connection.Execute (SQL)


	If Shiptotal > 0 Then
	If PrmShip = "1" Then
	SpShipping = PrmShipping()
	Else
	StdShipping = Shipping()
	End If
	End If
	
	If StdShipping = "" Then StdShipping = 0 End If
	If SpShipping = "" Then SpShipping = 0 End If


	If CTaxSwitch = "1" Then
	 CTax = CountryTax()
	End If
	
	If STaxSwitch = "1" Then
	 STax = StateTax()
	End If

	 
	 Tax = FormatCurrency(CTax+STax)



'***** CHECK FOR HANDLING CHARGE EXEMPT ORDER **************************
	If HandlingSwitch = "1" Then
	SQL = "SELECT Count(product.PRODUCT_ID) AS CntShipExempt FROM product, orders WHERE (orders.PRODUCT_ID = product.PRODUCT_ID "_
	& "AND product.SHIPSWITCH = '0'AND ORDER_ID = " & ORDER_ID & ")"
	Set  RSCheckShip = Connection.Execute(SQL)
	
	If RSCheckShip("CntShipExempt") > 0 Then
	 UseHandling = 0
	Else
	 UseHandling = 1
	 Handling = 0
	End If
	Set RSCheckShip = nothing
	Else
	 UseHandling = 0
	End If
'***********************************************************
'*************** CHECK FOR COD CHARGES ********************
If PaymentMethod = "COD" Then
CODAmt = CODAmt
Else
CODAmt = 0
End If  
'********************** END COD ROUTINE **********************

GrandTotal = (SubTotal+StdShipping+SpShipping+Tax+Handling+CODAmt)

%>
<!--#include file="order_head.htm"--><center>
<html>

<body>
<table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> align=<%=TableAlign%> bgcolor=<%=TableBG%>>
  <tr>
    <td width="10%" bgcolor="<%=CellColor%>" align="center"><p><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblProductIDActive = "1" Then%><%=lblProductID%><%Else%>Product ID<%End If%></font></p></td>
    <td width="39%" bgcolor="<%=CellColor%>" align="center"><p><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%></font></p></td>
    <td width="10%" bgcolor="<%=CellColor%>" align="center"><p><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblPriceActive = "1" Then%><%=lblPrice%><%Else%>Price<%End If%></font></p></td>
    <td width="9%" bgcolor="<%=CellColor%>" align="center"><p><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Quantity</font></p></td>
    <td width="10%" bgcolor="<%=CellColor%>" align="center"><p><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Total</font></p></td>
  </tr>
  <% 
CurrentRecord = 0
Do While NOT RSOrder.EOF

	AttA = RSOrder("AttributeA")
	AttB = RSOrder("AttributeB")
	AttC = RSOrder("AttributeC")
	
	If AttA <> "" Then ATTResponse = AttA End If
	If AttB <> "" Then ATTResponse = AttResponse&", "&AttB End If
	If AttC <> "" Then ATTResponse = AttResponse&", "&AttC End If
	ATTResponse = ATTResponse&" "

%>
  <tr align="center">
    <td width="10%" align="left"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= RSOrder("PRODUCT_ID") %></font>&nbsp;</td>
    <td width="39%" align="left"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= ATTResponse&RSOrder("DESCRIPTION") %>&nbsp;</font></td>
    <td width="10%" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(RSOrder("PRICE")) %> &nbsp;</font></td>
    <td width="9%" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= RSOrder("QUANTITY") %> &nbsp;</font>&nbsp;</td>
    <td width="10%" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(RSOrder("TOTAL")) %> &nbsp;</font></td>
  </tr>
  <%

AttResponse = ""
RSOrder.MoveNext
CurrentRecord = CurrentRecord = 1
Loop
%>
  <tr align="center"><td colspan="5"><hr></td></tr>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Subtotal:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(SubTotal) %></font></td>
  </tr>
  <% If CTax > 0 Then %>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>National Tax:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(CTax) %></font></td>
  </tr>
  <% End If %>
  <% If STax > 0 Then %>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>State or Local Tax:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(STax) %></font></td>
  </tr>
  <% End If %>
  <% If StdShipping <> "" or PrmShip <> "" Then %>
   <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><% If ShipType = "2" Then %><%=ShipMethName%><% ElseIf Request("PrmShip") = "1" Then %>Premium Shipping<% Else %>Shipping<% End If %>:&nbsp;</font></td>
    <td align="right" nowrap><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><% If Request("PrmShip") = "1" Then %><%= FormatCurrency(SpShipping) %><% ElseIf StdShipping > 0 Then%><%= FormatCurrency(StdShipping) %><% ElseIf StdShipping = "0" Then %>No Charge<% End If %></font></td>
  </tr>
  <% End If %>
  <% If Handling > 0 Then %>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Handling:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(Handling) %></font></td>
  </tr>
  <% End If %>
  <% If CODAmt > 0 Then %>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>COD Charge:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(CODAmt) %></font></td>
  </tr>
  <% End If %>
  <tr align="center">
    <td align="right" colspan="4"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Total Order:&nbsp;</font></td>
    <td align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(GrandTotal) %></font></td>
  </tr>
</table>
</center>
<% If PaymentMethod = "COD" Then %>
<!--#include file="cod.htm"-->
<% ElseIf PaymentMethod = "CREDIT" Then %>
<!--#include file="credit.htm"-->
<% ElseIf PaymentMethod = "PO" Then %>
<!--#include file="po.htm"-->
<% ElseIf PaymentMethod = "ECHECK" Then %>
<!--#include file="echeck.htm"-->
<% ElseIf PaymentMethod = "PHONEFAX" Then %>
<!--#include file="phonefax.htm"-->
<% End If %>
        </body>
    </html>
<% Connection.Close %>
<% 'Session.Abandon %>