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
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

dcohn
New Member

98 Posts

Posted - 03 July 2008 :  20:30:52  Show Profile  Visit dcohn's Homepage
I installed the Mod as requested editing admin_home.asp and dropping the admin_IP_search onto the server.

This is the error.

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(MEMBER_ID) AS PAGECOUNT FROM FORUM_MEMBERS WHERE M_NAME <> 'n/a'' at line 1

/forums/admin_ip_search.asp, line 198
<

Edited by - dcohn on 05 July 2008 00:44:06

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 03 July 2008 :  20:57:59  Show Profile
The actual line that MySql is having difficulty with is line 142.

Change it to say this:
strSql3 = " WHERE M_NAME > '' "

A / belongs to the list of reserved characters in MySql

The file on SnitzBitz has been updated. Additional changes to display font for continuity, fixed three variables that the search/replace screwed up.
<

Edited by - Carefree on 03 July 2008 21:30:28
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 04 July 2008 :  02:32:59  Show Profile  Visit dcohn's Homepage
Thank you for the very fast response.

Unluckily I am still getting the same error.

I am going to test on my other server but on the shared server I am still getting the error<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 04 July 2008 :  02:43:12  Show Profile  Visit dcohn's Homepage
I tested a second server also running w2k3 sp2 and received the same error using the new version you uploaded<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 04 July 2008 :  04:27:36  Show Profile
It isn't possible for you to get the same error if you made the change I posted. That change eliminates the "N/A" in your error message. Please post the exact error message you're now getting.<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 04 July 2008 :  20:25:10  Show Profile  Visit dcohn's Homepage
You are correct The na is gone and I did not notice as the rest seems the same

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(MEMBER_ID) AS PAGECOUNT FROM FORUM_MEMBERSWHERE M_NAME > ''' at line 1

/forums/admin_ip_search.asp, line 198
<

Edited by - dcohn on 05 July 2008 00:43:38
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 04 July 2008 :  21:06:32  Show Profile
There should be a space between the words "MEMBER" & "WHERE". Don't see any other problem.<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 04 July 2008 :  21:17:59  Show Profile  Visit dcohn's Homepage
I added the space on line 124
strSql3 = " WHERE M_NAME > '' "

and now I get

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(MEMBER_ID) AS PAGECOUNT FROM FORUM_MEMBERS WHERE M_NAME > ''' at line 1

/forums/admin_ip_search.asp, line 198


Appreciate your time. If you find the problem let me know. Do you think it is something specific to my install?

Doug<

Edited by - dcohn on 05 July 2008 00:43:21
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 04 July 2008 :  22:08:10  Show Profile
Nah, just color me forgetful.

The quotation marks surrounding the null have to be single, not double. So it should look like this:


		strSql3 = " WHERE M_NAME > ''"
<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  00:42:55  Show Profile  Visit dcohn's Homepage
Still not working. See error message. But read below please

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(MEMBER_ID) AS PAGECOUNT FROM FORUM_MEMBERS WHERE M_NAME > ''' at line 1

/forums/admin_ip_search.asp, line 198


I tried commenting out lines 194 - 201. Once I do that I get no error and the page loads showing the interface etc. It does not seem to work or do anything but I was hoping this helps you narrow down where I am having issues???

	'## Forum_SQL - Get the total pagecount
'strSql1 = "SELECT COUNT(MEMBER_ID) AS PAGECOUNT "


'set rsCount = my_Conn.Execute(strSql & strSql1 & strSql2 & strSql3)
'iPageTotal = rsCount(0).value
'rsCount.close
'set rsCount = nothing

<

Edited by - dcohn on 05 July 2008 00:46:54
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 05 July 2008 :  02:03:35  Show Profile
In line 198, delete "& strSql1 " - it doesn't exist any longer.<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  03:01:56  Show Profile  Visit dcohn's Homepage
OK

Now we are getting somewhere.

It did not work Because of an unknown column M_PMRECEIVE

So I removed that entry in line 139. Then the page loaded with an error in the body of your app. It again talked about M_PMRECEIVE but on line 434 so I deleted 434

Members_MemberPMreceive = arrMemberData(mM_PMRECEIVE, iMember)

It seems to be working now. Will let ya know<
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 05 July 2008 :  12:09:46  Show Profile
I left Private Messaging in via oversight, here's the file with a conditional if/then built in to cover those sites without PMs installed.


<%
'################################################################################
'## 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
%>


File updated at SnitzBitz.

Edited by - Carefree on 05 July 2008 12:10:43
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  12:56:24  Show Profile  Visit dcohn's Homepage
Thanks but there are other errors.

Maybe I have a bad installation or does this code require MSSQL? I run MYSQL

Thanks for your efforts.

This occurs when I click on New members. The other links unluckily do not yield proper results either. Such as members posted today etc etc.

It is such a useful app.

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

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

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 05 July 2008 :  18:06:13  Show Profile
I don't have this running on MySql but this should work.


	'## 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
<
Go to Top of Page

dcohn
New Member

98 Posts

Posted - 05 July 2008 :  20:48:26  Show Profile  Visit dcohn's Homepage
I am redoing so ignore previous info


<

Edited by - dcohn on 05 July 2008 21:01:27
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next 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.53 seconds. Powered By: Snitz Forums 2000 Version 3.4.07