<%@ LANGUAGE="VBScript" %>
<% Response.AddHeader "cache-control", "private" %>
<% Response.AddHeader "pragma", "no-cache" %>
<% Response.Expires = 0 %>
<!--#include file="SFLib/currency.inc"-->
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   System      :   StoreFront 2000 Version 4.04.1
'   Date        :   2.24.2000
'   Author      :   LaGarde, Incorporated
'   Description :   StoreFront Customer Order Tracking Routines
'   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 = Trim(Session("ORDER_ID"))
	Cust_ID = Trim(Request.Cookies("CustID"))
	session.LCID = Session("LCID")

%>


<!--#include file="SFLib/design.inc"-->
<!--#include file="SFLib/currency.inc"-->

<%

SQL = "SELECT GRAND_TOTAL from customer WHERE " _
	 & " CUSTOMER_ID = " & ORDER_ID & ""
	Set RSOrderCheck = Connection.Execute(SQL)
	If FormatCurrency(RSOrderCheck("GRAND_TOTAL")) > FormatCurrency("0") Then
	Set RSOrderCheck = nothing
	Connection.Close
	Set Connection = nothing
	Response.Redirect "order_complete.asp"

	End If

'***** MODIFY ITEMS IN CURRENT ORDER *****************************
	If Request("MODIFY") = "1" Then
	
	   SQL = " SELECT PRICE, DESCRIPTION, SHIP, WEIGHT FROM PRODUCT WHERE " _
		& " PRODUCT_ID = '" & Request("PRODUCT_ID") & "' "
	   set RSUpdt = Connection.Execute(SQL)

	   SQL = "UPDATE ORDERS SET QUANTITY = " & Request("QUANTITY") & ", " _
		& " SHIP = '" & XValAmt((RSUpdt("SHIP")*Request("Quantity"))) & "', " _
		& " TOTAL = '" & XValAmt((RSUpdt("Price")*Request("Quantity"))) & "', " _
		& " WEIGHT = '" & ((RSUpdt("WEIGHT"))*Request("Quantity")) & "' " _
		& " WHERE ORDERS.ID = " & Request("ID") & " "
		'response.write SQL
	   set RSMod = Connection.Execute(SQL)
	Set RSMod = nothing
	Set RSUpdt = nothing
'***** RE-ORDER ITEMS IN PREVIOUS ORDER *****************************
	ElseIf Request("RE-ORDER") = "1" Then
	
		
	For Each element In Request.Form
	If InStr(element,"PRODUCT_ID") Then 
	PROD_NAME = element
	End If
	Next

	PRODUCT_ID = Request(""&PROD_NAME&"")	
	
	SQLStmt = " SELECT PRICE, DESCRIPTION, MESSAGE, WEIGHT, SHIP FROM PRODUCT WHERE "
	SQLStmt = SQLStmt & " PRODUCT_ID = '" & PRODUCT_ID & "' "
	Set RSOrder = Connection.Execute(SQLStmt)
	
	DESCRIPTION = RSOrder("DESCRIPTION")
	WEIGHT = RSOrder("WEIGHT")
	SHIP = RSOrder("SHIP")
	ProdPrice = RSOrder("Price")

	Set RSOrder = nothing

	ExtPrice =(XValAmt(ProdPrice)*Request("Quantity"))
	ExtWeight = (XValAmt(WEIGHT)*Request("Quantity"))
	ExtShip = (XValAmt(SHIP)*Request("QUANTITY"))
	AttA = Trim(Replace(Request("AttributeA"),"'","''"))
	AttB = Trim(Replace(Request("AttributeB"),"'","''"))
	AttC = Trim(Replace(Request("AttributeC"),"'","''"))
	
		SQL = "SELECT * FROM orders WHERE (PRODUCT_ID = '" & PRODUCT_ID & "' AND"_
		     &" ORDER_ID = " & Session("ORDER_ID") & ""_
			 &" AND ATTRIBUTEA = '"& AttA & "' AND ATTRIBUTEB = '"& AttB &"' AND" _
			 &" ATTRIBUTEC = '"& AttC &"')"

		Set RSOrdChk = Connection.Execute(SQL)

		If (RSOrdChk.BOF AND RSOrdChk.EOF) Then

			SQL = "INSERT INTO ORDERS(ORDER_ID, PRODUCT_ID," _
			 & " DESCRIPTION, ATTRIBUTEA, ATTRIBUTEB, ATTRIBUTEC, QUANTITY, WEIGHT, SHIP, PRICE, TOTAL) " _
			 & " VALUES(" & Session("ORDER_ID") & "," _
			 & " '" & PRODUCT_ID & "', '" & DESCRIPTION & "'," _
			 & " '" & AttA & "', '" & AttB & "', '" & AttC & "', "_
			 & " " & Request("Quantity") & "," _
			 & " '" & ExtWeight & "', '" & ExtShip & "', " _
			 & " '" & ProdPrice & "'," _
			 & " '" & FormatCurrency(ExtPrice) & "')"

			Set RSAddProd = Connection.Execute(SQL)
		ElseIf ((Trim(RSOrdChk("ATTRIBUTEA")) <> AttA) OR (Trim(RSOrdChk("ATTRIBUTEB")) <> AttB) OR (Trim(RSOrdChk("ATTRIBUTEC")) <> AttC)) Then	

			SQL = "INSERT INTO ORDERS(ORDER_ID, PRODUCT_ID," _
			 & " DESCRIPTION, ATTRIBUTEA, ATTRIBUTEB, ATTRIBUTEC, QUANTITY, WEIGHT, SHIP, PRICE, TOTAL) " _
			 & " VALUES(" & Session("ORDER_ID") & "," _
			 & " '" & PRODUCT_ID & "', '" & DESCRIPTION & "'," _
			 & " '" & AttA & "', '" & AttB & "', '" & AttC & "', "_
			 & " " & Request("Quantity") & "," _
			 & " '" & ExtWeight & "', '" & ExtShip & "', " _
			 & " '" & ProdPrice & "'," _
			 & " '" & ExtPrice & "')"

			Set RSAddProd = Connection.Execute(SQL)

		ElseIf ((Trim(RSOrdChk("ATTRIBUTEA")) = AttA and Trim(RSOrdChk("ATTRIBUTEB")) = AttB and Trim(RSOrdChk("ATTRIBUTEC")) = AttC) AND RSOrdChk("PRODUCT_ID") = PRODUCT_ID) Then
Set RSOrdChk = nothing
			SQL = "SELECT Sum(QUANTITY) AS OrdQuan, Sum(TOTAL) AS OrdTotal, Sum(WEIGHT) AS OrdWt, Sum(SHIP) As OrdShip FROM orders " _
			 & "WHERE (PRODUCT_ID = '" & PRODUCT_ID & "' AND ORDER_ID = " & Session("ORDER_ID") & " "_
			 &" AND ATTRIBUTEA = '"& AttA & "' AND ATTRIBUTEB = '"& AttB &"' AND ATTRIBUTEC = '"& AttC &"')"
	
			Set RSOrdUpdt = Connection.Execute(SQL)
			UpdtQnty = ((RSOrdUpdt("OrdQuan"))+(Request("Quantity")))
			UpdtExtPrice = (XValAmt(RSOrdUpdt("OrdTotal"))+(ExtPrice))
			UpdExtWeight = XValAmt(RSOrdUpdt("OrdWt")+ExtWeight)
			UpdExtShip = XValAmt(RSOrdUpdt("OrdShip")+ExtShip)
			SQL = "UPDATE orders SET QUANTITY = '" & UpdtQnty & "', PRICE = '" & ProdPrice & "', TOTAL = '" & UpdtExtPrice & "',"_
			 & " WEIGHT = '" & UpdExtWeight & "', SHIP = '" & ValAmt(UpdExtShip) & "' WHERE (PRODUCT_ID = '" & PRODUCT_ID & "' AND ORDER_ID = " & Session("ORDER_ID") & " "_
			  &" AND ATTRIBUTEA = '"& AttA & "' AND ATTRIBUTEB = '"& AttB &"' AND ATTRIBUTEC = '"& AttC &"')"
	
			Set RSUpdtProd = Connection.Execute(SQL)
			Set RSUpdtProd = nothing
		End If


	If Request.Cookies("CUSTID") <> "" Then
		SQL = "SELECT GRAND_TOTAL FROM customer WHERE CUSTOMER_ID = " & Request.Cookies("CUSTID") & ""
		set RSOrderCheck = Connection.Execute(SQL)
		If Not RSOrderCheck.EOF Then
			If FormatCurrency(RSOrderCheck("GRAND_TOTAL")) = FormatCurrency("0") Then
			Set RSOrderCheck = nothing
				SQL = "DELETE * FROM ORDERS WHERE ID = " & Request("ID") & ""
				Set RSDel = Connection.Execute(SQL)
			End If
		End If
	End If

'***** DELETE ITEMS FROM CURRENT ORDER *******************
	ElseIf Request("DELETE") = "1" Then

	   SQL = "DELETE * FROM ORDERS WHERE ID = " & Request("ID") & ""
	   set RSDel = Connection.Execute(SQL)
	Set RSDel = nothing
	End If
	

'****** GET RSAdmin DATA *************************
	SQL = "SELECT * FROM Admin"
	set RSAdmin = Connection.Execute(SQL)
	
	SQL = "SELECT COUNTRY from locales WHERE Country_ABB = " _
	 & " '" & Trim(RSAdmin("ORIGIN_COUNTRY")) & "' "
	Set RSDefCountry = Connection.Execute(SQL)


'***** SET RSAdmin VARIABLES **********************
'***** SET RSAdmin VARIABLES **********************
	SSLPath = Trim(RSAdmin("SSL_PATH"))
	OCountry = Trim(RSAdmin("ORIGIN_COUNTRY"))
	OZip = Trim(RSAdmin("ORIGIN_ZIP"))
	ShipType = Trim(RSAdmin("SHIP_TYPE"))
	Handling = Trim(RSAdmin("HANDLING"))
	DefCountry = Trim(RSDefCountry("COUNTRY"))
	DefCountryAbb = Trim(RSAdmin("ORIGIN_COUNTRY"))
	CODAmt = Trim(RSAdmin("COD_AMOUNT"))
	ShipMin = Trim(RSAdmin("SHIP_MIN"))
	HandlingSwitch = Trim(RSAdmin("HANDLINGSWITCH"))
	COD = Trim(RSAdmin("COD"))
	CREDIT = Trim(RSAdmin("CREDIT"))
	PO = Trim(RSAdmin("PO"))
	ECHECK = Trim(RSAdmin("ECHECK"))
	PHONEFAX = Trim(RSAdmin("PHONEFAX"))
	INTERNETCASH = Trim(RSAdmin("INTERNET_CASH"))
	UseCookies = Trim(RSAdmin("COOKIES"))
	set RSAdmin = nothing


'****** GET ORDER DETAIL **************************
	If Request.Cookies("CustID") <> "" Then
		CUST_ID = Request.Cookies("CustID")
		SQL = "SELECT ORDERS.PRODUCT_ID, " _
			& "ORDERS.PRICE, ORDERS.ATTRIBUTEA, ORDERS.ATTRIBUTEB, ORDERS.ATTRIBUTEC, " _
			& "ORDERS.TOTAL, PRODUCT.WEIGHT, " _
			& "ORDERS.QUANTITY, ORDERS.ID, ORDERS.DESCRIPTION " _
			& "FROM ORDERS, PRODUCT " _
			& "WHERE (ORDERS.ORDER_ID = " & CUST_ID & " " _
			& "AND ORDERS.PRODUCT_ID = PRODUCT.PRODUCT_ID)"
		set CustOrder = Connection.Execute(SQL)
	End If

	SQL = "SELECT ORDERS.PRODUCT_ID, " _
		& "ORDERS.PRICE, ORDERS.ATTRIBUTEA, ORDERS.ATTRIBUTEB, ORDERS.ATTRIBUTEC, " _
		& "ORDERS.TOTAL, PRODUCT.WEIGHT, " _
		& "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)

	If NOT RSOrder.EOF Then

'****** GET COUNTRIES FOR SHIP TO LIST **********************	
	SQL = "SELECT country, country_abb FROM locales WHERE (active = '1' " _
		& "AND country <> NULL)ORDER BY country ASC"
	set RSCountry = Connection.Execute (SQL)

'****** GET STATES FOR SHIP TO LIST *************************
	SQL = "SELECT state, state_abb FROM locales WHERE (active = '1' " _
		& "AND state <> NULL)ORDER BY state ASC"
	set RSState = Connection.Execute (SQL)

'***** CHECK FOR HANDLING CHARGE EXEMPT ORDER **************************
	SQL = "SELECT Count(product.PRODUCT_ID) AS CntShipExempt FROM product, orders WHERE (orders.PRODUCT_ID = "_
	& "product.PRODUCT_ID AND ORDERS.ORDER_ID = " & ORDER_ID & " AND product.SHIPSWITCH = '1')"
	Set  RSCheckShip = Connection.Execute(SQL)

'***** CHECK FOR SHIP EXEMPT ORDER **************************
	If RSCheckShip("CntShipExempt") > 0 Then 'There are items to be shipped
		ApplyShipping = 1 'Show Shipping
		SQL = "SELECT METHODS, CODE from shipping WHERE ACTIVE = '1'"
		set RSShipMeth = Connection.Execute (SQL)
	Else 'There are NO items that are being shipped
		ApplyShipping = 0 'Don't Show Shipping
	End If
	Set RSCheckShip = nothing
	
	End If
	
%>
<!--#include file="SFLib/ship.inc"-->

<!--#include file="neworder.htm"-->
<% 
If Request.Cookies("CustID") = "" Then
%>
<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
    <tr>
      <td align="center" colspan="6" bgcolor="<%= CellColor %>"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>There are no previous orders available.</font></td>
    </tr>
  </table>
</div>
<%
ElseIf Request.Cookies("CustID") <> "" Then

	If Not (RSOrder.EOF AND RSOrder.BOF) Then
		RSID = RSOrder("ID")
	End If

	If Not (CustOrder.EOF AND CustOrder.BOF) Then
		COID = CustOrder("ID")
	End If

If RSID <> COID Then 
%>
<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
    <tr><td bgcolor="<%=CellColor%>" colspan="6" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Your Last Order</font></td></tr>
    <tr>
	  <td bgcolor="<%=CellColor%>" width="50%" colspan="2" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%></font></td>
      <td bgcolor="<%=CellColor%>" width="12%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblPriceActive = "1" Then%><%=lblPrice%><%Else%>Price<%End If%></font></td>
      <td bgcolor="<%=CellColor%>" width="10%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Quantity</font></td>
      <td bgcolor="<%=CellColor%>" width="12%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Total</font></td>
      <td bgcolor="<%=CellColor%>" width="8%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Re-Order</font></td> 
    </tr>

    <%

CurrentRecord = 0
Do While NOT CustOrder.EOF
%>
    <!--webbot BOT="HTMLMarkup" startspan -->
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.QUANTITY.value == "")
  {
    alert("Please enter a value for the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  if (theForm.QUANTITY.value.length < 1)
  {
    alert("Please enter at least 1 characters in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  var checkOK = "0123456789-";
  var checkStr = theForm.QUANTITY.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("Please enter only digit characters in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseInt(allNum);
  if (chkVal != "" && !(prsVal >= "1"))
  {
    alert("Please enter a value greater than or equal to \"1\" in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan -->
<form method="POST" action="neworder.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
  <%
	AttA = CustOrder("AttributeA")
	AttB = CustOrder("AttributeB")
	AttC = CustOrder("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&" "
%>
  <input type="hidden" name="AttributeA" value="<%= AttA %>">
   <input type="hidden" name="AttributeB" value="<%= AttB %>">
   <input type="hidden" name="AttributeC" value="<%= AttC %>">
  <!--webbot bot="HTMLMarkup" endspan -->
    <tr>
      <td align="left" valign="top" colspan="2"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= CustOrder("DESCRIPTION")&" - "&ATTResponse %></font></td>
      <td align="right" valign="top"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(CustOrder("PRICE")) %></font></td>
      <td align="right" valign="top"><!--webbot bot="Validation" s-display-name="Quantity" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" s-validation-constraint="Greater than or equal to" s-validation-value="1" --><input type="text" size="2" name="QUANTITY" value="<%= CustOrder("QUANTITY") %>"></font></td>
    <td align="right" valign="top"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(CustOrder("TOTAL")) %></font></td>
    <td align="right" valign="top"><input type="hidden" name="PRODUCT_ID" value="<%= CustOrder("PRODUCT_ID") %>"> <input type="hidden" name="ID" value="<%= CustOrder("ID") %>"> <input type="hidden" name="ORDER_ID" value="<%= ORDER_ID %>"> <input type="hidden" name="RE-ORDER" value="1"> <input type="submit" name="ModButton" value="RE-ORDER">
      <!--webbot BOT="HTMLMarkup" startspan -->
</form> 
<!--webbot bot="HTMLMarkup" endspan -->
    </td>
  </tr>
  <%
CustOrder.MoveNext
CurrentRecord = CurrentRecord = 1
Loop
End If
%></table>
</div><br><% End If %>
<%
If Not (RSOrder.EOF and RSOrder.BOF) Then 
%>
<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
    <tr>
      <td align="center" colspan="6" bgcolor="<%= CellColor %>"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Your Current Order</font></td>
    </tr>
    <tr>
      <td bgcolor="<%=CellColor%>" width="50%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%></font></td>
      <td bgcolor="<%=CellColor%>" width="12%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>><%If lblPriceActive = "1" Then%><%=lblPrice%><%Else%>Price<%End If%></font></td>
      <td bgcolor="<%=CellColor%>" width="10%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Quantity</font></td>
      <td bgcolor="<%=CellColor%>" width="12%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Total</font></td>
      <td bgcolor="<%=CellColor%>" width="8%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Modify</font></td>
      <td bgcolor="<%=CellColor%>" width="8%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Delete</font></td>
    </tr>
    <% 
CurrentRecord = 0
Do While NOT RSOrder.EOF
%>
    <!--webbot BOT="HTMLMarkup" startspan -->
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.QUANTITY.value == "")
  {
    alert("Please enter a value for the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  if (theForm.QUANTITY.value.length < 1)
  {
    alert("Please enter at least 1 characters in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  var checkOK = "0123456789-";
  var checkStr = theForm.QUANTITY.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("Please enter only digit characters in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }

  var chkVal = allNum;
  var prsVal = parseInt(allNum);
  if (chkVal != "" && !(prsVal >= "1"))
  {
    alert("Please enter a value greater than or equal to \"1\" in the \"Quantity\" field.");
    theForm.QUANTITY.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan -->
<form method="POST" action="neworder.asp" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1">
<%
	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&" "

%>
  
  <!--webbot bot="HTMLMarkup" endspan -->
    <tr>
      <td align="center" valign="top"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= RSOrder("DESCRIPTION")&" - "&AttResponse%></font></td>
      <td align="center" valign="top"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(RSOrder("PRICE")) %></font></td>
      <td align="center" valign="top"><!--webbot bot="Validation" s-display-name="Quantity" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" s-validation-constraint="Greater than or equal to" s-validation-value="1" --><input type="text" size="2" name="QUANTITY" value="<%= RSOrder("QUANTITY") %>"></td>
      <td align="center" valign="top"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(RSOrder("TOTAL")) %></font></td>
      <td align="center" valign="top"><input type="hidden" name="PRODUCT_ID" value="<%= RSOrder("PRODUCT_ID") %>"> <input type="hidden" name="ID" value="<%= RSOrder("ID") %>"> <input type="hidden" name="ORDER_ID" value="<%= ORDER_ID %>"> <input type="hidden" name="MODIFY" value="1"><input type="submit" name="ModButton" value="MODIFY">
        <!--webbot BOT="HTMLMarkup" startspan -->
</form> 
<!--webbot bot="HTMLMarkup" endspan -->
      </td>
      <td align="center" valign="top">
        <!--webbot BOT="HTMLMarkup" startspan -->
<form action="neworder.asp" method="POST">
<!--webbot bot="HTMLMarkup" endspan -->
        <input type="hidden" name="ID" value="<%= RSOrder("ID") %>"><input type="hidden" name="ORDER_ID" value="<%= ORDER_ID %>"><input type="hidden" name="DELETE" value="1"><p><input type="submit" name="DelButton" value="DELETE"> </p>
        <!--webbot BOT="HTMLMarkup" startspan -->
</form>
<!--webbot bot="HTMLMarkup" endspan -->
      </td>
    </tr>
    <%
RSOrder.MoveNext
CurrentRecord = CurrentRecord = 1
Loop
	SQL = "SELECT TOTAL AS SubTotal FROM ORDERS WHERE ORDER_ID = " & ORDER_ID & " "
	set RSSumOrd = Connection.Execute(SQL)
RSSumOrd.MoveFirst
CurrentRecord = 0
Do While NOT RSSumOrd.EOF

	CurrTotal = CCur(RSSumOrd("SubTotal"))+CurrTotal
	
RSSumOrd.MoveNext
CurrentRecord = CurrentRecord = 1
Loop
SubTotal = CurrTotal	
set RSSumOrd = nothing

%>

    <!--webbot BOT="HTMLMarkup" startspan -->
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
<script Language="JavaScript"><!--
function WrtCookie(ORDERID)
{
var today = new Date();
var ExpDate = new Date(today.getTime() + (365 * 24 * 60 * 1000));
var Path = "/";
var CustID = ORDERID;
document.cookie = "CustID=" + CustID +"; expires=" + ExpDate.toGMTString();
}

function FrontPage_Form3_Validator(theForm)
{
  if (theForm.Country.selectedIndex < 0)
  {
    alert("Please select one of the \"country\" options.");
    theForm.Country.focus();
    return (false);
  }

<% If ShipType = "2" AND ApplyShipping = "1" Then %>

  var checkOK = "0123456789-";
  var checkStr = theForm.DEST_ZIP.value;
  var allValid = true;
  var decPoints = 0;
  var allNum = "";
  for (i = 0;  i < checkStr.length;  i++)
  {
    ch = checkStr.charAt(i);
    for (j = 0;  j < checkOK.length;  j++)
      if (ch == checkOK.charAt(j))
        break;
    if (j == checkOK.length)
    {
      allValid = false;
      break;
    }
    allNum += ch;
  }
  if (!allValid)
  {
    alert("Please enter only digit characters in the \"Destination Zip Code\" field.");
    theForm.DEST_ZIP.focus();
    return (false);
  }

  if (theForm.ShipMeth.selectedIndex < 0)
  {
    alert("Please select one of the \"shipping method\" options.");
    theForm.ShipMeth.focus();
    return (false);
  }
  
  if (theForm.ShipMeth.selectedIndex == 0)
  {
    alert("The first \"shipping method\" option is not a valid selection.  Please choose one of the other options.");
    theForm.ShipMeth.focus();
    return (false);
  }
  
<% End If %>

  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan -->
<form method="post" action="<%= SSLPath %>" onsubmit="return FrontPage_Form3_Validator(this)" name="FrontPage_Form3">
<input type="hidden" name="Prev_ID" value="<%= Cust_ID %>">
<input type="hidden" name="Order_ID" value="<%= Order_ID %>">

<!--webbot bot="HTMLMarkup" endspan -->
	<tr>
	  <td colspan="5" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>SubTotal:&nbsp;</font></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(SubTotal) %>&nbsp;</font></td>
	</tr>
	<% If Handling > 0 AND (HandlingSwitch = "0" OR ApplyShipping = "1") Then %>
	<tr>
	  <td align="right" colspan="5"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Handling Charges:&nbsp;</font></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(Handling) %>&nbsp;</font></td>
	</tr>
	<% End If %>
    <% If ApplyShipping = "1" Then %>
    <% If ShipType = "1" Then %>
	<tr>
	  <td align="right" colspan="5"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Standard Shipping:&nbsp;</font></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(Shipping()) %>&nbsp;</font></td>
	</tr>
	<% If PrmShipping > 0 Then %>
	<tr>
	  <td colspan="5" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Check here for Premium Shipping: &nbsp; </font><input type="checkbox" name="PrmShip" value="1"></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(PrmShipping()) %>&nbsp;</font></td>
	</tr>
	<% End If %>
    <% ElseIf ShipType = "2" Then %>
    <tr>
	  <td colspan="5" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Please indicate the zip code to which the order will be shipped:&nbsp;</font></td>
	  <td colspan="1" align="right"><!--webbot bot="Validation" S-Display-Name="Destination Zip Code" S-Data-Type="Integer" S-Number-Separators="x" B-Value-Required="TRUE" --><input type="text" Name="DEST_ZIP" size="10"></td>
    </tr>
    <tr>
	  <td colspan="4" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Please select the desired shipping method: &nbsp;</font></td>
	  <td colspan="2" align="right"><!--webbot bot="Validation" s-display-name="Shipping method must be selected." b-value-required="TRUE" b-disallow-first-item="TRUE" --><select name="ShipMeth" size="1">
          <option selected>Please select a shipping method</option>
		  <% 
		CurrentRecord = 0
		Do While NOT RSShipMeth.EOF
		%>
		  <option><%= RSShipMeth("METHODS") %></option>
		  <%
		RSShipMeth.MoveNext
		CurrentRecord = CurrentRecord = 1
		Loop
		%>
        </select></td>
    </tr>
    <% ElseIf ShipType = "3" Then %>
	<tr>
	  <td align="right" colspan="5"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Standard Shipping:&nbsp;</font></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(Shipping()) %>&nbsp;</font></td>
	</tr>
	<% If PrmShipping > 0 Then %>
	<tr>
	  <td colspan="5" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Check here for Premium Shipping: &nbsp; </font><input type="checkbox" name="PrmShip" value="1"></td>
	  <td colspan="1" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>><%= FormatCurrency(PrmShipping()) %>&nbsp;</font></td>
	</tr>
	<% End If %>
    <% End If %>
    <% End If %>
	<tr>
	  <td colspan="4" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Please indicate the State to which the order will be shipped: &nbsp;</font></td>
	  <td colspan="2" align="right"><!--webbot bot="Validation" s-display-name="State order is to be shipped to must be selected." b-value-required="TRUE" b-disallow-first-item="TRUE" -->
	    <select name="State" size="1">
		  <%
		CurrentRecord = 0
		Do While NOT RSState.EOF
		%>
		  <option value="<%= RSState("State_Abb") %>"><%= RSState("State") %></option>
		  <%
		RSState.MoveNext
		CurrentRecord = CurrentRecord = 1
		Loop
		Set RSState = nothing
		%>	
	    </select></td>
    </tr>
	<tr>
	  <td colspan="4" align="right"><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Please indicate the country to which the order will be shipped: &nbsp;</font></td>
	  <td colspan="2" align="right"><!--webbot bot="Validation" s-display-name="Country order is to be shipped to must be selected." b-value-required="TRUE" b-disallow-first-item="TRUE" -->
	    <select name="Country" size="1"> 
		  <option value="<%= DefCountryAbb %>"><%= DefCountry %></option>
		  <%
		CurrentRecord = 0
		Do While NOT RSCountry.EOF
		%>
		  <option value="<%= RSCountry("Country_Abb") %>"><%= RSCountry("Country") %></option>
		  <%
		RSCountry.MoveNext
		CurrentRecord = CurrentRecord = 1
		Loop
		Set RSCountry = nothing
		%>	
	    </select></td>
    </tr>
    <tr>
		<td colspan=4 align=right><%=FontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=FontColor%> size=<%=FontSize%>>Payment Method: &nbsp;</font></td>
		<td colspan=2 align=right>
		  <select name="PAYMENT_METHOD" size="1">
		    <% If CREDIT = "1" Then %>
		    <option value="CREDIT">Credit Card</option>
			<% End If %>
			<% If INTERNETCASH = "1" Then %>
		    <option value="INTERNETCASH">InternetCash&#153;</option>
			<% End If %>
		    <% If ECHECK = "1" Then %>
		    <option value="ECHECK">Electronic Check</option>
			<% End If %>
		    <% If PHONEFAX = "1" Then %>
		    <option value="PHONEFAX">Phone or Fax</option>
			<% End If %>
		    <% If PO = "1" Then %>
		    <option value="PO">Purchase Order</option>
			<% End If %>
		    <% If COD = "1" Then %>
		    <option value="COD">COD <% If CODAmt <> "0" Then Response.write "ADD "& FormatCurrency(CODAmt) %></option>
			<% End If %>
	      </select></td>
    </tr>

    <tr>
      <td colspan="6" align="center"> 
        <input type="submit" name="final_order" OnClick="WrtCookie(<%= ORDER_ID%>)" value="***  FINALIZE MY ORDER  ***">
        <!--webbot BOT="HTMLMarkup" startspan -->
	  </form>
<!--webbot bot="HTMLMarkup" endspan --></td>
    </tr>
  </font>
</table>
</div>
<%
If Not(RSOrder.EOF AND RSOrder.BOF) Then
RSOrder.MoveFirst
End If
If Not(CustOrder.EOF AND CustOrder.BOF) Then
CustOrder.MoveFirst
End If
%>
<% 
ElseIf (RSOrder.EOF and RSOrder.BOF) Then
	If Request.Cookies("CustID") <> "" Then 
		If (CustOrder.EOF AND CustOrder.BOF) Then 
Set CustOrder = nothing
%> 
<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>> 
    <tr>
      <td align="center" colspan="6" bgcolor="<%= CellColor %>"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>There are no previous orders available.</font></td>
    </tr>
  </table>
</div>
<% 
		End If
	End If 
End If 
%> 
<% 
Connection.Close 
   Set Connection = Nothing %>
<!--#include virtual="/hitcounter/hitcount20.inc"--></body>