Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Error in Admin_ip_Search.asp
 New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 05 July 2008 :  21:00:13  Show Profile
Yes, same string but I'm trying to eliminate possibilities, without installing MySql and redesigning a whole forum to test it here. I may end up having to do that (but would really rather not).<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  21:04:55  Show Profile  Visit dcohn's Homepage
OK here is the error using the exact code you posted. Sorry about that.



Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'SELECT COUNT(*) AS PAGECOUNT FROM FORUM_MEMBERS WHERE M_NAME > ''' at line 1

/forums/admin_ip_search.asp, line 204
<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  21:07:15  Show Profile  Visit dcohn's Homepage
Hey I am very glad to run through this with you.

If you could make up a base original again just in case I erred in any changes along the way, that may help.

I obviously love the results this delivers hence very glad to do anything you need to test.

<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 05 July 2008 :  22:40:33  Show Profile
Trying a different approach. Let's see what MySql does with this:

<%
'################################################################################
'## 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"
 strSql3 = " WHERE M_STATUS = " & 1
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
 PageCount=0
 strSql1 = "SELECT COUNT(*) AS PAGECOUNT "
 Server.CreateObject("ADODB.Recordset")
 set rsCount.Open = my_Conn.Execute(strSql & strSql1 & strSql2 & strSql3,objConn)
 Do while not rsCount.EOF
  PageCount=PageCount+1
  rsCount.MoveNext
 Loop
 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
%>
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 06 July 2008 :  03:38:38  Show Profile  Visit dcohn's Homepage
Here ya go Sorry

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'SELECT COUNT(*) AS PAGECOUNT FROM FORUM_MEMBERS WHERE M_STATUS = 1' at line 1

/forums/admin_ip_search.asp, line 200
<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 06 July 2008 :  13:31:41  Show Profile
I'm going to start calling it "YourSql" lol


<%
'################################################################################
'## 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"
 strSql3 = " WHERE M_STATUS=" & 1
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
 PageCount=0
 Server.CreateObject("ADODB.Recordset")
 set rsCount.Open = my_Conn.Execute(strSql & strSql2 & strSql3,objConn)
 Do while not rsCount.EOF
  PageCount=PageCount+1
  rsCount.MoveNext
 Loop
 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
%>

Edited by - Carefree on 06 July 2008 14:16:48
Go to Top of Page

modifichicci
Average Member

Italy
787 Posts

Posted - 06 July 2008 :  14:03:58  Show Profile  Visit modifichicci's Homepage
why you have at line 200
set rsCount.Open = my_Conn.Execute(strSql & strSql1 & strSql2 & strSql3,objConn)

where
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"

and strSql1 ="SELECT MEMBER_ID " now and before was SELECT Coont etc etc?<

Ernia e Laparocele
Forum di Ernia e Laparocele
Acces - MySql Migration Tutorial
Adamantine forum

Edited by - modifichicci on 06 July 2008 14:06:03
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 06 July 2008 :  14:17:20  Show Profile
Because I was blind and forgot to take it out after a test lol<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 07 July 2008 :  06:00:58  Show Profile  Visit dcohn's Homepage
I guess that is why I have this

Microsoft VBScript runtime  error '800a01a8'

Object required: 'rsCount'

/forums/admin_ip_search.asp, line 199
<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 07 July 2008 :  10:25:38  Show Profile
DC check your mail.<
Go to Top of Page

top
Junior Member

150 Posts

Posted - 30 August 2009 :  21:40:55  Show Profile
Error
476, 473 basket without end
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 31 August 2009 :  02:55:51  Show Profile
OK, I am going to bite:

quote:
Originally posted by top

Error
476, 473 basket without end



What do you mean by this? You can not post something like this and expect anyone in the world to understand what you mean when there is nothing there to understand.

Please put more information in your request to get help or no one will be able to help. An example would be:

quote:
I tried to do a search using Snitz version 3.4.07 with a MySQL database, with the following mods <List MODS in this part> and the search timed out with the following error message: <put in the exact error message>


quote:
Error
476, 473 basket without end



This is not a standard IIS or Winodws error message and doesn't mean anything to most of us (well I think not). This could be because of some mod that you have added, that no one else has or even a server error.

All I am saying is that you need to include as much detail as possible to get better support.

Cheers,

David Greening
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.61 seconds. Powered By: Snitz Forums 2000 Version 3.4.07