<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.04.0 ' Date : 1.6.2000 ' Author : LaGarde, Incorporated ' Description : StoreFront Check Printing 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 SQL = "SELECT LCID FROM admin" set RSAdmin = Connection.Execute (SQL) Session("LCID") = Trim(RSAdmin("LCID")) session.LCID = Session("LCID") Set RSAdmin = nothing 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: Payment Authorized by Account Holder Indemnification Agreement Provided by Depositor. Electronically Signed:          <%=RSChck("NAME")%>            A<%= Trim(RSChck("ROUTING_NO")) %>A<%= Trim(RSChck("CHK_ACCT_NO")) %>B

<% Connection.Close Set Connection = Nothing %>