<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.00.2 ' Author : LaGarde, Incorporated ' Description : SF2k Database Upgrade ' ' 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 SQLStmt ="SELECT * FROM customer WHERE CUSTOMER_ID = " & Request("OrderID") & " " Set RSChck = Connection.Execute(SQLStmt) %>

<% If RSChck("Address_1") > "" Then %> <% End If %> <%= RSChck("NAME") %> <%= RSChck("CHK_NO") %> <%= RSChck("Address_2") %> <%= RSChck("Address_1") %> <%= RSChck("City")&","&" "&RSChck("State")&"  "&RSChck("Zip") %>   Pay To:   Amount:   <%= FormatCurrency(RSChck("GRAND_TOTAL")) %> <%= RSChck("BANK_NAME") %>   Memo: Electronically Signed:          <%=RSChck("NAME")%>            A<%= Trim(RSChck("ROUTING_NO")) %>A<%= Trim(RSChck("CHK_ACCT_NO")) %>B