The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
I was reading some old topics and stumbled on this one. Thought someone could use it and the referenced link was dead, so I wrote it.
Basically, I used one of my buttons because I just don't like the standard design and redid the whole search form at the top.
The country and state lists are populated from the members' table, so you can not select countries or states which have 0 results; however, you CAN select a country AND a state combination which will result in 0 members. If there are members with no values for either state or country, there will be a blank line displayed as an option - selecting it will give you all members with an empty field.
"members.asp"
Here's the submit button I used:
[IMG]http://i46.tinypic.com/dev9rl.png[/IMG]
Basically, I used one of my buttons because I just don't like the standard design and redid the whole search form at the top.
The country and state lists are populated from the members' table, so you can not select countries or states which have 0 results; however, you CAN select a country AND a state combination which will result in 0 members. If there are members with no values for either state or country, there will be a blank line displayed as an option - selecting it will give you all members with an empty field.
"members.asp"
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## 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 (at your option) 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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if strDBNTUserName = "" then
Err_Msg = "<li>You must be logged in to view the Members List</li>"
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>You must be logged in to view this page</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
end if
Response.Write " <script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
" function ChangePage(fnum){" & vbNewLine & _
" if (fnum == 1) {" & vbNewLine & _
" document.PageNum1.submit();" & vbNewLine & _
" }" & vbNewLine & _
" else {" & vbNewLine & _
" document.PageNum2.submit();" & vbNewLine & _
" }" & vbNewLine & _
" }" & vbNewLine & _
" </script>" & vbNewLine
if trim(chkString(Request("method"),"SQLString")) <> "" then
SortMethod = trim(chkString(Request("method"),"SQLString"))
strSortMethod = "&method=" & SortMethod
strSortMethod2 = "?method=" & SortMethod
end if
if trim(chkString(Request("mode"),"SQLString")) <> "" then
strMode = trim(chkString(Request("mode"),"SQLString"))
if strMode <> "search" then strMode = ""
end if
SearchName = trim(Request("M_NAME"))
if SearchName = "" then
SearchName = trim(Request.Form("M_NAME"))
end if
SearchNameDisplay = Server.HTMLEncode(SearchName)
If SearchName <> "" Then
If Not IsValidString(SearchName) Then
Err_Msg = "Invalid Name!"
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & Err_Msg & "</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
End If
End if
SearchName = chkString(SearchName, "sqlstring")
if Request("UserName") <> "" then
if IsNumeric(Request("UserName")) = True then srchUName = cLng(Request("UserName")) else srchUName = "1"
end if
if Request("FirstName") <> "" then
if IsNumeric(Request("FirstName")) = True then srchFName = cLng(Request("FirstName")) else srchFName = "0"
end if
if Request("LastName") <> "" then
if IsNumeric(Request("LastName")) = True then srchLName = cLng(Request("LastName")) else srchLName = "0"
end if
if Request("INITIAL") <> "" then
if IsNumeric(Request("INITIAL")) = True then srchInitial = cLng(Request("INITIAL")) else srchInitial = "0"
end if
' ## Search by Country/State Below
If Request("Loc_CB")>"" Then
strCB=1
If Request("Loc_C")>"" Then
strSearch=" AND M_COUNTRY = '" & Request("Loc_C") & "'"
else
strSearch=" AND isNull(M_COUNTRY)"
end if
End If
If Request("Loc_SB")>"" Then
if strSearch > "" Then
If Request("Loc_S")>"" Then
strSearch = strSearch & " AND M_STATE='" & Request("Loc_S") & "'"
else
strSearch = strSearch & " AND isNull(M_STATE)"
end if
else
If Request("Loc_S")>"" Then
strSearch=" AND M_STATE= '" & Request("Loc_S") & "'"
else
strSearch=" AND isNull(M_STATE)"
end if
end if
strSB=1
End If
' ## Search by Country/State Above
mypage = trim(chkString(request("whichpage"),"SQLString"))
if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then mypage = 1
mypage = cLng(mypage)
'New Search Code
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
' if Request.querystring("link") <> "sort" then
whereSql = " WHERE ("
tmpSql = ""
if srchUName = "1" then
tmpSql = tmpSql & "M_NAME LIKE '%" & SearchName & "%' OR "
tmpSql = tmpSql & "M_USERNAME LIKE '%" & SearchName & "%'"
end if
if srchFName = "1" then
if srchUName = "1" then
tmpSql = tmpSql & " OR "
end if
tmpSql = tmpSql & "M_FIRSTNAME LIKE '%" & SearchName & "%'"
end if
if srchLName = "1" then
if srchFName = "1" or srchUName = "1" then
tmpSql = tmpSql & " OR "
end if
tmpSql = tmpSql & "M_LASTNAME LIKE '%" & SearchName & "%' "
end if
if srchInitial = "1" then
tmpSQL = "M_NAME LIKE '" & SearchName & "%'"
end if
whereSql = whereSql & tmpSql &")"
Session(strCookieURL & "where_Sql") = whereSql
' end if
if Session(strCookieURL & "where_Sql") <> "" then
whereSql = Session(strCookieURL & "where_Sql")
else
whereSql = ""
end if
strSQL3 = whereSql
else
'## Forum_SQL - Get all members
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, "
strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE "
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS "
if mlev = 4 then
strSql3 = " WHERE M_NAME <> 'n/a' "
else
strSql3 = " WHERE M_STATUS = " & 1
end if
end if
' ## Search by Country/State Below
if strSearch > "" then strSql3=strSql3 & strSearch
' ## Search by Country/State Above
select case SortMethod
case "nameasc"
strSql4 = " ORDER BY M_NAME ASC"
case "namedesc"
strSql4 = " ORDER BY M_NAME DESC"
case "levelasc"
strSql4 = " ORDER BY M_TITLE ASC, M_NAME ASC"
case "leveldesc"
strSql4 = " ORDER BY M_TITLE DESC, M_NAME ASC"
case "lastpostdateasc"
strSql4 = " ORDER BY M_LASTPOSTDATE ASC, M_NAME ASC"
case "lastpostdatedesc"
strSql4 = " ORDER BY M_LASTPOSTDATE DESC, M_NAME ASC"
case "lastheredateasc"
if mlev = 4 or mlev = 3 then
strSql4 = " ORDER BY M_LASTHEREDATE ASC, M_NAME ASC"
else
strSql4 = " ORDER BY M_POSTS DESC, M_NAME ASC"
end if
case "lastheredatedesc"
if mlev = 4 or mlev = 3 then
strSql4 = " ORDER BY M_LASTHEREDATE DESC, M_NAME ASC"
else
strSql4 = " ORDER BY M_POSTS DESC, M_NAME ASC"
end if
case "dateasc"
strSql4 = " ORDER BY M_DATE ASC, M_NAME ASC"
case "datedesc"
strSql4 = " ORDER BY M_DATE DESC, M_NAME ASC"
case "countryasc"
strSql4 = " ORDER BY M_COUNTRY ASC, M_NAME ASC"
case "countrydesc"
strSql4 = " ORDER BY M_COUNTRY DESC, M_NAME ASC"
case "postsasc"
strSql4 = " ORDER BY M_POSTS ASC, M_NAME ASC"
case else
strSql4 = " ORDER BY M_POSTS DESC, M_NAME ASC"
end select
if strDBType = "mysql" then 'MySql specific code
if mypage > 1 then
OffSet = cLng((mypage - 1) * strPageSize)
strSql5 = " LIMIT " & OffSet & ", " & strPageSize & " "
end if
'## Forum_SQL - Get the total pagecount
strSql1 = "SELECT COUNT(MEMBER_ID) AS PAGECOUNT "
set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3)
iPageTotal = rsCount(0).value
rsCount.close
set rsCount = nothing
if iPageTotal > 0 then
maxpages = (iPageTotal \ strPageSize )
if iPageTotal mod strPageSize <> 0 then
maxpages = maxpages + 1
end if
if iPageTotal < (strPageSize + 1) then
intGetRows = iPageTotal
elseif (mypage * strPageSize) > iPageTotal then
intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal)
else
intGetRows = strPageSize
end if
else
iPageTotal = 0
maxpages = 0
end if
if iPageTotal > 0 then
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
arrMemberData = rs.GetRows(intGetRows)
iMemberCount = UBound(arrMemberData, 2)
rs.close
set rs = nothing
else
iMemberCount = ""
end if
else 'end MySql specific code
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = strPageSize
rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic
If not (rs.EOF or rs.BOF) then
rs.movefirst
rs.pagesize = strPageSize
rs.absolutepage = mypage '**
maxpages = cLng(rs.pagecount)
arrMemberData = rs.GetRows(strPageSize)
iMemberCount = UBound(arrMemberData, 2)
else
iMemberCount = ""
end if
rs.Close
set rs = nothing
end if
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information</font></td>" & vbNewLine & _
" <td align=""right"" valign=""bottom"">" & vbNewLine
if maxpages > 1 then
Response.Write " <table border=""0"" align=""right"">" & vbNewLine & _
" <tr>" & vbNewLine
Call Paging2(1)
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
Response.Write " " & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
' ## Search by Country/State Below
Response.Write " <form action=""members.asp" & strSortMethod2 & """ method=""post"" name=""SearchMembers"">" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td bgcolor=""" & strPopUpTableColor & """ align=""right"" width=""50%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Search:</b> " & vbNewline & _
" <input type=""checkbox"" name=""UserName"" value=""1"""
if ((srchUName <> "") or (srchUName = "" and srchFName = "" and srchLName = "") ) then Response.Write(" checked")
Response.Write ">User Names" & vbNewline
if strFullName = "1" then
Response.Write " <input type=""checkbox"" name=""FirstName"" value=""1""" & chkCheckbox(srchFName,1,true) & ">First Name" & vbNewline & _
" <input type=""checkbox"" name=""LastName"" value=""1""" & chkCheckbox(srchLName,1,true) & ">Last Name" & vbNewline
end if
Response.Write " </font></td>" & vbNewline & _
" <td bgcolor=""" & strPopUpTableColor & """ align=""left"" width=""50%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>For:</b> " & vbNewline & _
" <input type=""text"" size=""75"" maxlength=""75"" name=""M_NAME"" value=""" & SearchNameDisplay & """></font></td>" & vbNewline & _
" <input type=""hidden"" name=""mode"" value=""search"">" & vbNewline & _
" <input type=""hidden"" name=""initial"" value=""0"">" & vbNewline & _
" </tr>" & vbNewline & _
" <tr bgcolor=""" & strPopUpTableColor & """>" & vbNewLine & _
" <td colspan=""2"" align=""center"" valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <a href=""members.asp""" & dWStatus("Display ALL Member Names") & ">All</a> " & vbNewLine
for intChar = 65 to 90
Response.Write " <a href=""members.asp?mode=search&M_NAME=" & chr(intChar) & "&initial=1" & strSortMethod & """" & dWStatus("Display Member Names starting with the letter '" & chr(intChar) & "'") & ">" & chr(intChar) & "</a> " & vbNewLine
next
Response.Write " <br /></font></td></tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td align=""right"" width=""50%"" valign=""middle"" bgcolor=""" & strPopUpTableColor & """>" & vbNewline & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Loc_C"" size=""1"">" & vbNewLine
strSql = "SELECT DISTINCT(M_COUNTRY) FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_COUNTRY ASC"
Set rsCountry=my_Conn.Execute(strSql)
If not rsCountry.EOF then
rsCountry.MoveFirst
Do while not rsCountry.EOF
Response.Write "<option value=""" & rsCountry("M_COUNTRY") & """"
If Request.Form("Loc_C")=rsCountry("M_COUNTRY") Then Response.Write " SELECTED"
Response.Write ">" & rsCountry("M_COUNTRY") & "</option>" & vbNewLine
rsCountry.MoveNext
Loop
rsCountry.Close
End If
Set rsState=Nothing
Response.Write " </select>" & vbNewLine & _
" <input type=""checkbox"" name=""Loc_CB"" value=""yes""" & chkCheckbox(strCB,1,true) & "> Country" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td align=""left"" width=""50%"" valign=""middle"" bgcolor=""" & strPopUpTableColor & """>" & vbNewline & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""Loc_S"" size=""1"">" & vbNewLine
strSql = "SELECT DISTINCT(M_STATE) FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_STATE ASC"
Set rsState=my_Conn.Execute(strSql)
If not rsState.EOF then
rsState.MoveFirst
Do while not rsState.EOF
Response.Write "<option value=""" & rsState("M_STATE") & """"
If Request.Form("Loc_S")=rsState("M_STATE") Then Response.Write " SELECTED"
Response.Write ">" & rsState("M_STATE") & "</option>" & vbNewLine
rsState.MoveNext
Loop
rsState.Close
End If
Set rsState=Nothing
Response.Write "</select>" & vbNewLine & _
" <input type=""checkbox"" name=""Loc_SB"" value=""yes""" & chkCheckbox(strSB,1,true) & "> State" & vbNewLine & _
" </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""top"">" & vbNewLine & _
" <td bgcolor=""transparent"" align=""center"">" & vbNewLine
if strGfxButtons = "1" then
Response.Write " <input src=""" & strImageUrl & "submit.png"" height=""40"" alt=""Quick Search"" type=""image"" value=""search"" id=""submit1"" name=""submit1"">" & vbNewline
else
Response.Write " <input type=""submit"" value=""search"" id=""submit1"" name=""submit1"">" & vbNewline
end if
Response.Write " </td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewLine & _
" </form>" & vbNewline & _
" <br />" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""3"">" & vbNewLine & _
" <tr>" & vbNewLine
' ## Search by Country/State Above
strNames = "UserName=" & srchUName &_
"&FirstName=" & srchFName &_
"&LastName=" & srchLName &_
"&INITIAL=" &srchInitial & "&"
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> </font></b></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "nameasc" then Response.Write("namedesc") else Response.Write("nameasc")
Response.Write """" & dWStatus("Sort by Member Name") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Member Name</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "levelasc" then Response.Write("leveldesc") else Response.Write("levelasc")
Response.Write """" & dWStatus("Sort by Member Level") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Title</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "postsdesc" then Response.Write("postsasc") else Response.Write("postsdesc")
Response.Write """" & dWStatus("Sort by Post Count") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Posts</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "lastpostdatedesc" then Response.Write("lastpostdateasc") else Response.Write("lastpostdatedesc")
Response.Write """" & dWStatus("Sort by Last Post Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Post</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "datedesc" then Response.Write("dateasc") else Response.Write("datedesc")
Response.Write """" & dWStatus("Sort by Date of Registration") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Member Since</font></b></a></td>" & vbNewLine
if strCountry = "1" then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?" & strNames & "link=sort&mode=search&M_NAME=" & SearchName & "&method="
if Request.QueryString("method") = "countryasc" then Response.Write("countrydesc") else Response.Write("countryasc")
Response.Write """" & dWStatus("Sort by Country") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Country</font></b></a></td>" & vbNewLine
end if
if mlev = 4 or mlev = 3 then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method="
if Request.QueryString("method") = "lastheredatedesc" then Response.Write("lastheredateasc") else Response.Write("lastheredatedesc")
Response.Write """" & dWStatus("Sort by Last Visit Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Visit</font></b></a></td>" & vbNewLine
end if
if mlev = 4 or (lcase(strNoCookies) = "1") then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> </font></b></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
if iMemberCount = "" then '## No Members Found in DB
Response.Write " <tr>" & vbNewLine & _
" <td colspan=""" & sGetColspan(9, 8) & """ bgcolor=""" & strForumCellColor & """ ><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><b>No Members Found</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
else
mMEMBER_ID = 0
mM_STATUS = 1
mM_NAME = 2
mM_LEVEL = 3
mM_EMAIL = 4
mM_COUNTRY = 5
mM_HOMEPAGE = 6
mM_AIM = 7
mM_ICQ = 8
mM_MSN = 9
mM_YAHOO = 10
mM_TITLE = 11
mM_POSTS = 12
mM_LASTPOSTDATE = 13
mM_LASTHEREDATE = 14
mM_DATE = 15
rec = 1
intI = 0
for iMember = 0 to iMemberCount
if (rec = strPageSize + 1) then exit for
Members_MemberID = arrMemberData(mMEMBER_ID, iMember)
Members_MemberStatus = arrMemberData(mM_STATUS, iMember)
Members_MemberName = arrMemberData(mM_NAME, iMember)
Members_MemberLevel = arrMemberData(mM_LEVEL, iMember)
Members_MemberEMail = arrMemberData(mM_EMAIL, iMember)
Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember)
Members_MemberHomepage = arrMemberData(mM_HOMEPAGE, iMember)
Members_MemberAIM = arrMemberData(mM_AIM, iMember)
Members_MemberICQ = arrMemberData(mM_ICQ, iMember)
Members_MemberMSN = arrMemberData(mM_MSN, iMember)
Members_MemberYAHOO = arrMemberData(mM_YAHOO, iMember)
Members_MemberTitle = arrMemberData(mM_TITLE, iMember)
Members_MemberPosts = arrMemberData(mM_POSTS, iMember)
Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember)
Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember)
Members_MemberDate = arrMemberData(mM_DATE, iMember)
if intI = 1 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
Response.Write " <tr>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & Members_MemberID & """" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & Members_MemberID & "')""" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
end if
if Members_MemberStatus = 0 then
Response.Write getCurrentIcon(strIconProfileLocked,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
else
Response.Write getCurrentIcon(strIconProfile,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""")
end if
Response.Write "</a>" & vbNewLine
if strAIM = "1" and Trim(Members_MemberAIM) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & Members_MemberID & "')""" & dWStatus("Send " & ChkString(Members_MemberName,"display") & " an AOL message") & ">" & getCurrentIcon(strIconAIM,"Send " & ChkString(Members_MemberName,"display") & " an AOL message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
if strICQ = "1" and Trim(Members_MemberICQ) <> "" then
Response.Write " <a href=""JavaScript:openWindow6('pop_messengers.asp?mode=ICQ&ID=" & Members_MemberID & "')""" & dWStatus("Send " & ChkString(Members_MemberName,"display") & " an ICQ Message") & ">" & getCurrentIcon(strIconICQ,"Send " & ChkString(Members_MemberName,"display") & " an ICQ Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
if strMSN = "1" and Trim(Members_MemberMSN) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & Members_MemberID & "')""" & dWStatus("Click to see " & ChkString(Members_MemberName,"display") & "'s MSN Messenger address") & ">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Members_MemberName,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
if strYAHOO = "1" and Trim(Members_MemberYAHOO) <> "" then
Response.Write " <a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(Members_MemberYAHOO, "urlpath") & "&.src=pg"" target=""_blank""" & dWStatus("Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message") & ">" & getCurrentIcon(strIconYahoo,"Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <span class=""spnMessageText""><a href=""pop_profile.asp?mode=display&id=" & Members_MemberID & """ title=""View " & ChkString(Members_MemberName,"display") & "'s Profile""" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
else
Response.Write " <span class=""spnMessageText""><a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & Members_MemberID & "')"" title=""View " & ChkString(Members_MemberName,"display") & "'s Profile""" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & ">"
end if
Response.Write ChkString(Members_MemberName,"display") & "</a></span></font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "</font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
if IsNull(Members_MemberPosts) then
Response.Write("-")
else
Response.Write(Members_MemberPosts)
if strShowRank = 2 or strShowRank = 3 then
Response.Write("<br />" & getStar_Level(Members_MemberLevel, Members_MemberPosts) & "")
end if
end if
Response.Write "</font></td>" & vbNewLine
if IsNull(Members_MemberLastPostDate) or Trim(Members_MemberLastPostDate) = "" then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>-</font></td>" & vbNewLine
else
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastPostDate,"",false) & "</font></td>" & vbNewLine
end if
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberDate,"",false) & "</font></td>" & vbNewLine
if strCountry = "1" then
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
if trim(Members_MemberCountry) <> "" then Response.Write(Members_MemberCountry & " ") else Response.Write("-")
Response.Write "</font></td>" & vbNewLine
end if
if mlev = 4 or mlev = 3 then
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"",false) & "</font></td>" & vbNewLine
end if
if mlev = 4 or (lcase(strNoCookies) = "1") then
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine
if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then
'## Do Nothing
else
if Members_MemberStatus <> 0 then
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Lock Member") & ">" & getCurrentIcon(strIconLock,"Lock Member","hspace=""0""") & "</a>" & vbNewLine
Response.Write " <a href=""JavaScript:openWindow('pop_lock.asp?mode=Zap&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Zap Member") & ">" & getCurrentIcon(strIconZap,"Zap Member Profile","hspace=""0""") & "</a>" & vbNewLine
else
Response.Write " <a href=""JavaScript:openWindow('pop_open.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Un-Lock Member") & ">" & getCurrentIcon(strIconUnlock,"Un-Lock Member","hspace=""0""") & "</a>" & vbNewLine
end if
end if
if (Members_MemberID = intAdminMemberID and MemberID <> intAdminMemberID) OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID AND MemberID <> Members_MemberID) then
Response.Write " -" & vbNewLine
else
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=Modify&ID=" & Members_MemberID & """" & dWStatus("Edit Member") & ">" & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "</a>" & vbNewLine
else
Response.Write " <a href=""JavaScript:openWindow3('pop_profile.asp?mode=Modify&ID=" & Members_MemberID & "')""" & dWStatus("Edit Member") & ">" & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "</a>" & vbNewLine
end if
end if
if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then
'## Do Nothing
else
Response.Write " <a href=""JavaScript:openWindow('pop_delete.asp?mode=Member&MEMBER_ID=" & Members_MemberID & "')""" & dWStatus("Delete Member") & ">" & getCurrentIcon(strIconTrashcan,"Delete Member","hspace=""0""") & "</a>" & vbNewLine
end if
Response.Write " </font></b></td>" & vbNewLine
end if
Response.Write " </tr>" & vbNewLine
rec = rec + 1
intI = intI + 1
if intI = 2 then intI = 0
next
end if
Response.Write " </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td colspan=""2"">" & vbNewLine
if maxpages > 1 then
Response.Write " <table border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine
Call Paging2(2)
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
sub Paging2(fnum)
if maxpages > 1 then
if mypage = "" then
sPageNumber = 1
else
sPageNumber = mypage
end if
if SortMethod = "" then
sMethod = "postsdesc"
else
sMethod = SortMethod
end if
Response.Write(" <form name=""PageNum" & fnum & """ action=""members.asp"">" & vbNewLine)
if fnum = 1 then
Response.Write(" <td align=""right"" valign=""bottom""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine)
else
Response.Write(" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine)
end if
if srchInitial <> "" then Response.Write(" <input type=""hidden"" name=""initial"" value=""" & srchInitial & """>" & vbNewLine)
if sMethod <> "" then Response.Write(" <input type=""hidden"" name=""method"" value=""" & sMethod & """>" & vbNewLine)
if strMode <> "" then Response.Write(" <input type=""hidden"" name=""mode"" value=""" & strMode & """>" & vbNewLine)
if searchName <> "" then Response.Write(" <input type=""hidden"" name=""M_NAME"" value=""" & searchName & """>" & vbNewLine)
if srchUName <> "" then Response.write(" <input type=""hidden"" name=""UserName"" value=""" & srchUName & """>" & vbNewLine)
if srchFName <> "" then Response.write(" <input type=""hidden"" name=""FirstName"" value=""" & srchFName & """>" & vbNewLine)
if srchLName <> "" then Response.write(" <input type=""hidden"" name=""LastName"" value=""" & srchLName & """>" & vbNewLine)
if fnum = 1 then
Response.Write(" <b>Page: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
else
Response.Write(" <b>Members are " & maxpages & " Pages Long: </b><select name=""whichpage"" size=""1"" onchange=""ChangePage(" & fnum & ");"">" & vbNewLine)
end if
for counter = 1 to maxpages
if counter <> cLng(sPageNumber) then
Response.Write " <option value=""" & counter & """>" & counter & "</option>" & vbNewLine
else
Response.Write " <option selected value=""" & counter & """>" & counter & "</option>" & vbNewLine
end if
next
if fnum = 1 then
Response.Write(" </select><b> of " & maxPages & "</b>" & vbNewLine)
else
Response.Write(" </select>" & vbNewLine)
end if
Response.Write(" </font></td>" & vbNewLine)
Response.Write(" </form>" & vbNewLine)
end if
end sub
Function sGetColspan(lIN, lOUT)
if (mlev = "4" or mlev = "3") then lOut = lOut + 2
If lOut > lIn then
sGetColspan = lIN
Else
sGetColspan = lOUT
End If
end Function
%>
Here's the submit button I used:
[IMG]http://i46.tinypic.com/dev9rl.png[/IMG]
lblNoReplies