<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' 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. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> Customer E-Check <% 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 %>