Web Wiz Forums Modifications - "Show Moderators"

for example:

     strModerators = ""
      'fisrt groups
      strSQL = "SELECT " & strDbTable & "Permissions.Group_ID, " & strDbTable & "Permissions.Author_ID, " & strDbTable & "Group.Name " & _
      "FROM " & strDbTable & "Permissions" & strDBNoLock & ", " & strDbTable & "Group" & strDBNoLock & " " & _
      "WHERE " & strDbTable & "Permissions.Moderate = " & strDbTrue & " " & _
      "AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & " " & _
      "AND " & strDbTable & "Permissions.Group_ID = " & strDbTable & "Group.Group_ID " & _
      "ORDER BY " & strDbTable & "Group.Name ASC;"
      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.", "member_count", "default.asp")
      On Error goto 0
       Do until rsCommon.EOF
        If strModerators <> "" Then strModerators = strModerators & ", "
        strModerators = strModerators & "<a href=""members.asp?GID=" & rsCommon("Group_ID") & strQsSID2 & """ class=""smLink"">" & rsCommon("Name") & "</a>"
        rsCommon.MoveNext
       Loop
      rsCommon.close
      'then users
      strSQL = "SELECT " & strDbTable & "Permissions.Group_ID, " & strDbTable & "Permissions.Author_ID, " & strDbTable & "Author.Username " & _
      "FROM " & strDbTable & "Permissions" & strDBNoLock & ", " & strDbTable & "Author" & strDBNoLock & " " & _
      "WHERE " & strDbTable & "Permissions.Moderate = " & strDbTrue & " " & _
      "AND " & strDbTable & "Permissions.Forum_ID = " & intForumID & " " & _
      "AND " & strDbTable & "Permissions.Author_ID = " & strDbTable & "Author.Author_ID " & _
      "ORDER BY " & strDbTable & "Author.Username ASC;"
      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.", "member_count", "default.asp")
      On Error goto 0
       Do until rsCommon.EOF
        If strModerators <> "" Then strModerators = strModerators & "　"

strModerators = strModerators & "<a href=""member_profile.asp?PF=" & rsCommon("Author_ID") & strQsSID2 & """ class=""smLink"" oncontextmenu=""ShowUserMenu('" & rsCommon("Author_ID") & "', '" & rsCommon("Username") & "'); return false;"">" & rsCommon("Username") & "</a>"

rsCommon.MoveNext

       Loop
      rsCommon.close

      'If there are moderators
      If strModerators <> "" Then strModerators = "" & strModerators