Author |
Topic |
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 05 July 2008 : 21:00:13
|
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).< |
|
|
dcohn
New Member
98 Posts |
Posted - 05 July 2008 : 21:04:55
|
OK here is the error using the exact code you posted. Sorry about that.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
< |
|
|
dcohn
New Member
98 Posts |
Posted - 05 July 2008 : 21:07:15
|
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.
< |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 05 July 2008 : 22:40:33
|
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
%>
|
|
|
dcohn
New Member
98 Posts |
Posted - 06 July 2008 : 03:38:38
|
Here ya go Sorry < |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 06 July 2008 : 13:31:41
|
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 |
|
|
modifichicci
Average Member
Italy
787 Posts |
Posted - 06 July 2008 : 14:03:58
|
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 |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 06 July 2008 : 14:17:20
|
Because I was blind and forgot to take it out after a test lol< |
|
|
dcohn
New Member
98 Posts |
Posted - 07 July 2008 : 06:00:58
|
I guess that is why I have this
Microsoft VBScript runtime error '800a01a8'
Object required: 'rsCount'
/forums/admin_ip_search.asp, line 199 < |
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 07 July 2008 : 10:25:38
|
DC check your mail.< |
|
|
top
Junior Member
150 Posts |
Posted - 30 August 2009 : 21:40:55
|
Error 476, 473 basket without end |
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 31 August 2009 : 02:55:51
|
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 |
|
|
Topic |
|
|
|