<%@ LANGUAGE="VBSCRIPT" %>
<% PageStrings = "339, 356, 361, 375, 400, 470, 496, 503, 504, 505, 508, 509, 525, 545, 634, 635, 636, 637, 638, 639, 640, 641, 642, 664, 680, 827, 829, 837, 843, 844, 876, 964, 1045, 1045, 1046, 1139, 1186, 1204, 1205"
strThisBackPage = "orders" %>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/functions.asp"-->
<!--#include file="includes/back_security.asp"-->
<%
'===============================================
' CactuShop ASP Shopping Cart					
' Š1999-2004 Cactusoft Ltd. www.cactusoft.com
'===============================================
' All rights reserved.							
' Use of this code is covered by the terms and	
' conditions in the license agreement. No		
' unauthorized duplication or distribution is	
' permitted. Cactusoft's copyright notices must	
' remain in the ASP sections of the code.		
'===============================================

'-----------------------------------------------
'VIEW/MODIFY ORDER STATUS						
'The site owner can view orders, mark them as	
'sent, add comments on the current status or	
'just view them.								
'-----------------------------------------------

'-----------------------------------------------
'FIND WHICH ORDER WAS CLICKED ON				
'-----------------------------------------------
ON_ID = request.querystring("ON_ID")

strQuery = "SELECT * FROM (((tblCactuShopInvoiceRows INNER JOIN tblCactuShopOrderNumbers ON tblCactuShopInvoiceRows.IR_OrderNumber = tblCactuShopOrderNumbers.ON_ID) INNER JOIN tblCactuShopCurrencies ON tblCactuShopCurrencies.CUR_ID = tblCactuShopOrderNumbers.ON_CurrencyID) INNER JOIN tblCactuShopCardholderDetails ON tblCactuShopOrderNumbers.ON_CardholderID = tblCactuShopCardholderDetails.CD_ID) INNER JOIN tblCactuShopLanguages ON tblCactuShopOrderNumbers.ON_Language = tblCactuShopLanguages.LANG_ID WHERE ON_ID = " & ON_ID
Call ExecuteSQL(strQuery, numCursorType, objRecordSet)


numRecordCount = objRecordSet.recordcount

If numRecordCount>0 then
	ON_Details = objRecordSet("ON_Details")
	ON_TotalPrice = objRecordSet("ON_TotalPrice")
	ON_Date = objRecordSet("ON_Date")
	ON_Status = objRecordSet("ON_Status")
	ON_Details = objRecordSet("ON_Details")
	ON_LastModified = objRecordSet("ON_LastModified")
	ON_Sent = objRecordSet("ON_Sent")
	ON_Invoiced = objRecordSet("ON_Invoiced")
	ON_Shipped = objRecordSet("ON_Shipped")
	ON_Paid = objRecordSet("ON_Paid")
	ON_CouponCode = objRecordSet("ON_CouponCode")
	ON_CouponDiscountTotal = objRecordSet("ON_CouponDiscountTotal")
	ON_PricesIncTax = objRecordSet("ON_PricesIncTax")
	ON_TaxDue = objRecordSet("ON_TaxDue")

	ON_CurrencyID = objRecordSet("ON_CurrencyID")
	ON_TotalPriceGateway = objRecordSet("ON_TotalPriceGateway")
	ON_CurrencyIDGateway = objRecordSet("ON_CurrencyIDGateway")

	ON_PaymentGateWay = objRecordSet("ON_PaymentGateWay")
	ON_ReferenceCode = objRecordSet("ON_ReferenceCode")

	ON_SendOrderUpdateEmail = objRecordSet("ON_SendOrderUpdateEmail")

	ON_Language = objRecordSet("ON_Language")
	LANG_BackName = objRecordSet("LANG_BackName")
	
	'Affiliate-related records
	CD_AffiliateID = objRecordSet("CD_AffiliateID")
	If IsNull(CD_AffiliateID) then CD_AffiliateID = 0
	ON_AffiliatePaymentID = objRecordSet("ON_AffiliatePaymentID")
	If IsNull(ON_AffiliatePaymentID) then ON_AffiliatePaymentID = 0
	ON_AffiliateTotalPrice = objRecordSet("ON_AffiliateTotalPrice")
	ON_AffiliatePercentage = objRecordSet("ON_AffiliatePercentage")

	numShippingPriceExTax = objRecordSet("ON_ShippingPrice")
	numShippingPriceIncTax = numShippingPriceExTax + objRecordSet("ON_ShippingTax")
	numOrderHandlingPriceExTax = objRecordSet("ON_OrderHandlingCharge")
	numOrderHandlingPriceIncTax = numOrderHandlingPriceExTax + objRecordSet("ON_OrderHandlingChargeTax")
	
	numTotal = objRecordSet("ON_TotalPrice")
	numDiscountPercentage = objRecordSet("ON_DiscountPercentage")

	CUR_Symbol = objRecordSet("CUR_Symbol")
	CUR_HasDecimals = objRecordSet("CUR_HasDecimals")

	CD_ID = objRecordSet("CD_ID")
	
	CD_EmailAddress = objRecordSet("CD_EmailAddress")
End if


'-----------------------------------------------
'LOOKUP COUPON IF THERE IS ONE
'-----------------------------------------------
If ON_CouponCode<>"" then
	strQuery2 = "SELECT * FROM tblCactuShopCoupons WHERE CP_CouponCode='" & ON_CouponCode & "'"
	Call ExecuteSQL(strQuery2, numCursorType, objRecordSet2)

	CP_DiscountValue = objRecordSet2("CP_DiscountValue")
	CP_DiscountType = objRecordSet2("CP_DiscountType")
	If CP_DiscountType = "f" then CP_DiscountValue = ON_CouponDiscountTotal
	CP_CouponCode = objRecordSet2("CP_CouponCode")
	objRecordSet2.close
End if
%>
<html>
<head>
<link href="includes/back_cactushopstylesheet.asp" rel="stylesheet" title="cactusoft" type="text/css">
<script LANGUAGE="Javascript">
<!-- Hide javascript from older browsers --
function PopUp(theURL,winName,features) {
        window.open(theURL,winName,features);
}
// end hide -->
</script>
<meta NAME="GENERATOR" Content="www.cactusoft.com">
<!---
===============================================================================
 CACTUSHOP v5 ASP SHOPPING CART Š1999-2004 CACTUSOFT LTD. - WWW.CACTUSHOP.COM
 All rights reserved.
===============================================================================
---->
<title><% =GetString("Config_headtitle") %></title>
</head>
<body bgcolor="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
	<td colspan="2"><!--#include file="includes/back_header.asp"--></td>
</tr>

</table>
<table border="0" cellpadding="0" cellspacing="0" width="660">
<tr>
    <td valign="top" width="190"><!--#include file="includes/back_menu.asp"--></td>

    <td valign="top"><form action="_update_orderstatus.asp" method="POST">
	<input type="hidden" value="<% =ON_ID %>" name="ON_ID">
	<input type="hidden" value="<% =request.QueryString("datValue1") %>" name="datValue1">
	<input type="hidden" value="<% =request.QueryString("strCallMode") %>" name="strCallMode">
	<input type="hidden" value="<% =request.QueryString("CD_EmailAddress") %>" name="CD_EmailAddress2">
	<input type="hidden" value="<% =request.QueryString("CP_CouponCode") %>" name="CP_CouponCode">
	<input type="hidden" value="<% =request.QueryString("AFP_ID") %>" name="AFP_ID">
	<table border="0" cellpadding="5" cellspacing="0" width="100%">
	<tr>
		<td class="largebold" colspan="2"><% WriteString("PageTitle_OrderDetails") %></td>
	</tr>
	<tr>
		<td colspan="2">
		<table border="0" cellpadding="5" cellspacing="0" width="100%">
		<tr>
			<td class="smallnormal" width="120" align="right"><% WriteString("ContentText_CustomerDetails") %></td>
			<td class="smallnormal"><a href="_modify_customerstatus.asp?CD_ID=<% =CD_ID %>"><img src="images_webshop/b_customer.gif" border="0"></a></td>
			<% if CD_AffiliateID <> 0 then %>
			<td class="smallnormal" width="120" align="right"><% WriteString("ContentText_AffiliateDetails") %></td>
			<td class="smallnormal"><a href="_modify_affiliate.asp?AF_ID=<% =CD_AffiliateID %>"><img src="images_webshop/b_affiliate.gif" border="0"></a></td>
			<% end if %>
		</tr>
		</table><hr></td>
	</tr>
	<tr>
		<td class="mednormal"><% WriteString("ContentText_OrderID") %></td>
		<td class="mednormal"><% =ON_ID %></td>
	</tr>
	<tr>
		<td class="mednormal"><% WriteString("ContentText_PONumber") %></td>
		<td class="mednormal"><% =ON_PurchaseOrderNo %></td>
	</tr>
	<tr>
		<td width=30% class="mednormal" valign="top"><% WriteString("ContentText_OrderDate") %></td>
		<td width=70% class="mednormal"><% =FriendlyDate(ON_Date,"d") %></td>
	</tr>
	<tr>
		<td class="mednormal"><% WriteString("ContentText_OrderValue") %></td>
		<td class="mednormal"><% =CUR_Symbol & " " & CurrencyDisplay(ON_TotalPrice, 1, CUR_HasDecimals) %></td>
	</tr>
	<tr>
		<td class="mednormal" valign="top"><% WriteString("ContentText_LastUpdate") %></td>
		<td class="mednormal"><% response.write(FriendlyDate(ON_LastModified,"t")) %></td>
	</tr>
	<tr>
		<td class="mednormal" valign="top"><% WriteString("ContentText_PaymentGateWay") %></td>
		<td class="mednormal"><% response.write(ON_PaymentGateWay) %></td>
	</tr>
	<tr>
		<td class="mednormal" valign="top"><% WriteString("ContentText_ReferenceCode") %></td>
		<td class="mednormal"><% response.write(ON_ReferenceCode) %></td>
	</tr>
	<tr>
		<td class="mednormal" valign="top"><% WriteString("FormLabel_Language") %></td>
		<td class="mednormal"><% response.write(LANG_BackName) %></td>
	</tr>
	<% if CD_AffiliateID <> 0 then %>
	<tr>
		<td class="mednormal" valign="top">Affiliate Commission</td>
		<td class="mednormal"><%= CUR_Symbol & " " & CurrencyDisplay(ON_AffiliateTotalPrice, 1, CUR_HasDecimals) %> * <%= ON_AffiliatePercentage %>% = <%= CUR_Symbol & " " & CurrencyDisplay((ON_AffiliatePercentage / 100) * ON_AffiliateTotalPrice, 1, CUR_HasDecimals) %> </td>		
	</tr>
	<% end if %>
	<tr>
		<td colspan="2"><hr></td>
	</tr>
	<tr>
		<td class="medbold" valign="top"><% WriteString("ContentText_OrderStatus") %></td>
		<td><table border="0" cellpadding="3" cellspacing="0" width="100%">
			<tr class="mainpagetableline2">
				<td><input type="checkbox" value="y" name="ON_Sent" <% If ON_Sent = "y" then response.write(" checked") %>></td>
				<td class="smallnormal"><% WriteString("ContentText_OrderStatusSent") %></td>
			</tr>
			<tr class="mainpagetableline">
				<td><input type="checkbox" value="y" name="ON_Invoiced" <% If ON_Invoiced = "y" then response.write(" checked") %>></td>
				<td class="smallnormal"><% WriteString("ContentText_OrderStatusInvoiced") %></td>
			</tr>
			<tr class="mainpagetableline">
				<td><input type="checkbox" value="y" name="ON_Paid"<% If ON_Paid = "y" then response.write(" checked") %>></td>
				<td class="smallnormal"><% WriteString("ContentText_OrderStatusPaid") %></td>
			</tr>
			<tr class="mainpagetableline2">
				<td><input type="checkbox" value="y" name="ON_Shipped" <% If ON_Shipped = "y" then response.write(" checked") %>></td>
				<td class="smallnormal"><% WriteString("ContentText_OrderStatusShipped") %></td>
			</tr>
		</table></td>
	</tr>
	<tr>
		<td colspan="2" class="medbold"><% WriteString("ContentText_OrderProgress") %></td>
	</tr>
	<tr>
		<td colspan="2" class="mednormal"><textarea name="ON_Status" cols="50" rows="8"><% =safeHTMLencode(ON_Status) %></textarea></td>
	</tr>
	<tr>
		<td colspan="2" class="smallnormal">
		<% if ON_SendOrderUpdateEmail = "y" then %>
			<input type="hidden" name="CD_EmailAddress" value="<%=CD_EmailAddress%>">
			<input type="checkbox" name="sendorderupdateemail" value="y" checked="checked"><% WriteString("ContentText_SendEmailToCustomer") %>
		<% else %>
			<input type="hidden" name="sendorderupdateemail" value="n"><% WriteString("ContentText_CustomerRequestedNoEmail") %>
		<% end if %>
		</td>
	</tr>
	<tr>
		<td colspan="2" align="right"><input type="submit" name="submit" value="<% WriteString("FormButton_Update") %>"><hr></td>
	</tr>
	<tr>
		<td class="medbold"><% WriteString("ContentText_OrderText") %>
		<td class="smallnormal"><a href="javascript:PopUp('_order_email.asp?ON_ID=<% =ON_ID %>','_blank','scrollbars=yes,width=580,height=380')"><% WriteString("ContentText_ClickHere") %></a></td>
	</tr>
	<tr>
		<td class="medbold"><% WriteString("ContentText_IssueInvoice") %>
		<td class="smallnormal">
		<% 
		'-----------------------------------------------
		'LOOKUP LANGUAGES AND GIVE INVOICE LINKS
		'We provide a list of languages - invoices
		'can be issued in any of the supported languages
		'providing an invoice template is available.
		'-----------------------------------------------
		strQuery = "SELECT * FROM tblCactuShopLanguages WHERE LANG_LiveFront = 'y'"
		Call ExecuteSQL(strQuery, numCursorType, objRecordSet2)
		
		Do while not objRecordSet2.EOF
			If ON_Language = objRecordSet2("LANG_ID") then
				response.write("<a href=""_invoice.asp?ON_ID=" & ON_ID & "&LANG_ID=" & objRecordSet2("LANG_ID") & """>" & Ucase(objRecordSet2("LANG_BackName")) & "</a>&nbsp;")
			else
				response.write("<a href=""_invoice.asp?ON_ID=" & ON_ID & "&LANG_ID=" & objRecordSet2("LANG_ID") & """>" & objRecordSet2("LANG_BackName") & "</a>&nbsp;")
			End if
		objRecordSet2.movenext
		Loop
		objRecordSet2.close
		%></td>
	</tr>
	<% If CP_CouponCode<>"" then %>
	<tr>
		<td class="medbold"><% WriteString("ContentText_ViewCouponUsed") %>
		<td class="smallnormal"><a href="_coupons_list.asp?CP_CouponCode=<% =ON_CouponCode %>"><% WriteString("ContentText_ClickHere") %></a></td>
	</tr>
	<% End if %>
	</table>
	</form>
	<table border="0" cellpadding="5" cellspacing="0" width="100%">
	<tr>
		<td colspan="5" class="medbold"><hr><% WriteString("PageTitle_OrderDetails") %></td>
	</tr>
	<tr>
		<td width="43%"></td>

<%
'-----------------------------------------
'PRICES INCLUDING TAX
'-----------------------------------------
If ON_PricesIncTax = "y" then
	If Application(LICENSENUMBER & "showtaxdisplay") = "y" then %>
		<td align="right" class="smallboldgrey" width="17%"><% WriteString("ContentText_ExTax") %> (<% =CUR_Symbol %>)&nbsp;</td>
		<td align="right" class="smallboldgrey" width="17%"><% WriteString("ContentText_IncTax") %>&nbsp;</td>
	<% Else %>
		<td align="right" colspan="2" class="smallboldgrey" width="34%"><% WriteString("ContentText_Price") %>&nbsp;</td>
	<% End if
Else
	'-----------------------------------------
	'PRICES EXCLUDING TAX
	'----------------------------------------- %>
	<td align="right" class="smallboldgrey" width="17%"><% WriteString("ContentText_Price") %>&nbsp;</td>
	<td align="right" class="smallboldgrey" width="17%"><% WriteString("ContentText_Tax") %> (%)&nbsp;</td>

<% End if %>

	<td align="right" class="smallboldgrey" width="9%"><% WriteString("ContentText_Qty") %></td>
	<td align="right" class="smallboldgrey" width="14%"><% WriteString("ContentText_Total") %></td>
</tr>

<%	Do Until objRecordSet.EOF %>
	<tr bgcolor="#DDDDDD"> 
		<td colspan="5" class="medbold" valign="middle"><% response.write(objRecordSet("IR_VersionName")) %></td>
	</tr>
	<tr height="20" bgcolor="#EEEEEE"> 
		<td class="smallnormal" valign="middle"><% response.write(objRecordSet("IR_VersionCode")) %></td>
<%

'-----------------------------------------
'PRICES INCLUDING TAX
'-----------------------------------------
If ON_PricesIncTax = "y" then
	If Application(LICENSENUMBER & "showtaxdisplay") = "y" then %>
		<td class="smallnormal" align="right" valign="middle"><% response.write(CUR_Symbol & " " & CurrencyDisplay(objRecordSet("IR_PricePerItem") - objRecordSet("IR_TaxPerItem"), 1, objRecordSet("CUR_HasDecimals"))) %></td>
		<td class="smallnormal" align="right" valign="middle"><% response.write(CUR_Symbol & " " & CurrencyDisplay(objRecordSet("IR_TaxPerItem"), 1, objRecordSet("CUR_HasDecimals"))) %></td>
	<% Else %>
		<td class="smallnormal" align="right" valign="middle" colspan="2"><% response.write(CUR_Symbol & " " & CurrencyDisplay(objRecordSet("IR_PricePerItem"), 1, objRecordSet("CUR_HasDecimals"))) %></td>
	<% End if %>
	<td class="smallnormal" align="right" valign="middle"><% response.write(objRecordSet("IR_Quantity")) %></td>
	<td class="smallnormal" align="right" valign="middle"><% response.write(CUR_Symbol & " " & CurrencyDisplay(objRecordSet("IR_PricePerItem") * objRecordSet("IR_Quantity"), 1, objRecordSet("CUR_HasDecimals"))) %></td>
<% Else
'-----------------------------------------
'PRICES EXCLUDING TAX
'----------------------------------------- 	%>
	<td class="smallnormal" align="right" valign="middle"><% response.write(CUR_Symbol & " " & CurrencyDisplay(objRecordSet("IR_PricePerItem"), 1, objRecordSet("CUR_HasDecimals"))) %></td>
	<td class="smallnormal" align="right" valign="middle"><% response.write(objRecordSet("IR_TaxPerItem") * 100) %></td>
	<td class="smallnormal" align="right" valign="middle"><% response.write(objRecordSet("IR_Quantity")) %></td>
	<td class="smallnormal" align="right" valign="middle"><% response.write(CUR_Symbol & " " & CurrencyDisplay((0.0001 + (objRecordSet("IR_PricePerItem") * objRecordSet("IR_Quantity") * (1 + objRecordSet("IR_TaxPerItem")))), 1, objRecordSet("CUR_HasDecimals"))) %></td>
<% End if %>

	</tr>
<%
'-----------------------------------------------
'CALCULATE TOTAL
'The total amount without tax is not stored - 
'this is calculated from the invoice rows
'records as we cycle through them here.
'-----------------------------------------------
'-----------------------------------------
'PRICES INCLUDING TAX
'-----------------------------------------
If ON_PricesIncTax = "y" then

	numRowPriceExTax = Round((objRecordSet("IR_Quantity") * (objRecordSet("IR_PricePerItem") - objRecordSet("IR_TaxPerItem"))) - 0.0001, 2)
	numRowPriceIncTax = objRecordSet("IR_PricePerItem") * objRecordSet("IR_Quantity")
	'Price of row inc tax (row = items x qty)

	numTotalPriceExTax = numTotalPriceExTax + numRowPriceExTax
	numTotalPriceIncTax = numTotalPriceIncTax + numRowPriceIncTax
	'Running total of order price ex tax
Else
'-----------------------------------------
'PRICES EXCLUDING TAX
'-----------------------------------------
	numRowPriceExTax = Round(objRecordSet("IR_PricePerItem") * objRecordSet("IR_Quantity") , 2)
	numRowPriceIncTax = objRecordSet("IR_PricePerItem") * objRecordSet("IR_Quantity") * (1 + objRecordSet("IR_TaxPerItem"))
	'Price of row ex tax (row = items	qty)

	numTotalPriceExTax = numTotalPriceExTax + numRowPriceExTax
	numTotalPriceIncTax = numTotalPriceIncTax + numRowPriceIncTax
	'Running total of order price ex tax
End if
objRecordSet.movenext
loop

'-----------------------------------------
'FINAL TOTAL DEPENDS ON COUNTRY
'-----------------------------------------
If ON_TaxDue = 1 then
	strOrderValueTotal = GetString("ContentText_TotalOrderValue") & " = " & CUR_Symbol & " " & CurrencyDisplay(numTotalPriceIncTax, 1, CUR_HasDecimals) & "<br>"
	strShipping = GetString("ContentText_Shipping") & " = " & CUR_Symbol & " " & CurrencyDisplay(numShippingPriceIncTax, 1, CUR_HasDecimals)
	If numOrderHandlingPriceIncTax > 0 then strOrderHandlingCharge = "<br>" & GetString("ContentText_OrderHandlingCharge") & " = " & CUR_Symbol & " " & CurrencyDisplay(numOrderHandlingPriceIncTax, 1, CUR_HasDecimals)
Else
	strOrderValueTotal = GetString("ContentText_TotalOrderValue") & " = " & CUR_Symbol & " " & CurrencyDisplay(numTotalPriceExTax, 1, CUR_HasDecimals) & "<br>"
	strShipping = GetString("ContentText_Shipping") & " = " & CUR_Symbol & " " & CurrencyDisplay(numShippingPriceExTax, 1, CUR_HasDecimals)
	If numOrderHandlingPriceExTax > 0 then strOrderHandlingCharge = "<br>" & GetString("ContentText_OrderHandlingCharge") & " = " & CUR_Symbol & " " & CurrencyDisplay(numOrderHandlingPriceExTax, 1, CUR_HasDecimals)
End if

'-----------------------------------------
'LOOKUP GATEWAY CURRENCY USED
'Only needed if different from the one the
'customer used.
'-----------------------------------------
If ON_CurrencyIDGateway <> ON_CurrencyID then
	'-----------------------------------------
	'LOOKUP DETAILS OF CURRENCY GATEWAY USES
	'-----------------------------------------
	strQuery = "SELECT * FROM tblCactuShopCurrencies WHERE CUR_ID = " & ON_CurrencyIDGateway
	Call ExecuteSQL(strQuery, numCursorType, objRecordSet2)

	aryCurrenciesGateway(1) = objRecordSet2("CUR_Symbol")
	If objRecordSet2("CUR_HasDecimals") = "y" then aryCurrenciesGateway(4) = true else aryCurrenciesGateway(4) = false

	objRecordSet2.close

	numFinalTotalPriceInTaxGateway = Round(ON_TotalPriceGateway, 2)
	strOrderValueTotalGateway = "<span class=largeboldalt>" & GetString("ContentText_AmountProcessGateway") & " " & aryCurrenciesGateway(1) & " " & CurrencyDisplay(numFinalTotalPriceInTaxGateway, 1, aryCurrenciesGateway(4)) & "</span>"

else
	strOrderValueTotalGateway = ""
End if


%>
	<tr> 
		<td class="mednormal" align="right" colspan="5">
		<%
		'-----------------------------------------------
		'WRITE TOTALS
		'-----------------------------------------------
		If ON_CouponCode <> "" then
			If CP_DiscountType = "p" then
				strCouponDiscount = GetString("ContentText_CouponDiscount") & " = " & CP_DiscountValue & "%<br>"
			Else
				strCouponDiscount = GetString("ContentText_CouponDiscount") & " = " & CUR_Symbol & " " & CurrencyDisplay(CP_DiscountValue, 1, CUR_HasDecimals) & "<br>"
			End if
		End if
		
		If numDiscountPercentage <> 0 then
			strDiscountPercentage = GetString("ContentText_Discount") & " = " & numDiscountPercentage & "%<br>"
		End if

		strTotal = "<br><span class=medboldalt>" & GetString("ContentText_Total") & " = " & CUR_Symbol & " " & CurrencyDisplay(numTotal, 1, CUR_HasDecimals) & "</span><br>"

		response.write(strOrderValueTotal & strCouponDiscount & strDiscountPercentage & strShipping & strOrderHandlingCharge & "<br>" & strTotal & vbcrlf)
		
		If strOrderValueTotalGateway <> "" then response.Write "<br>" & strOrderValueTotalGateway
		%><hr></td>
	</tr>
	</table>
	<form method="post" action="_update_orderstatus.asp">
	<input type="hidden" name="strCallmode" value="Delete">
	<input type="hidden" name="ON_ID" value="<% =ON_ID %>">
	<table border="0" cellpadding="5" cellspacing="0" width="100%">
	<tr bgcolor="#EEEEEE">
		<td align="right" width=70><input type="submit" name="submit" value="<% WriteString("FormButton_Delete") %>"></td>
		<td class="medbold"><% WriteString("ContentText_DeleteThisOrder") %></td>
	</tr>
	</table>
	</form></td>
</tr>
</table>
</body>
</html>
<%
objDataConn.Close
set objDataConn = nothing
%>