<% @ Language=VBScript %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums '** http://www.webwizforums.com '** '** Copyright ©2001-2006 Web Wiz. All Rights Reserved. '** '** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'. '** '** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE '** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE '** AND DERIVATIVE WORKS IMMEDIATELY. '** '** If you have not received a copy of the license with this work then a copy of the latest '** license contract can be found at:- '** '** http://www.webwizguide.com/license '** '** For more information about this software and for licensing information please contact '** 'Web Wiz' at the address and website below:- '** '** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England '** http://www.webwizguide.com '** '** Removal or modification of this copyright notice will violate the license contract. '** '**************************************************************************************** 'Set the response buffer to true as we maybe redirecting Response.Buffer = True 'Make sure this page is not cached Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" 'Dimension variables Dim strUsername 'Holds the users username Dim strHomepage 'Holds the users homepage if they have one Dim strEmail 'Holds the users e-mail address Dim blnShowEmail 'Boolean set to true if the user wishes there e-mail address to be shown Dim lngUserID 'Holds the new users ID number Dim lngNumOfPosts 'Holds the number of posts the user has made Dim intMemberGroupID 'Holds the users interger group ID Dim strMemberGroupName 'Holds the umembers group name Dim intRankStars 'holds the number of rank stars the user holds Dim dtmRegisteredDate 'Holds the date the usre registered Dim intTotalRecordsPages 'Holds the total number of pages Dim intTotalRecords 'Holds the total number of forum members Dim intRecordPositionPageNum 'Holds the page number we are on Dim dtmLastPostDate 'Holds the date of the users las post Dim intLinkPageNum 'Holds the page number to link to Dim strSearchCriteria 'Holds the search critiria Dim strSortBy 'Holds the way the records are sorted Dim intForumID 'Holds the forum ID if within a forum Dim intGetGroupID 'Holds the group ID Dim strRankCustomStars 'Holds custom stars for the user group Dim sarryMembers 'Holds the getrows db call for members Dim intPageSize 'Holds the number of memebrs shown per page Dim intStartPosition 'Holds the start poition for records to be shown Dim intEndPosition 'Holds the end poition for records to be shown Dim intCurrentRecord 'Holds the current record position Dim dtmLastActiveDate 'Holds the date this user was last active Dim strSortDirection 'Holds the sort order Dim strLinkPage 'Holds the page to link to Dim intPageLinkLoopCounter 'Holds the loop counter for the page links Dim strPassword 'Initalise variables blnShowEmail = False intGetGroupID = CInt(Request.QueryString("GID")) intPageSize = 25 'If this is the first time the page is displayed then the members record position is set to page 1 If Request.QueryString("PN") = "" Then intRecordPositionPageNum = 1 'Else the page has been displayed before so the members page record postion is set to the Record Position number Else intRecordPositionPageNum = CInt(Request.QueryString("PN")) End If 'Get the search critiria for the members to display If NOT Request.QueryString("SF") = "" Then strSearchCriteria = Trim(Mid(Request.QueryString("SF"), 1, 15)) End If 'Take out parts of the username that are not permitted strSearchCriteria = disallowedMemberNames(strSearchCriteria) 'Get rid of milisous code strSearchCriteria = formatSQLInput(strSearchCriteria) 'Get the sort critiria Select Case Request.QueryString("SO") Case "PT" strSortBy = strDbTable & "Author.No_of_posts " Case "LU" strSortBy = strDbTable & "Author.Join_date " Case "OU" strSortBy = strDbTable & "Author.Join_date " Case "GP" strSortBy = strDbTable & "Group.Name " Case "LA" strSortBy = strDbTable & "Author.Last_visit " Case Else strSortBy = strDbTable & "Author.Username " End Select 'Sort the direction of db results If Request.QueryString("OB") = "desc" Then strSortDirection = "asc" strSortBy = strSortBy & "DESC" Else strSortDirection = "desc" strSortBy = strSortBy & "ASC" End If 'Read in from db If intGroupID <> 2 Then 'If this is to show a group the query the database for the members of the group If intGetGroupID <> 0 Then 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & 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 & "Group.Stars, " & strDbTable & "Group.Custom_stars " & _ "FROM " & strDbTable & "Author" & strDBNoLock & ", " & strDbTable & "Group" & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.Group_ID = " & strDbTable & "Group.Group_ID AND " & strDbTable & "Author.Group_ID=" & intGetGroupID & " " & _ "ORDER BY " & strSortBy & ";" 'Else get all the members from the database Else 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & 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 & "Group.Stars, " & strDbTable & "Group.Custom_stars " & _ "FROM " & strDbTable & "Author " & strDBNoLock & ", " & strDbTable & "Group " & strDBNoLock & " " & _ "WHERE " & strDbTable & "Author.Group_ID = " & strDbTable & "Group.Group_ID AND " & strDbTable & "Author.Username LIKE '" & strSearchCriteria & "%' " & _ "ORDER BY " & strSortBy & ";" End If 'Query the database rsCommon.Open strSQL, adoCon 'If there are records get em from rs If NOT rsCommon.EOF Then 'Read in the row from the db using getrows for better performance sarryMembers = rsCommon.GetRows() 'Count the number of records intTotalRecords = Ubound(sarryMembers,2) + 1 'Count the number of pages for the topics using '\' so that any fraction is omitted intTotalRecordsPages = intTotalRecords \ intPageSize 'If there is a remainder or the result is 0 then add 1 to the total num of pages If intTotalRecords Mod intPageSize > 0 OR intTotalRecordsPages = 0 Then intTotalRecordsPages = intTotalRecordsPages + 1 'Start position intStartPosition = ((intRecordPositionPageNum - 1) * intPageSize) 'End Position intEndPosition = intStartPosition + intPageSize 'Get the start position intCurrentRecord = intStartPosition End If 'Close the recordset as it is no longer needed rsCommon.Close End If 'Page to link to for mutiple page (with querystrings if required) strLinkPage = "members.asp?SF=" & Server.URLEncode(Request.QueryString("SF")) & "&GID=" & intGetGroupID & "&" 'If active users is enabled update the active users application array If blnActiveUsers Then If Request.QueryString("SF") = "" Then 'Call active users function saryActiveUsers = activeUsers("", strTxtViewing & " " & strTxtForumMembers, "members.asp?PN=" & intRecordPositionPageNum, 0) Else 'Call active users function saryActiveUsers = activeUsers(strTxtViewing & " " & strTxtForumMembers, strTxtSearchingFor & ": ‘" & Server.HTMLEncode(Request.QueryString("SF")) & "’", strLinkPage & "PN=" & intRecordPositionPageNum, 0) End If End If %> <% = strMainForumName %> Members <% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** Response.Write("") '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>
<% = strTxtForumMembers %>
 <% = strMainForumName %><% = strNavSpacer %><% = strTxtForumMembers %>

<% 'If the users account is suspended then let them know If blnActiveMember = false OR blnBanned Then Response.Write(vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
" & strTxtError & "
") 'If mem suspended display message If blnBanned Then Response.Write("" & strTxtForumMemberSuspended & "") 'Else account not yet active ElseIf blnActiveMember = False Then Response.Write("

" & strTxtForumMembershipNotAct) If blnMemberApprove = False Then Response.Write("

" & strTxtToActivateYourForumMem) 'If admin activation is enabled let the user know If blnMemberApprove Then Response.Write("

" & strTxtYouAdminNeedsToActivateYourMembership) 'If email is on then place a re-send activation email link ElseIf blnEmailActivation AND blnLoggedInUserEmail Then Response.Write("

" & strTxtResendActivationEmail & "") End If End If Response.Write(vbCrLf & "
" & _ vbCrLf & "

") 'If the user has not logged in dispaly an error message ElseIf intGroupID = 2 Then Response.Write(vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
" & strTxtError & "
" & strTxtMustBeRegistered & "
") %><% 'If the user has logged in then read in the members from the database and dispaly them Else 'If there are no memebers to display then show an error message If intTotalRecords <= 0 Then Response.Write(vbCrLf & "" & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & " " & _ vbCrLf & "
" & strTxtError & "
" & strTxtSorryYourSearchFoundNoMembers & "
" & _ vbCrLf & "
") End If %>
<% = strTxtMemberSearch %>
<% = strTxtMemberSearch %>: " />

# A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

<% 'Display some text on search If intTotalRecords > 0 Then Response.Write(strTxtSearchResults & " ") 'If this is a keyword search display keywrds If strSearchCriteria <> "" Then Response.Write(strTxtFor & " '" & Server.HTMLEncode(strSearchCriteria) & "' ") End If Response.Write(strTxtHasFound & " " & FormatNumber(intTotalRecords, 0) & " " & strTxtResultsIn & " " & FormatNumber(Timer() - dblStartTime, 4) & " " & strTxtSecounds & ".") End If %>
<% If blnPrivateMessages = True Then %> <% End If %> <% 'If there are no search results display an error msg If intTotalRecords <= 0 Then 'If there are no search results to display then display the appropriate error message Response.Write vbCrLf & " " 'Disply any search results in the forum Else 'Do....While Loop to loop through the recorset to display the forum members Do While intCurrentRecord < intEndPosition 'If there are no member's records left to display then exit loop If intCurrentRecord >= intTotalRecords Then Exit Do 'Initialise varibles dtmLastPostDate = "" 'Read in the profile from the recordset lngUserID = CLng(sarryMembers(0,intCurrentRecord)) strUsername = sarryMembers(1,intCurrentRecord) If isDate(sarryMembers(3,intCurrentRecord)) Then dtmLastActiveDate = CDate(sarryMembers(3,intCurrentRecord)) Else dtmLastActiveDate = "2000-01-01 00:00:00" lngNumOfPosts = CLng(sarryMembers(4,intCurrentRecord)) dtmRegisteredDate = CDate(sarryMembers(5,intCurrentRecord)) intMemberGroupID = CInt(sarryMembers(2,intCurrentRecord)) strMemberGroupName = sarryMembers(7,intCurrentRecord) intRankStars = CInt(sarryMembers(8,intCurrentRecord)) strRankCustomStars = sarryMembers(9,intCurrentRecord) 'If the users account is not active make there account level guest If CBool(sarryMembers(6,intCurrentRecord)) = False Then intMemberGroupID = 0 'Write the HTML of the Topic descriptions as hyperlinks to the Topic details and message %> "> <% If blnPrivateMessages = True Then %> <% End If %> <% 'Move to the next record intCurrentRecord = intCurrentRecord + 1 'Loop back round Loop End If %>
&GID=<% = intGetGroupID %>&SO=UN<% = strQsSID2 %>"><% = strTxtUsername %><% If Request.QueryString("SO") = "UN" OR Request.QueryString("SO") = "" Then Response.Write(" ") %> &GID=<% = intGetGroupID %>&SO=GP<% = strQsSID2 %>"><% = strTxtType %><% If Request.QueryString("SO") = "GP" Then Response.Write(" ") %> &GID=<% = intGetGroupID %>&SO=LU<% = strQsSID2 %>"><% = strTxtRegistered %><% If Request.QueryString("SO") = "LU" Then Response.Write(" ") %> &GID=<% = intGetGroupID %>&SO=PT<% = strQsSID2 %>"><% = strTxtPosts %><% If Request.QueryString("SO") = "PT" Then Response.Write(" ") %> &GID=<% = intGetGroupID %>&SO=LA<% = strQsSID2 %>"><% = strTxtLastActive %><% If Request.QueryString("SO") = "LA" Then Response.Write(" ") %><% = strTxtAddBuddy %><% = strTxtSearch %>

" & strTxtSorryYourSearchFoundNoMembers & "

<% = strUsername %> <% = strMemberGroupName %>
" alt="<% = strMemberGroupName %>">		 <% = DateFormat(dtmRegisteredDate) %> <% = lngNumOfPosts %> <% = DateFormat(dtmLastActiveDate) %><% = strTxtAddToBuddyList %><% = strTxtSearchForPosts %> <% = strUsername %>
<% End If %>
<% 'Reset Server Objects Call closeDatabase() %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Bulletin Board Software by Web Wiz Forums version " & strVersion & "") Else Response.Write("") End If Response.Write("
Copyright ©2001-2006 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** 'Display the process time If blnShowProcessTime Then Response.Write "

" & strTxtThisPageWasGeneratedIn & " " & FormatNumber(Timer() - dblStartTime, 3) & " " & strTxtSeconds & "" %>