<%
'################################################################################
'## Snitz Forums 2000 v3.4.06 #
'################################################################################
'## Copyright (C) 2000-06 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_common.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
Dim ST6
if mLev < 3 then
Response.Write "<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine
WriteFooter
Response.End
end if
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine
if mLev < 4 then
Response.Write " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""Moderator_home.asp"">Moderator Tools</a><br />" & vbNewLine
else
Response.Write " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine
end if
Response.Write " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " IP Search<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
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
mypage = trim(chkString(request("whichpage"),"SQLString"))
if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then
mypage = 1
mypage = cLng(mypage)
end if
' ## Check if search string entered
if trim(chkString(Request("method"),"SQLString")) <> "" then
SortMethod = trim(chkString(Request("method"),"SQLString"))
if left(SortMethod,3)="LET" then
SortMethod="M_NAME"
WhereMethod=" WHERE M_NAME LIKE '" & right(trim(chkString(Request("method"),"SQLString")),1) & "%'"
else
WhereMethod=""
end if
strSortMethod = "&method=" & SortMethod
strSortMethod2 = "?method=" & SortMethod
strSql6 = " ORDER BY " & SortMethod & ""
end if
if trim(chkString(Request("mode"),"SQLString")) <> "" then
strMode = trim(chkString(Request("mode"),"SQLString"))
if strMode <> "search" then
strMode = ""
end if
end if
dim SearchIP
SearchIP = trim(Request.QueryString("M_Last_IP"))
if SearchIP = "" then
SearchIP = trim(Request.Form("M_Last_IP"))
SearchIP = trim(chkString(SearchIP, "SQLString"))
end if
mypage = trim(chkString(request("whichpage"),"SQLString"))
if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then
mypage = 1
mypage = cLng(mypage)
end if
If strMode = "search" then
strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_TITLE, " &_
"M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP"
If strDBNTUserName <> "" and Members_MemberPMreceive = "1" and strPMStatus = "1" Then
strSql = strSql + ", M_PMRECEIVE "
end if
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS"
whereSql = " WHERE ("
tmpSql = ""
tmpSql = tmpSql & "M_Last_IP LIKE '%" & SearchIP & "%'"
whereSql = whereSql & tmpSql &")"
Session(strCookieURL & "where_Sql") = whereSql
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_TITLE, " &_
" M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP "
If strDBNTUserName <> "" and Members_MemberPMreceive = "1" and strPMStatus = "1" Then
strSql = strSql + ", M_PMRECEIVE "
end if
strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS"
if mlev = 4 then
strSql3 = " WHERE M_NAME > ''"
else
strSql3 = " WHERE M_STATUS = " & 1
end if
end if
dim strNoRecordsMsg, strListTitle, strFiltered, varFilter
strNoRecordsMsg = "No Records Found"
strListTitle = "All Members"
strFiltered = ""
varFilter = Request.QueryString("Filter")
if varFilter = "" then
varFilter = Request.Form("Filter")
end if
if isNumeric(varFilter) then
if varFilter > 0 then
strSql3 = strSql3 & " AND M_LEVEL=" & varFilter
end if
Select case varFilter
Case 1
strListTitle = "All Members"
Case 2
strListTitle = "Moderators"
Case 3
strListTitle = "Administrators"
end select
elseif varFilter = "New" then
strListTitle = "New Members"
strNoRecordsMsg = "No New Members Today"
strSql3 = strSql3 & " AND M_DATE >='" & DateToStr(DateValue(strForumTimeAdjust)) & "'"
elseif varFilter = "VisitToday" then
strListTitle = "Members Visited Today"
strNoRecordsMsg = "No Members Visited Today"
strSql3 = strSql3 & " AND M_LASTHEREDATE >='" & DateToStr(Datevalue(strForumTimeAdjust)) & "'"
elseif varFilter = "PostedToday" then
strListTitle = "Members Posted Today"
strNoRecordsMsg = "No Members Posted Today"
strSql3 = strSql3 & " AND M_LASTPOStdATE >='" & DateToStr(DateValue(strForumTimeAdjust)) & "'"
end if
if strSql6 = "" then
strSql6 = " ORDER BY M_NAME ASC"
end if
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(strSql & 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")
if strSql6 > "" then
rs.open strSql & strSql2 & strSql3 & strSql5 & strSql6, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
else
rs.open strSql & strSql2 & strSql3 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
end if
arrMemberData = rs.Getrows(intGetrows)
iMemberCount = UBound(arrMemberData, 2)
rs.close
set rs = nothing
else
iMemberCount = ""
end if
else 'end MySql specific code
if WhereMethod > "" THEN
strSql3 = WhereMethod
end if
set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize = strPageSize
if strSql6 > "" then
rs.open strSql & strSql2 & strSql3 & strSql6, my_Conn, adOpenStatic
else
rs.open strSql & strSql2 & strSql3, my_Conn, adOpenStatic
end if
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
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
Response.Write " <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 & _
" <form action=""admin_ip_search.asp" & strSortMethod2 & """ method=""post"" name=""SearchMembers"">" & vbNewline & _
" <td bgcolor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Search:</b> " & vbNewline & _
" <input type=""checkbox"" name=""UserIP"" value=""1"">User IP</font></td>" & _
" <td bgcolor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>For:</b> " & vbNewline & _
" <input type=""text"" name=""M_Last_IP"" value=""" & SearchIP & """></font></td>" & vbNewline & _
" <input type=""hidden"" name=""mode"" value=""search"">" & vbNewline & _
" <input type=""hidden"" name=""initial"" value=""0"">" & vbNewline & _
" <td bgcolor=""" & strPopUpTableColor & """ align=""center"">" & vbNewline
if strGfxButtons = "1" then
Response.Write " <input src=""" & strImageUrl & "button_go.gif"" 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
if Request.Form("Method_Type") = "Write_Configuration" then
Application(strCookieURL & "ConfigLoaded") = ""
end if
Response.Write (vbNewLine & _
" </td>" & vbNewline & _
" </form>" & vbNewline & _
" </tr>" & vbNewline & _
" <tr bgcolor=""" & strcategoryCellColor & """>" & vbNewLine & _
" <td colspan=""3"" align=""center"" valign=""top"">" & vbNewLine & _
" <a href=""admin_ip_search.asp""" & dWStatus("Display ALL Members") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>All Members</font></a> :: " & vbNewLine & _
" <a href=""admin_ip_search.asp?Filter=3""" & dWStatus("Show Administrators") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>Administrators</font></a> :: " & vbNewLine & _
" <a href=""admin_ip_search.asp?Filter=2""" & dWStatus("Show Moderators") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>Moderators</font></a> :: " & vbNewLine & _
" <a href=""admin_ip_search.asp?Filter=New""" & dWStatus("Show New Members Today") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>New Members</font></a> :: " & vbNewLine & _
" <a href=""admin_ip_search.asp?Filter=VisitToday""" & dWStatus("Show members who visited today") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>Members Visited Today</font></a> :: " & vbNewLine & _
" <a href=""admin_ip_search.asp?Filter=PostedToday""" & dWStatus("Show members who posted today") & ">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strCategoryFontColor & """>Members Posted Today</font></a>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
" <td colspan=""3"" align=""center"" valign=""top"">")
for intChar = 65 to 90
strChar = chr(intChar)
if chr(intChar) = SearchIP then
strChar = "<b>" & strChar & "</b>"
strSpacer = " "
end if
if intChar = 90 then
strSpacer = "<br /></td>"
end if
Response.Write (vbNewLine & _
" <a href=""admin_ip_search.asp?mode=search&""" & dWStatus("Display Member Names starting with '" & chr(intChar) & "'") & ">" & vbNewline & _
" <a href=""admin_ip_search.asp?link=sort&method=LETTERLIMIT=" & chr(intChar) & """" & dWStatus("Display Member Names starting with '" & chr(intChar) & "'") & ">" & vbnewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ Color=""" & strCategoryFontColor & """>" & strChar & "</font></a>" & strSpacer)
next
ST6 = 1
Response.Write " </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & 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 & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """> </font></b></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&MEMBER_IP=" & SearchIP & "&method="
if Request.QueryString("method") = "M_NAME ASC" then Response.Write("M_NAME DESC") else Response.Write("M_NAME ASC")
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=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&M_EMail=" & SearchIP & "&method="
if Request.QueryString("method") = "M_EMAIL ASC" then Response.Write("M_EMAIL DESC") else Response.Write("M_EMAIL ASC")
Response.Write """" & dWStatus("Sort by EMail") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>EMail</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""admin_ip_search.asp?link=order&mode=search&method="
if Request.QueryString("method") = "M_LAST_IP ASC" then Response.Write("M_LAST_IP DESC") else Response.Write("M_LAST_IP ASC")
Response.Write """" & dWStatus("Sort by IP") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>IP</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""admin_ip_search.asp?link=order&mode=search&method="
if Request.QueryString("method") = "MEMBER_ID ASC" then Response.Write("MEMBER_ID DESC") else Response.Write("MEMBER_ID ASC")
Response.Write """" & dWStatus("Sort by Member ID") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>ID</font></b></a></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""admin_ip_search.asp?link=order&mode=search&method="
if Request.QueryString("method") = "M_LEVEL ASC" then Response.Write("M_LEVEL DESC") else Response.Write("M_LEVEL ASC")
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=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&MEMBER_IP=" & SearchIP & "&method="
if Request.QueryString("method") = "M_POSTS ASC" then Response.Write("M_POSTS DESC") else Response.Write("M_POSTS ASC")
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=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&MEMBER_IP=" & SearchIP & "&method="
if Request.QueryString("method") = "M_LASTPOSTDATE ASC" then Response.Write("M_LASTPOSTDATE DESC") else Response.Write("M_LASTPOSTDATE ASC")
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=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&MEMBER_IP=" & SearchIP & "&method="
if Request.QueryString("method") = "M_DATE ASC" then Response.Write("M_DATE DESC") else Response.Write("M_DATE ASC")
Response.Write """" & dWStatus("Sort by Date of Registration") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Joined</font></b></a></td>" & vbNewLine
if strCountry = "1" then
Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""admin_ip_search.asp?" & strNames & "link=sort&mode=search&MEMBER_IP=" & SearchIP & "&method="
if Request.QueryString("method") = "M_COUNTRY ASC" then Response.Write("M_COUNTRY DESC") else Response.Write("M_COUNTRY ASC")
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=""admin_ip_search.asp?method="
if Request.QueryString("method") = "M_LASTHEREDATE ASC" then Response.Write("M_LASTHEREDATE DESC") else Response.Write("M_LASTHEREDATE ASC")
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=""12"" 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_TITLE = 6
mM_POSTS = 7
mM_LASTPOSTDATE = 8
mM_LASTHEREDATE = 9
mM_DATE = 10
mM_LAST_IP = 11
If strDBNTUserName <> "" and Members_MemberPMreceive = "1" and strPMStatus = "1" Then
mM_PMRECEIVE = 12
end if
rec = 1
intI = 0
for iMember = 0 to iMemberCount
if (rec = strPageSize + 1) then exit for
Members_MemberID = arrMemberData(mMIPBER_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_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)
Members_MemberLastIP = arrMemberData(mM_LAST_IP, iMember)
If strDBNTUserName <> "" and Members_MemberPMreceive = "1" and strPMStatus = "1" Then
Members_MemberPMreceive = arrMemberData(mM_PMRECEIVE, iMember)
end if
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 " <small><a href=""pop_profile.asp?mode=display&id=" & Members_MemberID & """" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & "></small>"
else
Response.Write " <small><a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & Members_MemberID & "')""" & dWStatus("View " & ChkString(Members_MemberName,"display") & "'s Profile") & "></small>"
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 Members_MemberPMreceive = "1" and strPMStatus = "1" Then
Response.Write " <a href=""privatesend.asp?method=Topic&mname=" & ChkString(Members_MemberName,"display") & """>" & getCurrentIcon(strIconPmprivatemessage,"Send " & ChkString(Members_MemberName,"display") & " a Private 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""><small><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") & "></small>"
else
Response.Write " <span class=""spnMessageText""><small><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") & "></small>"
end if
Response.Write "<small><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & ChkString(Members_MemberName, "display") & "</a></small>" & vbNewLine
Response.Write " <td bgcolor=""" & CColor & """ align=""center"">" & vbNewLine
if mLev = 4 then
Response.Write "<small><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""mailto:" & ChkString(Members_MemberEMail, "display") & """ target=""_blank"">" & ChkString(Members_MemberEMail, "display") & "</a></small>"
else
Response.Write "nbsp;" & vbNewLine
end if
Response.Write " <td bgcolor=""" & CColor & """ align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><small>" & vbNewLine
if mLev = 4 then
' Response.Write(" <small>(<a href=""http://api.hostip.info/get_html.php?position=true&ip=" & Members_MemberLastIP & " &""& position=true"" &submit=""Do It"" & target=""_blank"">" & Members_MemberLastIP & "</a>)</small>")
Response.Write(" <small>(<a href=""javascript:openWindow('http://ws.cdyne.com/ip2geo/ip2geo.asmx/ResolveIP?LicenseKey=0&IPaddress=" & Members_MemberLastIP & "')"">" & Members_MemberLastIP & "</a>)</small>")
' Response.Write(" <small>(<a href=""http://www.ripe.net/perl/whois?form_type=advanced&full_query_string=&searchtext=" & Members_MemberLastIP & """ &do_search=Search&inverse_attributes=None&ip_search_lvl=Default&alt_database=ALL&object_type=All"">" & Members_MemberLastIP & "</a>)</small>")
' Response.Write(" <small>(<a href=""javascript:openWindow('http://www.networksolutions.com/whois/results.jsp?ip=" & Members_MemberLastIP & "')"">" & Members_MemberLastIP & "</a>)</small>")
' Response.Write(" (<a href=""javascript:openWindow('http://ws.cdyne.com/ip2geo/ip2geo.asmx/ResolveIP?LicenseKey=0&IPaddress=" & Members_MemberLastIP & "')""><small>" & Members_MemberLastIP & "</a>)</small>")
' Response.Write(" (<a href=""http://samspade.org/whois/" & Members_MemberLastIP & """ target=""_blank""><small>" & Members_MemberLastIP & "</a>)</small>")
else
Response.Write "nbsp;" & vbNewLine
end if
Response.Write " </span></font></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><small><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><small>" & ChkString(Members_MemberID,"display") & "</font></small></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><small><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><small>" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "</font></small></td>" & vbNewLine & _
" <td bgcolor=""" & CColor & """ align=""center""><small><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """></small>"
if IsNull(Members_MemberPosts) then
Response.Write("-")
else
Response.Write "<small>" & Members_MemberPosts
if strShowRank = 2 or strShowRank = 3 then
Response.Write("<br /><small>" & getStar_Level(Members_MemberLevel, Members_MemberPosts) & "")
end if
end if
Response.Write "</small></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 & """><small>-</font></td></small>" & vbNewLine
else
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><small>" & ChkDate(Members_MemberLastPostDate,"",false) & "</font></td></small>" & vbNewLine
end if
Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """><small>" & ChkDate(Members_MemberDate,"",false) & "</font></td></small>" & 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"<small>" & Members_MemberCountry & "" else Response.Write("-")
Response.Write "</small></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 & """><small>" & ChkDate(Members_MemberLastHereDate,"",false) & "</small></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
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
end if
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
'else
' Response.Write " " & vbNewLine
end if
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & 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 = "M_NAME ASC"
else
sMethod = SortMethod
end if
Response.Write(" <form name=""PageNum" & fnum & """ action=""admin_ip_search.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)
end if
if sMethod <> "" then
Response.Write(" <input type=""hidden"" name=""method"" value=""" & sMethod & """>" & vbNewLine)
end if
if strMode <> "" then
Response.Write(" <input type=""hidden"" name=""mode"" value=""" & strMode & """>" & vbNewLine)
end if
if searchIP <> "" then
Response.Write(" <input type=""hidden"" name=""M_Last_IP"" value=""" & searchIP & """>" & vbNewLine)
end if
if srchUName <> "" then
Response.write(" <input type=""hidden"" name=""UserName"" value=""" & srchUName & """>" & vbNewLine)
end if
if srchFName <> "" then
Response.write(" <input type=""hidden"" name=""FirstName"" value=""" & srchFName & """>" & vbNewLine)
end if
if srchLName <> "" then
Response.write(" <input type=""hidden"" name=""LastName"" value=""" & srchLName & """>" & vbNewLine)
end if
if varFilter <> "" then
Response.write(" <input type=""hidden"" name=""Filter"" value=""" & varFilter & """>" & vbNewLine)
end if
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
end if
If lOut > lIn then
sGetColspan = lIN
Else
sGetColspan = lOUT
End If
end Function
%>