<% If Not Sess_Array(48) = Session.SessionID then UpdateSessions False Response.Redirect "default.asp" End If 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" UpdateSessions False Response.Redirect "admin_reconcile.asp" Case "removeallcredits" objConn.Execute("UPDATE " & tablUPfx & "User SET credits = '0.00';") Case "addcredits" Select Case databaseType Case "msaccess" objConn.Execute("UPDATE " & tablUPfx & "User SET credits = Format(CCur(credits) + " & credits & ", '0.00');") Case "mssql" objConn.Execute("UPDATE " & tablUPfx & "User SET credits = CAST(credits AS decimal(10,2)) + " & credits & ";") Case "mysql" objConn.Execute("UPDATE " & tablUPfx & "User SET credits = Format(credits + " & credits & ", 2);") End Select Case "removeaccounts" objConn.Execute("DELETE FROM " & tablUPfx & "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" setLocale resetLocale 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 & ";") UpdateSessions False Response.Redirect "admin_credits.asp" Case "admover" Sess_Array(63) = "1" Case "adremover" Sess_Array(66) = "1" Case "clsa" UpdateSessions False Response.Redirect "admin_power.asp?act=clsa" Case "clsau" UpdateSessions False Response.Redirect "admin_power.asp?act=clsau" Case "compact" UpdateSessions False Response.Redirect "admin_compact.asp" End Select If Sess_Array(63) = "1" then move_status = "ON": Else: move_status = "OFF" If Sess_Array(66) = "1" then remove_status = "ON": Else: remove_status = "OFF" 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

<% Call Build_List_Top("center", "550", "xl_content") %> <% If Not databaseType = "msaccess" Then %> <% End If %>


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
Conversion Tools v2.0 (SQL to Access):
Conversion Tools v2.0 (Access to SQL):

<% Call Build_List_Bottom() %>