<% = strTxtForumMembersList %>

<% = strTxtReturnToDiscussionForum %>

<% = strTxtMemberSearch %>: "> "> "> "> "> "> "> "> "> "> <% = strTxtAll %> 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

<% 'If the user has not logged in dispaly an error message If lngLoggedInUserID = 0 Then Response.Write vbCrLf & "" & strTxtMustBeRegistered & "

" Response.Write vbCrLf & "  " 'If the user has logged in then read in the members from the database and dispaly them Else 'Intialise the ADO recordset object Set rsMembers = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblAuthor.* " strSQL = strSQL & "FROM tblAuthor " strSQL = strSQL & "WHERE ((([tblAuthor].[Username]) Like '" & strSearchCriteria & "')) " strSQL = strSQL & "ORDER BY tblAuthor." & strSortBy & ";" 'Set the cursor type property of the record set to dynamic so we can naviagate through the record set rsMembers.CursorType = 1 'Query the database rsMembers.Open strSQL, strCon 'Set the number of records to display on each page rsMembers.PageSize = 20 'If there are no memebers to display then show an error message If rsMembers.EOF Then Response.Write "Sorry, your search found no forum members that match your criteria" 'If there is a recorset returned by the query then read in the details Else 'Set the page number to display records for rsMembers.AbsolutePage = intRecordPositionPageNum 'Count the number of members there are in the database by returning the number of records in the recordset intTotalNumMembers = rsMembers.RecordCount 'Count the number of pages there are in the database calculated by the PageSize attribute set above intTotalNumMembersPages = rsMembers.PageCount 'Display the HTML for the total number of pages and total number of records in the database for the users Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & " " Response.Write vbCrLf & "

" 'If we are showing all the forum memebers then display how many members there are If Request.QueryString("find") = "" Then Response.Write vbCrLf & " " & strTxtThereAre & " " & intTotalNumMembers & " " & strTxtForumMembersOn & " " & intTotalNumMembersPages & " " & strTxtPageYouAerOnPage & " " & intRecordPositionPageNum 'Else display how many results were fround from the search Else Response.Write vbCrLf & " " & strTxtYourSearchMembersFound & " " & intTotalNumMembers & " " & strTxtMatches End If Response.Write vbCrLf & "

" Response.Write vbCrLf & "
" %>

<% = strTxtSortResultsBy %> ><% = strTxtUsernameAlphabetically %> ><% = strTxtNoOfPosts %> ><% = strTxtNewForumMembersFirst %> ><% = strTxtOldForumMembersFirst %> ><% = strTxtLocationAlphabetically %>

<% 'Intialise the ADO recordset object for last post date Set rsLastPostDate = Server.CreateObject("ADODB.Recordset") 'For....Next Loop to loop through the recorset to display the forum members For intRecordLoopCounter = 1 to 20 'If there are no member's records left to display then exit loop If rsMembers.EOF Then Exit For 'Initialise varibles dtmLastPostDate = "" 'Read in the profile from the recordset lngUserID = CLng(rsMembers("Author_ID")) strUsername = rsMembers("Username") strEmail = rsMembers("Author_email") blnShowEmail = CBool(rsMembers("Show_email")) strHomepage = rsMembers("Homepage") strLocation = rsMembers("Location") intNumOfPosts = CInt(rsMembers("No_of_posts")) dtmRegisteredDate = CDate(rsMembers("Join_date")) 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblThread.Message_date, tblThread.Author_ID " strSQL = strSQL & "FROM tblThread " strSQL = strSQL & "WHERE tblThread.Author_ID = " & lngUserID & " " strSQL = strSQL & "ORDER BY tblThread.Message_date DESC;" 'Query the database rsLastPostDate.Open strSQL, strCon 'Read in the date of the last post If NOT rsLastPostDate.EOF Then dtmLastPostDate = CDate(rsLastPostDate("Message_date")) 'Write the HTML of the Topic descriptions as hyperlinks to the Topic details and message %> <% 'Move to the next record in the database rsMembers.MoveNext 'Close the post date recordset rsLastPostDate.Close 'Loop back round Next End If %>   <% = strTxtUsername %> <% = strTxtPosts %> <% = strTxtLastPost %> <% = strTxtRegistered %> <% = strTxtLocation %> <% = strTxtSearch %> <% If NOT strHomepage = "" Then Response.Write "" %> <% If NOT strEmail = "" AND (blnShowEmail = True OR lngLoggedInUserID = 1) Then Response.Write " " %> <% If strHomepage = "" AND strEmail = "" AND (blnShowEmail = False OR lngLoggedInUserID > 1) Then Response.Write " " %> <% = strUsername %> <% = intNumOfPosts %> <% If dtmLastPostDate = "" Then Response.Write " " Else Response.Write DateFormat(dtmLastPostDate) End If %> <% = DateFormat(dtmRegisteredDate) %> <% If strLocation = "" Then Response.Write " " Else Response.Write strLocation End If %> <% If Request.QueryString("ReturnPage") = "Search" Then %><% Else %><% End If %>

<% 'If there is more than 1 page of members then dispaly drop down list to the other members If intTotalNumMembersPages > 1 Then 'Display an drop down list to the other members in list Response.Write vbCrLf & " " End If %>

" & strTxtPage & " " Response.Write vbCrLf & " " Dim intTopicPageLoopCounter 'Loop round to display links to all the other pages For intTopicPageLoopCounter = 1 to intTotalNumMembersPages 'Display a link in the link list to the another members page Response.Write vbCrLf & " " & intTopicPageLoopCounter & "" Next 'End the drop down list Response.Write vbCrLf & "

<% 'Reset Server Variables rsMembers.Close Set rsMembers = Nothing Set rsLastPostDate = Nothing End If 'Reset Server Objects Set adoCon = Nothing Set strCon = Nothing %>

") End If End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>