<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" setLocale server_locale sdd = dd(objConn) act = Request.Form("act") credits = CCur(Request.Form("D1")) inactive = CStr(Request.Form("D2")) Select Case act Case "reconcile" Response.Redirect "admin_reconcile.asp" Case "removeallcredits" objConn.Execute("UPDATE " & tablPfx & "User SET credits = '0.00';") Case "addcredits" Select Case databaseType Case "msaccess" objConn.Execute("UPDATE " & tablPfx & "User SET credits = Format(CCur(credits) + " & credits & ", '0.00');") Case "mssql" objConn.Execute("UPDATE " & tablPfx & "User SET credits = CAST(credits AS decimal(10,2)) + " & credits & ";") Case "mysql" objConn.Execute("UPDATE " & tablPfx & "User SET credits = Format(credits + " & credits & ", 2);") End Select Case "removeaccounts" objConn.Execute("DELETE FROM " & tablPfx & "User WHERE ads = 0 AND lastLogon < " & sdd & inactive & sdd & ";") If isEvents then Call logEvent("Account Deleted", " Inactive since: " & inactive, Empty, Empty, Empty, Empty) Case "package" packID = CLng(Request.Form("D3")) If packID = 0 then packExp = ConvDate(Now) Else strPack = "SELECT pdur FROM " & tablPfx & "Pack WHERE packID = " & packID & ";" Set rs = objConn.Execute(strPack) pdur = rs(0) rs.close packExp = DateAdd("d", pdur, Now) packExp = ConvDate(packExp) End If sdd = dd(objConn) If Request.Form("C1") = 1 AND Not packID = 0 then ishold = ", ishold = 1" Else: ishold = ", ishold = 0" End If objConn.Execute("UPDATE " & tablUPfx & "User SET pexpire = " & sdd & packExp & sdd & ", paypack = " & packID & ishold & ";") Response.Redirect "admin_credits.asp" End Select strPack = "SELECT packID,pname FROM " & tablPfx & "Pack;" Set rspack = objConn.Execute(strPack) If Not rspack.EOF then Do While Not rspack.EOF nextPackID = CLng(rspack(0)) nextPackName = rspack(1) packOpt = packOpt & "" & vbcrLf rspack.MoveNext Loop End If rspack.close %>

Global Manager


Nullify All users credits (reset to 0.00):
Add Credits to All User Accounts:
Remove User Accounts Inactive for:
Fix Ads Count for All Categories:
Apply this package to All accounts:		- Hold

Download User Accounts in .CSV Format