Home Banking Account Summary

**** from http://www.pmsyscorp.com/weblender_3/Home_Banking_Transaction_Detail.asp PM Systems Corporation is a technology product and service provider for the financial services industry. Our customers recognize us as a business partner for their information needs, and have, for over 10 years! Their business is our business... We know technology, and we know our chosen market. This combination allows us to better fulfill the high demands placed on business partners today! -------- from their home page . A financial institution's needs are unique... Security - Both electronic and physical. <%@ LANGUAGE="vbscript" %> <% If Session("Passed_Login") <> "Yes" or Session("Login_Screen") <> "YES" then Response.redirect("Home_Banking_Login_Form.asp") End If %> <% Dim intMonth Dim intYear Dim strNew_Date intMonth= LEFT(Date,(Instr(Date,"/") - 1)) intYear = RIGHT(Date,2) strNew_Date = (intMonth & "/" & intYear) Set WebLender_Balances = Server.CreateObject("ADODB.Connection") WebLender_Balances.ConnectionTimeout = 5 WebLender_Balances.CommandTimeout = 5 WebLender_Balances.Open "DRIVER={SQL Server};SERVER=Pages;UID=sa;PWD=;APP=Microsoft (R) Developer Studio;DATABASE=Home_Banking_Balances",inetuser, zxcvbn Set cmdTemp = Server.CreateObject("ADODB.Command") Set rsWebLender_Balances = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM ""Balance_Header"" WHERE ""Customer_Account_Number"" = " & Session("Customer_Account_Number") & " AND ""Account_Ending_Balance_Date"" < '" & Date & "'" & " AND ""Account_Number"" =" & Request.QueryString("Account_Number") cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = WebLender_Balances rsWebLender_Balances.Open cmdTemp, , 1, 3 Set Session("rsWebLender_Balances") = rsWeblender_Balances rsWebLender_Balances.Requery Session("Cutomer_Account_Number")= rsWebLender_Balances("Customer_Account_Number") Dim fltStarting_Balance fltStarting_Balance = rsWebLender_Balances("Account_Ending_Balance") Dim fltNew_Balance fltNew_Balance = fltStarting_Balance %> Home Banking Account Summary

<%If Session("Transaction_Number") > 0 then%> <%End If%>

") intWhichColor = 2 Case 2 Response.write("") intWhichColor = 1 END SELECT %> <% If (rsWebLender_Transactions("Transaction_Amount") < 0) then %> <% Else %> <% End If fltNew_Balance = fltNew_Balance + rsWebLender_Transactions("Transaction_Amount") %> <% rsWebLender_Transactions.MoveNext Loop %>

<%Response.write(rsWebLender_Balances("Account_Type"))%>

<% Set WebLender_Transactions = Server.CreateObject("ADODB.Connection") WebLender_Transactions.ConnectionTimeout = 5 WebLender_Transactions.CommandTimeout = 5 WebLender_Transactions.Open "DRIVER={SQL Server};SERVER=Pages;UID=sa;PWD=;APP=Microsoft (R) Developer Studio;DATABASE=Home_Banking_Balances",inetuser, zxcvbn Set cmdTemp = Server.CreateObject("ADODB.Command") Set rsWebLender_Transactions = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM ""Balance_Transactions"" WHERE ""Account_Number"" = " & Request.QueryString("Account_Number") & "AND ""Transaction_Date"" > '" & intMonth & "/1/" & intYear & "'" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = WebLender_Transactions rsWebLender_Transactions.Open cmdTemp, , 1, 3 Set Session("rsWeblender_Transactions") = rsWebLender_Transactions On Error Resume Next If rsWebLender_Transactions.BOF And rsWebLender_Transactions.EOF Then %> Sorry.. No Records Found

Account Number:<%Response.write(Request.QueryString("Account_Number"))%>			Date:<%Response.write(Date)%>
APR:<%Response.write(rsWebLender_Balances("Account_APR") & "% Starting Balance:" & FormatNumber(rsWebLender_Balances("Account_Ending_Balance"),2) )%>				<%Response.write(rsWebLender_Balances("First_Name") & " " & rsWebLender_Balances("Middle_Initial") & " " & rsWebLender_Balances("Last_Name") & " " & rsWebLender_Balances("Address") & " " & rsWebLender_Balances("City") & ", " & rsWebLender_Balances("State") & " " & rsWebLender_Balances("Zip"))%>
No.	Date	Desciption	Checks & Debits	Deposits & Credits	Balance

<% Else Dim intWhichColor intWhichColor = 1 Do While Not rsWebLender_Transactions.EOF SELECT Case intWhichColor Case 1 Response.write("

<%Response.write(rsWebLender_Transactions("Transaction_Number"))%>

<%Response.write(rsWebLender_Transactions("Transaction_Date"))%>

<%Response.write(rsWebLender_Transactions("Transaction_Description") & ":" & rsWebLender_Transactions("Transaction_Description_Type"))%>

<%Response.write(FormatNumber(rsWebLender_Transactions("Transaction_Amount"),2))%>

<%Response.write(FormatNumber(fltNew_Balance,2))%>

Ending Balance:<%Response.write(FormatNumber(fltNew_Balance,2))%>

<% End If %>