<% '################################################################################# '## Copyright (C) 2000 Michael Anderson and Pierre Gorissen '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% mypage = request("whichpage") if mypage = "" then mypage = 1 end if mypagesize = request("pagesize") if mypagesize = "" then mypagesize = 30 end if mySQL = request("strSql") if mySQL = "" then mySQL = SQLtemp end if If Request.QueryString("mode") = "search" then strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME LIKE '" & Request("M_NAME") & "%' " Set rsMembers = Server.CreateObject("ADODB.RecordSet") rsMembers.open strSql, my_conn, 3 if not (rsMembers.EOF or rsMembers.BOF) then '## No categories found in DB rsMembers.movefirst rsMembers.pagesize = mypagesize maxpages = cint(rsMembers.pagecount) end if %>

<% if maxpages > 1 then %>

Pages:

<% Call Paging() %>

<% else %> <% end if %>

<% If rsMembers.EOF or rsMembers.BOF then '## No Members Found in DB %> <% Else currMember = 0 %> <% i = 0 rsMembers.cacheSize = 30 rsMembers.moveFirst rsMembers.pageSize = myPageSize maxPages = cint(rsMembers.pageCount) maxRecs = cint(rsMembers.pageSize) rsMembers.absolutePage = myPage howManyRecs = 0 rec = 1 do until rsMembers.Eof or rec = 31 if i = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if %> <% currMember = rsMembers("MEMBER_ID") rsMembers.MoveNext i = i + 1 if i = 2 then i = 0 rec = rec + 1 loop %> <% end if %>

Member Name

No Members Found

Go back

" target="_new"><% =ChkString(rsMembers("M_NAME"),"display") %>

'; window.close()">

Go back

<% else '## Forum_SQL - Get all active topics from last visit strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_STATUS, " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME, " & strMemberTablePrefix & "MEMBERS.M_LASTNAME, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, " & strMemberTablePrefix & "MEMBERS.M_EMAIL, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE, " & strMemberTablePrefix & "MEMBERS.M_ICQ, " & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, " & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_LASTPOSTDATE, " & strMemberTablePrefix & "MEMBERS.M_LASTHEREDATE, " & strMemberTablePrefix & "MEMBERS.M_DATE " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " if mlev = 4 then strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME <> 'n/a' " else strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_STATUS = " & 1 end if Set rs = Server.CreateObject("ADODB.RecordSet") rs.open strSql, my_conn, 3 if not (rs.EOF or rs.BOF) then '## No categories found in DB rs.movefirst rs.pagesize = mypagesize maxpages = cint(rs.pagecount) end if %>

<% if maxpages > 1 then %>

Pages:

<% Call Paging() %>

<% else %> <% end if %>

<% If rs.EOF or rs.BOF then '## No Members Found in DB %> <% Else %> <% currMember = 0 %> <% i = 0 rs.cacheSize = 30 rs.moveFirst rs.pageSize = myPageSize maxPages = cint(rs.pageCount) maxRecs = cint(rs.pageSize) rs.absolutePage = myPage howManyRecs = 0 rec = 1 do until rs.Eof or rec = 31 if i = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if %> <% currMember = rs("MEMBER_ID") rs.MoveNext i = i + 1 if i = 2 then i = 0 rec = rec + 1 loop end if %>

Member Name

No Members Found

Go back

" target="_new"><% =ChkString(rs("M_NAME"),"display") %> '; window.close()" style="cursor:hand">

Search:
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 maxpages > 1 then %>

Members:

<% Call Paging() %>

<% else %> <% end if %>

<% end if %> <% sub Paging() if maxpages > 1 then if Request.QueryString("whichpage") = "" then sPageNumber = 1 else sPageNumber = Request.QueryString("whichpage") end if if Request.QueryString("method") = "" then sMethod = "postsdesc" else sMethod = Request.QueryString("method") end if sScriptName = Request.ServerVariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(sPageNumber) then sNum = "" Response.Write sNum else Response.Write("") end if if counter mod 30 = 0 then Response.Write("") end if next Response.Write("

" & " " & widenum(counter) & "" & counter & "

" & " " & widenum(counter) & "" & counter & "

") end if end sub %>