<%@ LANGUAGE="VBScript" %>
<% Response.AddHeader "cache-control", "private" %>
<% Response.AddHeader "pragma", "no-cache" %>
<% Response.Expires = 0 %>
<!--#include file="SFLib/currency.inc"-->
<%	
	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?DSN_NAME="&DSN_NAME

	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 = '" & XValAmt(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"))
	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 Then
%>


      <p>&nbsp;&nbsp;&nbsp;<br>
<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
    <tr>
      <td align="center" bgcolor="#170352"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>There are no items in your cart.</font></td>
    </tr>
<tr>
      <td align="center" height="150" valign="middle"><p><font face="Arial" size="4"><a href="javascript:history.go(-1)" target="_self">Back to Previous</a></p>
<p><a href="http://www.commerce-developers.com/store/" target="_top">Demo Mall Entrance</a></p></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
%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta name="Revisit-after" Content="3 Days">
<meta name="Robots" Content="All">
<meta name="description" content="CasperBusiness.com - On-Line Shopping Mall - Casper Wyoming.">
<meta name="keywords" content="Casper, Wyoming, Oil City, Ghost Town, Oregon Trail, Shopping, Apparel, Automotive, Baby Care, Books, Computers, Electronics, Food and Beverages, Gifts, Collectibles, Health, Beauty, Home, Garden, Music, Video, Movies, Office Supplies, Sports, Recreation, Toys, Games, Hobbies, Travel, Commerce Developers">
<title>CasperBusiness.com - On-Line Shopping Mall</title>
<style TYPE="text/css">
<!--
        A:link    {text-decoration: none; font-weight:bold; color:"#000040";}
        A:visited {text-decoration: none; font-weight:bold; color:"#000040";}
        A:active  {text-decoration: none; color:#00FFFF;}
        A:hover	  {color:#990000;}
        

-->
</style>
<base target="_self">
</head>

<body topmargin="25" leftmargin="0" bgcolor="#170352">
<div align="center">
  <center>
  <table border="2" cellpadding="10" cellspacing="0" width="700" style="border-style: ridge; border-color: #1D0466" bordercolor="#250583" bordercolordark="#1D0466" bordercolorlight="#2B0697" background="images/CircuitBoard.gif">
  </center><center>
  <tr>
    <td>
      <div align="center">
        <table border="0" cellpadding="0" cellspacing="0" width="680" height="259">
          <tr>
            <td width="655" valign="top" align="center" height="21" style="border-left-style: outset; border-right-style: outset; border-top-style: solid; border-bottom-style: outset">
      <!--webbot bot="Include" U-Include="ShoppingBanner.htm" TAG="BODY" startspan -->

<div align="center">
  <center>
        <table border="0" cellpadding="2" width="530">
          <tr>
        <td width="110">
          <p align="center"><a href="search.asp" target="_top"><img border="0" src="images/LeftButton.gif" width="100" height="50"></a></td>
        <td width="310">
          <p align="center"><a href="index.htm" target="_top"><img border="0" src="images/ShoppingLogo.gif" alt="CasperBusiness.com - Shop Casper On-Line" width="300" height="50"></a></td>
        <td width="110">
          <p align="center"><a href="order.asp" target="_top"><img border="0" src="images/RightCart.gif" alt="View Cart or Check Out" width="100" height="50"></a></td>
          </tr>
        </table>
  </center>
</div>

<!--webbot bot="Include" endspan i-checksum="12414" -->

            </td>
          </tr>
          <tr>
            <td width="655" valign="top" align="center" height="238" style="border-left-style: outset; border-right-style: outset; border-top-style: solid; border-bottom-style: outset">
<!--#include file="order.htm"-->

<div align=<%=TableAlign%>>
  <table border=<%=BorderSize%> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
    <tr>
      <td bgcolor="#170352" 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="#170352" 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="#170352" width="10%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Quantity</font></td>
      <td bgcolor="#170352" width="12%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Total</font></td>
      <td bgcolor="#170352" width="8%" align="center"><%=CellFontStyle%><font face=<%=FontType1&","&FontType2%> color=<%=CellFontColor%> size=<%=FontSize%>>Modify</font></td>
      <td bgcolor="#170352" 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 %>

  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="HTMLMarkup" endspan -->
<form method="post" action="<%= SSLPath %>?Prev_ID=<%= Cust_ID %>&ORDER_ID=<%= ORDER_ID %>" onsubmit="return FrontPage_Form2_Validator(this)" name="FrontPage_Form2" language="JavaScript">
<input type="hidden" name="DSN_Name" value="<%= Session("DSN_Name") %>">

<!--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>
	<%Response.Write "Handling: " & Handling & "HS: " & HandlingSwitch & "AS: " & ApplyShipping 
	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
		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">
		  <%
		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 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>
</td>
          </tr>
  </center>
          <tr>
            <td valign="middle" align="center" style="border-left-style: outset; border-right-style: outset; border-top-style: solid; border-bottom-style: outset" height="200">
      <!--webbot bot="Include" U-Include="copyfoot.htm" TAG="BODY" startspan -->

<p ALIGN="center"><strong><font color="#000080" face="Arial" size="3"><font face="Arial"><b>&nbsp;&nbsp;&nbsp;<a href="http://www.casperbusiness.com/shopping.htm" target="_top"><font size="3"><br>
</font></a></b></font></font><a href="http://www.commerce-developers.com/StoreFront.htm" target="_top"><font color="#000080" face="Arial" size="3">Open a New Global Location on the Internet<br>
</font></a></strong><font face="Verdana" size="2">Commerce Developers can build your company a powerful,<br>
          flexible, and full-featured <a href="http://www.commerce-developers.com/StoreFront.htm" target="_top" style="text-decoration: none;"> e-commerce storefront for your
          website</a>. </font></p>

        <blockquote>
          <p align="center"><strong><a href="../ConsultationRequest.asp"><font face="Arial" size="3">Free Initial Consultation</font></a></strong></p>
          <p align="center"><font face="Arial" size="2">This is for Demonstration Purposes
Only.<br>
 Any resemblance to actual merchants is strictly coincidental.</font></p>

<p align="center"><font face="Arial" size="2">�Copyright 1999-2005 Commerce
Developers. All rights reserved. <a href="http://www.commerce-developers.com/privacy.htm" target="_top">Privacy Policy</a></font></p>

<p align="center"><strong><a href="javascript:history.go(-1)" target="_self" style="text-decoration: none"><font face="Arial" size="2">BACK</font></a></strong></p>

<p align="center"><a href="http://www.commerce-developers.com/" target="_top"><img border="0" src="images/ComDevLogo.gif" alt="Commerce Developers - E-Commerce Solutions for Small Business" WIDTH="200" HEIGHT="50"><br>
</a>&nbsp;&nbsp;&nbsp; </p>
        </blockquote>
<!--webbot bot="Include" endspan i-checksum="45194" -->

            </td>
          </tr>
        </table>
      </div>
 

<% End If %>
<% Connection.Close 
   Set Connection = Nothing
%>
</body>