<% if not isBMan then if isUMan then response.redirect ("admin_user.asp") response.end else response.redirect ("admin_ForumM.asp") response.end end if end if if request.form<>"" then Dim objcon, desiredSize, go, mode, strSQL mode = request.querystring("do")&"" desiredSize = request.form("desiredsize")&"" SELECT Case mode Case "shrinkdb" go = false if isNumeric(desiredSize) and len(desiredSize)>0 then desiredSize = cint(desiredSize) if desiredSize >=1 and desiredSize <=99 then go = true strSQL = "DBCC SHRINKDATABASE (["&request.form("thename")&"], "&(100-desiredSize)&")" end if end if Case "shrinkdat","shrinklog" go = false if isNumeric(desiredSize) and len(desiredSize)>0 then desiredSize = cint(desiredSize) if desiredSize >=1 then go = true if mode = "shrinkdat" then strSQL = "DBCC SHRINKFILE(["&request.form("thename")&"], "&desiredSize&")" else strSQL = "exec spShrinkLogUltimate '"&request.form("thename")&"',1,"&desiredSize&",1.0" end if end if end if End SELECT ' response.write strSQL ' response.end if go then set objCon = server.createobject("adodb.connection") With objCon .open datastore .execute strSQL, , adCmdText .close End With set objCon = nothing end if end if %> Color Management <%= OutputCSS() %>
General Stats and Information :       Help

<% Dim objRS, arrStats, iStats, cStats,arrStats1, field set objRS = server.createobject("adodb.recordset") With objRS .open "sp_helpdb ('"&dbName&"')", datastore, , , adCmdStoredProc for each field in .fields response.write ("") next response.write ("") if not (.eof and .bof) then arrStats = .getrows for iStats = 0 to ubound(arrStats,2) for cStats = 0 to ubound(arrStats,1) response.write ("") next response.write "" next %>
General DB info:
"&field.name&"
"&arrStats(cStats,iStats)&" 


<% set objRS = .nextRecordset for each field in objRS.fields response.write ("") next response.write ("") if not (objRS.eof and objRS.bof) then arrStats1 = objRS.getrows for iStats = 0 to ubound(arrStats1,2) for cStats = 0 to ubound(arrStats1,1) response.write ("") next response.write "" if iStats<>ubound(arrStats1,2) then response.write ("") next objRS.close if .state <> adStateClosed then .close End With set objRS = nothing %>
Specific DB info:
"&field.name&"
"&arrStats1(cStats,iStats)&" 


> <% 'on error resume next Dim objCom, totalPosts, totalTopics, postsPerDay, topicPerDay,totalDay Dim Posts30Day,Topics30Day,reg30Day,log30Day,uniqueMemPost30Day, totalOnline Dim isDBO set objCom = server.createobject("adodb.command") With objCom .activeConnection = datastore .commandText = dbOwnerPrefix&"spForumStats" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@totalPosts", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@totalTopics", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@postsPerDay", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@topicPerDay", adCurrency, adParamoutput, 0 ) .Parameters.Append .Createparameter("@totalDay", adCurrency, adParamoutput, 0 ) .Parameters.Append .Createparameter("@Posts30Day", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@Topics30Day", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@reg30Day", adCurrency, adParamOutput, 0 ) .Parameters.Append .Createparameter("@log30Day", adCurrency, adParamoutput, 0 ) .Parameters.Append .Createparameter("@uniqueMemPost30Day", adCurrency, adParamoutput, 0 ) .Parameters.Append .Createparameter("@totalOnline", adSmallInt, adParamOutput, 0 ) .execute , , adExecuteNoRecords totalPosts = .parameters("@totalPosts") totalTopics = .parameters("@totalTopics") postsPerDay = .parameters("@postsPerDay") topicPerDay = .parameters("@topicPerDay") totalDay = .parameters("@totalDay") Posts30Day = .parameters("@Posts30Day") Topics30Day = .parameters("@Topics30Day") reg30Day = .parameters("@reg30Day") log30Day = .parameters("@log30Day") uniqueMemPost30Day = .parameters("@uniqueMemPost30Day") totalOnline = .parameters("@totalOnline") End With set objCom = nothing set objCom = server.createobject("adodb.command") With objCom .activeConnection = datastore .commandText = dbOwnerPrefix&"spIsDBO" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@RETURN_VALUE", adInteger, adParamReturnValue, 0 ) .execute , , adExecuteNoRecords isDBO = .parameters("@RETURN_VALUE") End With set objCom = nothing %> >
Forum General Usage Report:
Forum has been running for Total Posts Total Topics Posts Per Day Topics Per Day Total Members Total Active Users
<%= totalDay %> Days <%= totalPosts %> <%= totalTopics %> <%= postsPerDay %> <%= topicPerDay %> <%= Application(dbName&"totalMem") %> <%= Application(dbName&"pgd_activeUser") %>


<% if isDBO then %> <% End If %>
> >
Forum Last 30 Day Usage Report:
Posts Topics Registered Members Logged in Members # of Unique Members who posted
<%= Posts30Day %> <%= Topics30Day %> <%= reg30Day %> <%= log30Day %> <%= uniqueMemPost30Day %>


You can also try to reduce the size of your database:

Shrink the database to % (has to be numeric value >= 1 and <=99)

You can also try to reduce the size of your data file:

Shrink the data file to MB (has to be numeric value >=1)

You can also try to reduce the size of your log file:

Shrink the log file to MB (has to be numeric value >=1)