<%checkUserLogin()%> <% Dim allPayments allPayments = "N/A" FUNCTION obfuscateCCNumber(ccNumber) Dim c Dim l Dim r Set r = new RegExp IF ccNumber <> "" THEN c = Cstr(ccNumber) l = Len(c) r.Pattern = "[0-9]" r.Global = True c = r.Replace(Left(c,l-4),"X") & Right(c, 4) ELSE c = " " END IF obfuscateCCNumber = c END FUNCTION Set cn = Server.CreateObject("ADODB.connection") cn.Open connString set rsPayments = server.createobject("adodb.recordset") rsPayments.open "SELECT a.when_entered, a.amount, b.shortname, isNull(a.cc_number, ' ') as cc_number " & _ " FROM gbi2_acct_payments a, gbi2_payment_types b " & _ " WHERE a.acct_id = " & currentID & _ " AND a.payment_type_id = b.payment_type_id " & _ " ORDER BY a.when_entered DESC " , cn IF NOT rsPayments.eof = TRUE THEN allPayments = "" & _ "" DO WHILE NOT rsPayments.EOF allPayments = allPayments & "" rsPayments.MoveNext LOOP allPayments = allPayments & "
AmountTransaction DatePayment TypeCC Number (if applicable)
" & FormatCurrency(rsPayments("amount")) & _ "" & rsPayments("when_entered") & _ "" & rsPayments("shortname") & _ "" & obfuscateCCNumber(rsPayments("cc_number")) & _ "
" END IF rsPayments.Close Set rsPayments = nothing Set cn = nothing %> The GBI: Commercial: Use Green Globes: Account: Payment History
HOMEABOUT GBIGREEN GLOBESCOMMERCIALRESIDENTIALJOIN / AFFILIATESFEDERAL GOVERNMENTTRAININGNEWS
Green Building Initiative
Follow The Green Building Initiative on Facebook Follow The Green Building Initiative on Twitter Follow The Green Building Initiative on LinkedIn Follow The Green Building Initiative on YouTube

  Account: Payment History

<%=allPayments%>




  Account Home | Change my Password | Account Information | My Subscription | Payment History | Preferences | Logout