<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" %>
Payments Log

<% msgEmptyLog = "

There are no payment transaction records in database.

" If Request.Form("flag") = "1" then If Request.Querystring.Count > 0 then If Request.Querystring.Item(1) = "all" then objConn.Execute("DELETE FROM " & tablPfx & "Plog;") Response.Redirect "admin_paylog.asp" End If Else If Len(Request.Form("C1")) > 0 then For each ID in request("C1") strRemoveID = strRemoveID & " OR ID = " & ID Next strRemoveID = Replace(strRemoveID, "OR", "", 1, 1, vbTextCompare) End If If len(strRemoveID) > 0 then strSQL = "DELETE FROM " & tablPfx & "Plog WHERE(" & strRemoveID & ");" objConn.Execute(strSQL) Response.Redirect "admin_paylog.asp" End If End If End If Dim totalPage, totalRecords, displayRecords strPlog = "SELECT " & tablPfx & "Plog.* FROM " & tablPfx & "Plog ORDER BY pdate DESC;" rs.PageSize = pp rs.CacheSize = pp rs.CursorLocation = 3 rs.Open strPlog, strConn, 0, 1 If rs.EOF then Response.Write msgEmptyLog Else %>
Download Records in .CSV | Delete Selected | Delete All Records

<% nPage = Session("paylist_show_page" & strSUnique) URLlink = "admin_paylog.asp?" & Server.URLEncode(Request.Querystring) pageType = 14 strPaging = buildPages(nPage, URLlink, pageType) '## paging built in libraries.asp Response.Write strPaging Response.Write "
Total Pages: " & totalPage & "
" Response.Write "Total Transactions: " & totalRecords & "
" %>
<% For J = 1 to displayRecords If rs.EOF Then Exit For Else If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'": End If ID = rs(0) iDateTime = FormatDateTime(rs(1), 0) iDate = FormatDateTime(rs(1), 2) txn_status = rs(2) pay_status = rs(3) txn_ID = CryptText(rs(4), adminkey, True) amount = rs(6) payer_Email = CryptText(rs(7), adminkey, True) userID = rs(8) userIDLnk = "" & userID & "" iName = rs(9) note = rs(14) firstName = rs(10) lastName = rs(11) nm = firstName & " " & lastName If firstName = Empty and lastName = Empty then nm = "N/A" IP = rs(12) ihost = rs(13) strDetails = "admin_tdet.asp?date=" & Server.URLEncode(iDateTime) & "&tst=" & txn_status & "&pst=" & pay_status & "&tid=" & txn_ID strDetails = strDetails & "&am=" & amount & "&eml=" & payer_Email & "&uid=" & userID & "&in=" & iName & "&nt=" & Server.URLEncode(note) strDetails = strDetails & "&fn=" & firstName & "&ln=" & lastName & "&h=" & ihost & "&ip=" & IP host = "" & ihost & "" & vbCrLf %> <% rs.MoveNext End If Next Response.Write " - Select All" Response.Write "
Delete: Date: Status: Pay Status: Name: Amount: UserID: Detailes:
align="center"> align="center"><%= iDate %> align="center"><%= txn_status %> align="center"><%= pay_status %> align="center"><%= nm %> align="center"><%= amount %> align="center"><%= userIDLnk %> align="center"><%= host %>
" Session("paylist_show_page" & strSUnique) = Empty rs.close %>
<% End If %>
Refresh | Admin Tasks | Home | Logout