<%@ LANGUAGE="VBScript" %> <% If Request("PaymentMethod") <> "PHONEFAX" Then %> <% Response.AddHeader "cache-control", "private" %> <% Response.AddHeader "pragma", "no-cache" %> <% Response.Expires = 0 %> <% Else %> <% BrowserType = Request.ServerVariables("HTTP_USER_AGENT") %> <% If InStr(BrowserType,"MSIE") Then %> <% Response.AddHeader "cache-control", "private" %> <% Response.AddHeader "pragma", "no-cache" %> <% Response.Expires = 0 %> <% Else %> <% Response.AddHeader "cache-control", "public" %> <% Response.Expires = 60 %> <% End If %> <% End If %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.04.0 ' Date : 1.6.2000 ' Author : LaGarde, Incorporated ' Description : StoreFront Order Confirmation 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 CARD_NAME, ORDER_ID, SHIP_MESSAGE, COMPANY, ADDRESS_1, ADDRESS_2, CITY, STATE, COUNTRY, ZIP, PHONE, FAX, E_MAIL, SUBSCRIBE_EMAIL, PAYMENT_METHOD, CARD_TYPE, CARD_NO, CARD_EXP, BANK_NAME, ROUTING_NO, CHK_ACCT_NO, PURCH_ORDER_NO, CHK_NO, SHIP_NAME, SHIP_COMPANY, SHIP_ADDRESS_1, SHIP_ADDRESS_2, SHIP_CITY, SHIP_STATE, SHIP_COUNTRY, SHIP_ZIP, SHIP_TELEPHONE, ShipMeth, ShipMethName, PrmShip, PayMethName, DSN_NAME, MerchantType Dim ProcResponse, ProcMessage,ProcCustNumber, ProcAddlData, ProcRefCode, ProcAuthCode, ProcMerchNumber, ProcActionCode, ProcErrMsg, ProcErrLoc, ProcErrCode, ProcAvsCode, ProcAvsZip, AVSMsg session.LCID = Session("LCID") If Request("RESPONSECODE") <> "" Then AuthResp = Request.QueryString() Call AuthNetResp(AuthResp) ElseIf Request("x_response_code") <> "" Then Call AuthNet30Resp ElseIf Request("CSVPOSRESPONSE") <> "" Then AuthResp = Request.QueryString() Call CSVPOSResp(AuthResp) Else DSN_Name = Session("DSN_NAME") '//********* GLOBAL VARIABLES **************************** CARD_NAME = Replace(Request("CARD_NAME"),"'","''") ORDER_ID = Request("ORDER_ID") SHIP_MESSAGE = Replace(Request("SHIP_MESSAGE"),"'","''") '//************CUSTOMER VARIABLES ***************** COMPANY = Replace(Request("COMPANY"),"'","''") ADDRESS_1 = Replace(Request("ADDRESS_1"),"'","''") ADDRESS_2 = Replace(Request("ADDRESS_2"),"'","''") CITY = Replace(Request("CITY"),"'","''") STATE = Replace(Request("STATE"),"'","''") COUNTRY = Replace(Request("COUNTRY"), "'","''") ZIP = Request("ZIP") PHONE = Request("PHONE") FAX = Request("FAX") E_MAIL = Request("E_MAIL") SUBSCRIBE_EMAIL = Request("MailSubscribed") If Not SUBSCRIBE_EMAIL = "1" Then SUBSCRIBE_EMAIL = "0" End If '//***** PAYMENT VARIABLES ********************* PAYMENT_METHOD = Request("PaymentMethod") CARD_TYPE = Request("CARD_TYPE") CARD_NO = Request("CARD_NO") CARD_EXP = Request("CARD_EXP") BANK_NAME = Replace(Request("BANK_NAME"),"'","''") ROUTING_NO = Request("BANK_CODE") CHK_ACCT_NO = Request("CHK_ACCT_NO") PURCH_ORDER_NO = Request("PURCH_ORDER_NO") CHK_NO = Request("CHK_NO") '//******** SHIPPING VARIABLES ******************* SHIP_NAME = Replace(Request("SHIP_NAME"),"'","''") SHIP_COMPANY = Replace(Request("SHIP_COMPANY"),"'","''") SHIP_ADDRESS_1 = Replace(Request("SHIP_ADDRESS_1"),"'","''") SHIP_ADDRESS_2 = Replace(Request("SHIP_ADDRESS_2"),"'","''") SHIP_CITY = Replace(Request("SHIP_CITY"),"'","''") SHIP_STATE = Replace(Request("SHIP_STATE"),"'","''") SHIP_COUNTRY = Replace(Request("SHIP_COUNTRY"), "'","''") SHIP_ZIP = Request("SHIP_ZIP") SHIP_TELEPHONE = Request("SHIP_TELEPHONE") ShipMeth = Request("ShipMeth") ShipMethName = ShipMeth PrmShip = Trim(Request("PrmShip")) '******************************************** 'Check for Payment Information being present. Redirect if not present. If Request("PaymentMethod") = "" Then Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name SQL = "SELECT SF_PATH FROM Admin" Set RSAdmin = Connection.Execute(SQL) ReOrderPath = Replace(RSAdmin("SF_PATH"),"addproduct.asp","order.asp") RSAdmin.Close Set RSAdmin = Nothing Connection.Close Set Connection = Nothing Response.Redirect "ccerrormsg.asp?ORDER_ID=" & Request("ORDER_ID") & "&ReOrderPath=" & ReOrderPath & "&ProcErrMsg=Payment information was not present to complete order." End If '******************************************** End If Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open DSN_Name %> <% '//***** SET ADMIN VARIABLES ************************** SQL = "SELECT * FROM Admin" Set RSAdmin = Connection.Execute(SQL) SQL = "SELECT COUNTRY FROM LOCALES WHERE COUNTRY_ABB = '"&COUNTRY&"'" Set RSCountryName = Connection.Execute(SQL) countryName = RSCountryName("COUNTRY") Session("LCID") = Trim(RSAdmin("LCID")) session.LCID = Session("LCID") SQLStmt = "SELECT GRAND_TOTAL from customer WHERE " _ & " CUSTOMER_ID = " & ORDER_ID & "" Set RSOrderCheck = Connection.Execute(SQLStmt) If FormatCurrency(RSOrderCheck("GRAND_TOTAL")) > FormatCurrency("0") Then Response.Redirect "order_complete.asp" Connection.Close End If '// ******* TRANSACTION PROCESSING VARIABLES ************** TransMethod = Trim(RSAdmin("Transaction_Method")) Login = Trim(RSAdmin("LOGIN")) PaymentServer = Trim(RSAdmin("PAYMENT_SERVER")) MerchantType = Trim(RSAdmin("MERCHANT_TYPE")) Root = Server.MapPath(".") Path = Replace(RSAdmin("SSL_PATH"),"process_order.asp","ccerrormsg.asp?") ReOrderPath = Replace(RSAdmin("SF_PATH"),"addproduct.asp","order.asp") '//******* MAIL VARIABLES ****************** MailServer = Trim(RSAdmin("MAIL_SERVER")) MailMethod = Trim(RSAdmin("MAIL_METHOD")) PRIMARY = Trim(RSAdmin("PRIMARY_EMAIL")) SECONDARY = Trim(RSAdmin("SECONDARY_EMAIL")) SUBJECT = RSAdmin("EMAIL_SUBJECT") MESSAGE = RSAdmin("EMAIL_MESSAGE") MAIL_CC = Trim(RSAdmin("MAIL_CC")) '//***** SHIP VARIABLES *************** oCountry = RSAdmin("ORIGIN_COUNTRY") oZip = RSAdmin("ORIGIN_ZIP") ShipType = Trim(RSAdmin("SHIP_TYPE")) Handling = RSAdmin("HANDLING") HandlingSwitch = RSAdmin("HANDLINGSWITCH") ShipMin = RSAdmin("SHIP_MIN") COD = RSAdmin("COD") CODAmt = RSAdmin("COD_AMOUNT") TaxShip = RSAdmin("TAX_SHIP") SecShipType = RSAdmin("SHIP_TYPE_2") session.LCID = Trim(RSAdmin("LCID")) set RSAdmin = nothing SQL = "SELECT ORDERS.PRODUCT_ID, PRODUCT.STAX, PRODUCT.CTAX, " _ & "ORDERS.PRICE, ORDERS.ATTRIBUTEA, ORDERS.ATTRIBUTEB, ORDERS.ATTRIBUTEC, " _ & "ORDERS.TOTAL, PRODUCT.WEIGHT, PRODUCT.CTAX, PRODUCT.STAX, " _ & "ORDERS.QUANTITY, ORDERS.ID, ORDERS.DESCRIPTION " _ & "FROM ORDERS, PRODUCT " _ & "WHERE ORDERS.ORDER_ID = " & ORDER_ID & " " _ & "AND ORDERS.PRODUCT_ID = PRODUCT.PRODUCT_ID" set RSOrder = Connection.Execute(SQL) If NOT RSOrder.EOF Then STaxFactor = 0 CTaxFactor = 0 RSOrder.MoveFirst Do While NOT RSOrder.EOF STaxFactor = CLng(RSOrder("STax"))+STaxFactor CTaxFactor = CLng(RSOrder("CTax"))+CTaxFactor RSOrder.MoveNext Loop STaxSwitch = STaxFactor CTaxSwitch = CTaxFactor 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 End If SQL = "SELECT country, country_abb FROM locales" set RSCountry = Connection.Execute (SQL) If ShipTotal > 0 Then If PrmShip = "1" Then SpShipping = PrmShipping() Else StdShipping = Shipping() End If End If If StdShipping = "" Then StdShipping = 0 End If If SpShipping = "" Then SpShipping = 0 End If ShippingAmt = (SpShipping+StdShipping) If (ShipType = "1" or ShipType = "3") and PrmShip = "1" Then ShipMeth = "Premium Shipping" Else ShipMeth = "Standard Shipping" End If If CTaxSwitch >= 1 Then CTax = CountryTax() End If If STaxSwitch >= 1 Then STax = StateTax() End If Tax = (CTax+STax) '***** 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 '*************** CHECK FOR COD CHARGES ******************** If PAYMENT_METHOD = "COD" Then CODAmt = CODAmt Else CODAmt = 0 End If '********************** END COD ROUTINE ********************** GrandTotal = FormatCurrency(SubTotal+ShippingAmt+Tax+Handling+CODAmt) SubTotal = FormatCurrency(SubTotal) RevSubTotal = SubTotal ShippingAmt = FormatCurrency(ShippingAmt) Tax = FormatCurrency(Tax) Handling = FormatCurrency(Handling) CODAmt = FormatCurrency(CODAmt) 'Response.Write "Trans: " & TransMethod If (TransMethod = "CyberCash" and PAYMENT_METHOD = "CREDIT") Then AMOUNT = XValAmt(GrandTotal) Call CyberCash ElseIf (TransMethod = "AuthorizeNet" and (PAYMENT_METHOD = "CREDIT" or PAYMENT_METHOD = "ECHECK")) Then If IsNull(Trim(Request("RESPONSECODE"))) OR (Trim(Request("RESPONSECODE") = "")) Then Call AuthNetProc End If ElseIf (TransMethod = "AuthorizeNet30" and (PAYMENT_METHOD = "CREDIT" or PAYMENT_METHOD = "ECHECK")) Then If IsNull(Trim(Request("x_response_code"))) OR (Trim(Request("x_response_code") = "")) Then Call AuthNet30Proc End If ElseIf TransMethod = "PCAuthorize" and PAYMENT_METHOD = "CREDIT" Then Call PCAuthProc ElseIf TransMethod = "Signio-PayFlowPro" and PAYMENT_METHOD = "CREDIT" Then Call PaymentNetProc ElseIf TransMethod = "TPN" and PAYMENT_METHOD = "CREDIT" Then Call ProcessingNetProc ElseIf TransMethod = "LinkPoint" and PAYMENT_METHOD = "CREDIT" Then Call ProcessCard ElseIf PAYMENT_METHOD = "INTERNETCASH" Then Call InternetCash ElseIf (TransMethod = "ChargeSolutions" or TransMethod = "APPROVE.Net" ) And PAYMENT_METHOD = "CREDIT" Then If IsNull(Trim(Request("CSVPOSRESPONSE"))) OR (Trim(Request("CSVPOSRESPONSE") = "")) Then Call CSVPOSProc End If End If %> <% If PAYMENT_METHOD = "PHONEFAX" Then '****** GET SELECTED COUNTRY FOR SHIP TO LIST ********************** SQL = "SELECT country, country_abb FROM locales WHERE COUNTRY_ABB = '" & COUNTRY & "' " set RSSelCountry = Connection.Execute (SQL) SelCountry = RSSelCountry("COUNTRY") set RSSelCountry = nothing '****** GET SELECTED STATE FOR SHIP TO LIST ************************* SQL = "SELECT state, state_abb FROM locales WHERE STATE_ABB = '" & STATE & "'" set RSSelState = Connection.Execute (SQL) SelState = RSSelState("STATE") set RSSelState = nothing %> StoreFront Order Confirmation
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>PHONE OR FAX ORDER 
Customer Name <%= CARD_NAME %>
Address <%= ADDRESS_1 %>
Address <%= ADDRESS_2 %>
City <%= CITY %>
State <%=SelState %>
Country <%= SelCountry %>
Zip <%= ZIP %>
Phone <%= PHONE %>
Fax <%= FAX %>
E-Mail <%= E_MAIL %>
Add to Mailing List <% If SUBSCRIBE_EMAIL = "1" Then %>Yes <% Else %>No<% End If%>
Payment Method Phone or Fax
Card Number <%= CARD_NO %>
Exp. Date <%= CARD_EXP %>
Bank Name <%= BANK_NAME %>
Bank Routing Number <%= BANK_ROUTING_NO %>
Checking Account Number <%= CHK_ACCT_NO %>
<% RSOrder.MoveFirst CurrentRecord = 0 Do While NOT RSOrder.EOF AttA = RSOrder("AttributeA") AttB = RSOrder("AttributeB") AttC = RSOrder("AttributeC") If AttA <> "" Then ATTResponse = AttA End If If AttB <> "" Then ATTResponse = AttResponse&", "&AttB End If If AttC <> "" Then ATTResponse = AttResponse&", "&AttC End If ATTResponse = ATTResponse&" " %> <% AttResponse = "" RSOrder.MoveNext CurrentRecord = CurrentRecord = 1 Loop %>
 
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>ORDER DETAIL
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>

Product Code

 <%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>

Description

 <%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>

Price

 <%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>

Quantity

 <%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>

Total
 <%= RSOrder("PRODUCT_ID") %>  <%= RSOrder("DESCRIPTION")&" - "&ATTResponse %>  <%= FormatCurrency(RSOrder("PRICE")) %>    <%= RSOrder("QUANTITY") %>    <%= FormatCurrency(RSOrder("TOTAL")) %>  
> <% If Handling > 0 AND (HandlingSwitch = "0" OR ApplyShipping = "1") Then %> <% End If %>
 
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>ORDER TOTAL
SubTotal <%= SubTotal %>
<%= ShipMeth %> <%= ShippingAmt %>
Tax <%= Tax %>
Handling Charge <%= Handling %>
Total Order <%= GrandTotal %>
 
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>SHIPPING INFORMATION
Ship Name <%= SHIP_NAME %>
Ship Address <%= SHIP_ADDRESS_1 %>
Suite/Apt. Number <%= SHIP_ADDRESS_2 %>
City <%= SHIP_CITY %>
State <%= SHIP_STATE %>
Country <%= SHIP_COUNTRY %>
Zip <%= SHIP_ZIP %>
Phone <%= SHIP_PHONE %>
<% Else If TransMethod <> "Email" Then SQLStmt = " INSERT into transactions (ORDER_ID, CUST_TRANS_NO, MERCH_TRANS_NO, " SQLStmt = SQLStmt & " AVS_CODE, AUX_MSG, ACTION_CODE, RETRIEVAL_CODE, " SQLStmt = SQLStmt & " AUTH_NO, ERROR_MSG, ERROR_LOCATION, STATUS) " SQLStmt = SQLStmt & " VALUES(" & ORDER_ID & ", " SQLStmt = SQLStmt & " '" & ProcCustNumber & "', " SQLStmt = SQLStmt & " '" & ProcMerchNumber & "', " SQLStmt = SQLStmt & " '" & ProcAvsCode & "', '" & ProcMessage & "', " SQLStmt = SQLStmt & " '" & ProcRefCode & "', '" & Proc & "', " SQLStmt = SQLStmt & " '" & ProcAuthCode & "', '" & ProcErrMsg & "', " SQLStmt = SQLStmt & " '" & ProcErrLoc & "', '" & Status & "')" Set RSCC = Connection.Execute(SQLStmt) End If If ProcResponse = "fail" Then ProcResponse = Server.URLEncode(ProcResponse) ProcMessage = Server.URLEncode(ProcMessage) ProcCustNumber = Server.URLEncode(ProcCustNumber) ProcAddlData = Server.URLEncode(ProcAddlData) ProcRefCode = Server.URLEncode(ProcRefCode) ProcAuthCode = Server.URLEncode(ProcAuthCode) ProcMerchNumber = Server.URLEncode(ProcMerchNumber) ProcActionCode = Server.URLEncode(ProcActionCode) ProcErrMsg = Server.URLEncode(ProcErrMsg) ProcErrLoc = Server.URLEncode(ProcErrLoc) ProcErrCode = Server.URLEncode(ProcErrCode) ProcAVSZip = Server.URLEncode(ProcAVSZip) ErrorString = "ORDER_ID="&ORDER_ID&"&ReOrderPath="&ReOrderPath&"&ProcMessage="&ProcMessage&"&ProcCustNumber="&ProcCustNumber&"&ProcAddlData=" _ &ProcAddlData&"&ProcRefCode="&ProcRefCode&"&ProcActionCode=" _ &ProcActionCode&"&ProcErrMsg="&ProcErrMsg&"&ProcErrLoc="&ProcErrLoc&"&ProcErrCode="&ProcErrCode&"&ProcAvsCode="&ProcAvsCode&"&ProcAvsZip=" _ &ProcAvsZip ErrorString = Path&ErrorString 'response.write ErrorString response.redirect ErrorString End If If PAYMENT_METHOD = "COD" Then PayMethName = "COD" ElseIf PAYMENT_METHOD = "CREDIT" Then PayMethName = "Credit Card" ElseIf PAYMENT_METHOD = "PO" Then PayMethName = "Purchase Order" ElseIf PAYMENT_METHOD = "ECHECK" Then PayMethName = "Electronic Check" ElseIf PAYMENT_METHOD = "INTERNETCASH" Then PayMethName = "Internet Cash" End If If ShipType = "2" Then ShipMeth = ShipMethName End If SQL = "UPDATE CUSTOMER SET NAME = '" & CARD_NAME & "', " _ & "COMPANY = '" & COMPANY & "', " _ & "ADDRESS_1 = '" & ADDRESS_1 & "', " _ & "ADDRESS_2 = '" & ADDRESS_2 & "', " _ & "CITY = '" & CITY & "', " _ & "STATE = '" & STATE & "', " _ & "ZIP = '" & ZIP & "', " _ & "COUNTRY = '" & countryName & " (" & COUNTRY & ")', " _ & "PHONE = '" & PHONE & "', " _ & "FAX = '" & FAX & "', " _ & "E_MAIL = '" & E_MAIL & "', " _ & "MAIL_SUBSCRIBED = '" & SUBSCRIBE_EMAIL & "', " _ & "PAYMENT_METHOD = '" & PayMethName & "', " _ & "CARD_TYPE = '" & CARD_TYPE & "', " _ & "CARD_NO = '" & CARD_NO & "', " _ & "CARD_EXP = '" & CARD_EXP & "', " _ & "BANK_NAME = '" & BANK_NAME & "', " _ & "ROUTING_NO = '" & ROUTING_NO & "', " _ & "CHK_ACCT_NO = '" & CHK_ACCT_NO & "', " _ & "CHK_NO = '" & CHK_NO & "', " _ & "PURCH_ORDER_NO = '" & PURCH_ORDER_NO & "', " _ & "SUB_TOTAL = '" & FormatCurrency(0) & "', " _ & "TAX = '" & FormatCurrency(0) & "', " _ & "SHIPPING_METHOD = '" & ShipMeth & "', " _ & "SHIPPING_AMT = '" & FormatCurrency(0) & "', " _ & "GRAND_TOTAL = '" & FormatCurrency(0) & "', " _ & "SHIP_NAME = '" & SHIP_NAME & "', " _ & "SHIP_COMPANY = '" & SHIP_COMPANY & "', " _ & "SHIP_ADDRESS_1 = '" & SHIP_ADDRESS_1 & "', " _ & "SHIP_ADDRESS_2 = '" & SHIP_ADDRESS_2 & "', " _ & "SHIP_CITY = '" & SHIP_CITY & "', " _ & "SHIP_STATE = '" & SHIP_STATE & "', " _ & "SHIP_ZIP = '" & SHIP_ZIP & "', " _ & "SHIP_COUNTRY = '" & SHIP_COUNTRY & "', " _ & "SHIP_TELEPHONE = '" & SHIP_TELEPHONE & "', " _ & "SHIP_MESSAGE = '" & SHIP_MESSAGE & "' " _ & "WHERE CUSTOMER_ID = " & ORDER_ID & "" 'Response.Write SQL&"
" Set RSConfirm = Connection.Execute(SQL) %> StoreFront Order Confirmation
> <% If ShippingAmt > 0 Then %> <% End If %> <% If Handling > FormatCurrency(0) Then %> <% End If %> <% If CODAmt > FormatCurrency(0) Then %> <% End If %> <% If Tax > 0 Then %> <% End If %>
 
Order Number:  <%= ORDER_ID %>
Date:  <%= Date() %>
Order Amount:  <%= FormatCurrency(SubTotal) %>
<% If ShipMeth = "PRM" Then %>Premium Shipping: <% ElseIf ShipMeth = "STD" Then %>Standard Shipping: <% ElseIf ShipType = "2" Then %><%= ShipMethName&": " %><% Else %><%= ShipMeth&": " %><% End If %> <%= FormatCurrency(ShippingAmt) %>
Handling Charge:  <%= FormatCurrency(Handling) %>
COD Charge:  <%= FormatCurrency(CODAmt) %>
Tax:   <%= FormatCurrency(TAX) %>
Total Amount: <%= FormatCurrency(GrandTotal) %>
<% 'End If %> <% 'And finally, we call the confirm_foot.htm for the footer to the confirmation screen. %> <% End If Connection.Close Set Connection = Nothing Session.Abandon %>