Web Wiz Forums Modifications - MOD: Top 10 Posters

i think its working fine now thanks to mr.mellie

so first thing you do is define a variable in dimension variables list in the start of default.asp...

Dim saryTopPosters 'top poster


'If we have run out of records jump out of forums loop into the category loop
    If intCurrentRecord > Ubound(sarryForums,2) Then Exit Do
   Loop 
  End If
  
 
 %>
</table>
<br /><%
     
 'Loop back round for next category
 Loop
End If
 
'Clean up
Call closeDatabase()
%>

just above the Clean up call paste the code give below

<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
<tr class="tableLedger">
<td colspan="10">Top 10 Posters</td>
</tr>
<%
intTempRecord = 0
intTotalRecords = 0
Const strMBV_TP_R = 10
strSQL = "SELECT "
strSQL = strSQL & " TOP " & strMBV_TP_R & " "
strSQL = strSQL & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username, " & strDbTable & "Author.Group_ID, " & strDbTable & "Author.Last_visit, " & strDbTable & "Author.No_of_posts, " & strDbTable & "Author.Join_date, " & strDbTable & "Author.Active, " & strDbTable & "Group.Name, " & strDbTable & "Author.Avatar " & _
"FROM " & strDbTable & "Author " & strDBNoLock & ", " & strDbTable & "Group " & strDBNoLock & " " & _
"WHERE " & strDbTable & "Author.Group_ID = " & strDbTable & "Group.Group_ID AND " & strDbTable & "Author.Active = " & strDbTrue & " " & _
"ORDER BY " & strDbTable & "Author.No_of_posts DESC; "

On Error Resume Next

rsCommon.Open strSQL, adoCon

'If Err.Number <> 0 Then Call errorMsg("An error has occured while executing SQL query on database.", "get_last_USR_+_count", "default.asp")

On Error goto 0

'Place the recordset into an array
If NOT rsCommon.EOF Then

'Read the recordset into an array
saryTopPosters = rsCommon.GetRows()

'read total records
intTotalRecords = Ubound(saryTopPosters,2) + 1
End If

'Close recordset
rsCommon.close

if intTotalRecords = 0 then
Response.Write("<tr class=""tableRow""><td colspan=""10"">" & strTxtNoForumPostMade & "</td></tr>")
else
%>
<tr class="tableRow" align="center"><%
Do While intTempRecord < intTotalRecords
if intTempRecord = 10 then exit Do
Response.Write("<td><a href=""member_profile.asp?PF=" & saryTopPosters(0, intTempRecord) & strQsSID2 & saryTopPosters(0, intTempRecord) & "', '" & saryTopPosters(1, intTempRecord) & "')""><img src=""" & saryTopPosters(8, intTempRecord) & """ alt=""" & strTxtType & ": " & saryTopPosters(2, intTempRecord) & vbCrlf & strTxtPosts & ": " & saryTopPosters(4, intTempRecord) & vbCrlf & strTxtLastActive & ": " & DateFormat(saryTopPosters(3, intTempRecord)) & """ class=""avatar"" onError=""this.src='avatars/blank_avatar.jpg';""><br />" & saryTopPosters(1, intTempRecord) & "</a></td>")
intTempRecord = intTempRecord + 1
Loop
%>
</tr>

</table>
<% End if %>
<br />

SELECT TOP 10 tblAuthor.Author_ID, tblAuthor.Username, tblAuthor.Group_ID, tblAuthor.Last_visit, tblAuthor.No_of_posts, tblAuthor.Join_date, tblAuthor.Active, tblGroup.Name, tblAuthor.Avatar FROM tblAuthor WITH (NOLOCK) , tblGroup WITH (NOLOCK) WHERE tblAuthor.Group_ID = tblGroup.Group_ID AND tblAuthor.Active = 1 ORDER BY tblAuthor.No_of_posts DESC;
Server Error in Forum Application
An error has occured while executing SQL query on database.
Please contact the forum administrator.

Support Error Code:- err_SQLServer_get_last_USR_+_count
File Name:- default.asp

Error details:-
Microsoft VBScript runtime error
Object required

i think its working fine now thanks to mr.mellie�

so first thing you do is define a variable in dimension variables list in the start of default.asp...

Dim saryTopPosters 'top poster�

'If we have run out of records jump out of forums loop into the category loop
����If intCurrentRecord > Ubound(sarryForums,2) Then Exit Do
���Loop�
��End If
��
�
�%>
</table>
<br /><%
���� 
�'Loop back round for next category
�Loop
End If
�
'Clean up
Call closeDatabase()
%>

just above the Clean up call paste the code give below

Call closeDatabase()

paste the code above it.

I have the same problems that you have freakyfred

I you past your fix here so maybe this can help other with same problem.