<%@ 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.4
'   Date        :   7.14.2000
'   Author      :   LaGarde, Incorporated
'   Description :   StoreFront Order Summary 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")

	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 = '" & ValAmt(RSUpdt("SHIP")*Request("Quantity")) & "', " _
		& " TOTAL = '" & ValAmt((RSUpdt("Price")*Request("Quantity"))) & "', " _
		& " WEIGHT = '" & RSUpdt("WEIGHT")*Request("Quantity") & "' " _
		& " WHERE ORDERS.ID = " & Request("ID") & " "

	   set RSMod = Connection.Execute(SQL)
	Set RSMod = nothing
	Set RSUpdt = nothing

'***** 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

'***** INCLUDE DESIGN ELEMENTS **********************************
%>
<!--#include file="SFLib/design.inc"-->
<%

'****** 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 **********************
	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
%>
<!--#include file="SFLib/ship.inc"-->
<%
'****** GET ORDER DETAIL **************************
	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)
	
'****** 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
	
	If (RSOrder.EOF And RSOrder.BOF) Then
%>
<!--#include file="empty_order.htm"-->
            <p> <font face="Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">  <a href="http://www.sac-computer.com" style="color: #FFFFFF">Main<br>
            </a><img border="0" src="images/Spacer15.gif" width="15" height="1">  <a href="../sacweb2/CitrixAOS.htm" style="color: #FFFFFF"><br>
            </a></font>
            </p>
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="100%">
                  <p align="center"><b><font face="Arial" size="3">We Accept:</font></b></td>
              </tr>
              <tr>
                <td width="100%">
                  <p align="center">
                  <img border="0" src="credit_wh.gif" WIDTH="67" HEIGHT="45">
                </td>
              </tr>
            </table>
            <p> &nbsp;
            </p>
            <p align="center"><font size="3" face="Times New Roman"><b><font color="#000033"><img border="0" src="ball_but.gif" WIDTH="16" HEIGHT="16">
            </font><a href="shop_online.htm"><font color="#000033">Home</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
            <img border="0" src="ball_but.gif" width="16" height="16"> 
            </b>
            <a href="search.asp"><font size="3" color="#000033" face="Times New Roman"><b>Search</b></font></a><font color="#000033"><b>&nbsp;&nbsp;</b></font><b><font face="Arial" color="#000033">&nbsp;&nbsp;
            <img border="0" src="ball_but.gif" WIDTH="16" HEIGHT="16">  </font></b></font><a href="shop_online.htm"><b><font size="3" color="#000033" face="Times New Roman">Continue
            Shopping</font></b></a></p>
<div align="<%=TableAlign%>">
  <table border="<%=BorderSize%>" bordercolor="<%=BorderColor%>" cellpadding="<%=CellPadding%>" cellspacing="<%=CellSpacing%>" width="<%=TableWidth%>" bgcolor="<%=TableBG%>">
    <tr>
      <td align="center" bgcolor="<%= CellColor %>"><%=CellFontStyle%><font face="<%=FontType1&","&FontType2%>" color="<%=CellFontColor%>" size="<%=FontSize%>">There are no items in your cart.</font></td>
    </tr>
  </table>
</div>
<%
	Else
	
	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
%>
<!--#include file="order.htm"-->

<div align="<%=TableAlign%>">
  <table border="<%=BorderSize%>" bordercolor="<%=BorderColor%>" cellpadding="<%=CellPadding%>" cellspacing="<%=CellSpacing%>" width="<%=TableWidth%>" bgcolor="<%=TableBG%>">
    <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>
    <%
RSOrder.MoveFirst
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="HTMLMarkup" endspan -->
<form method="POST" action="order.asp?" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" language="JavaScript">
<%
	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="<%= Session("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="order.asp" method="POST">
<!--webbot bot="HTMLMarkup" endspan -->
        <input type="hidden" name="ID" value="<%= RSOrder("ID") %>"><input type="hidden" name="ORDER_ID" value="<%= Session("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>
    <%
AttResponse = ""
RSOrder.MoveNext
CurrentRecord = CurrentRecord = 1
Loop
Set RSOrder = 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 %>

  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>

<% 
'Generate Shipping Methods List
If ShipType = "2" Then
	
	SQL = "SELECT METHODS, CODE from shipping WHERE ACTIVE = '1'"
	set RSShipMeth = Connection.Execute(SQL)
	Do While NOT RSShipMeth.EOF
	Dim shipMethods
	shipMethods = shipMethods & vbCrLf & "<option>" & RSShipMeth("METHODS") & "</option>"
	RSShipMeth.MoveNext
	Loop
End If
%>
<%
'Generate State List
Do While NOT RSState.EOF
		Dim stateOption
		stateOption = stateOption & vbCrLf & "<option value=" & RSState("State_Abb")& ">" & RSState("State") & "</option>"
		RSState.MoveNext
Loop
%>	
<%
'Generate Country List
Do While NOT RSCountry.EOF
		Dim countryOption
		countryOption = countryOption & vbCrLf & "<option value=" & RSCountry("Country_Abb") & ">" & RSCountry("Country") & "</option>"
		RSCountry.MoveNext
Loop
%>

<!--webbot BOT="HTMLMarkup" endspan -->
<form method="post" action="<%= SSLPath %>" onsubmit="return FrontPage_Form2_Validator(this)" name="FrontPage_Form2" language="JavaScript">
<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>
			<%
		Response.Write shipMethods	
		Set RSShipMeth = nothing
			%>
        </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">
				<%
			Response.Write stateOption
			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>
				<%
			Response.Write countryOption
			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>

    <tr>
      <td colspan="6" align="center"> 
        &nbsp;</td>
    </tr>

    <tr>
      <td colspan="6" align="center"> 
            <p align="center">&nbsp;</p>
            <p align="center"><font size="3" face="Times New Roman"><b><font color="#000033"><img border="0" src="ball_but.gif" WIDTH="16" HEIGHT="16">
            </font><a href="shop_online.htm"><font color="#000033">Home</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
            <img border="0" src="ball_but.gif" width="16" height="16"> 
            </b>
            <a href="search.asp"><font size="3" color="#000033" face="Times New Roman"><b>Search</b></font></a><font color="#000033"><b>&nbsp;&nbsp;</b></font><b><font face="Arial" color="#000033">&nbsp;&nbsp;
            <img border="0" src="ball_but.gif" width="16" height="16">  </font></b></font><a href="shop_online.htm"><b><font size="3" color="#000033" face="Times New Roman">Continue
            Shopping</font></b></a></p>
            <table border="0" width="100%" cellspacing="0" cellpadding="0">
              <tr>
                <td width="100%">
                  <p align="center"><b><font face="Arial" size="3">We Accept:</font></b></td>
              </tr>
              <tr>
                <td width="100%">
                  <p align="center">
                  <img border="0" src="credit_wh.gif" WIDTH="67" HEIGHT="45">
                </td>
              </tr>
            </table>
            <p align="center">&nbsp;</p>
      </td>
    </tr>
</table>
</div>
<% End If %>
<% Connection.Close 
   Set Connection = Nothing
%>