per vedere gli Utenti con ip doppi !

<%
'#################################################################################
'## Copyright (C) 2000-02 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 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
'## <a href="http://forum.snitz.com" target="_blank">http://forum.snitz.com</a> 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 support forums at:
'## <a href="http://forum.snitz.com" target="_blank">http://forum.snitz.com</a>
'##
'## Correspondence and Marketing Questions can be sent to:
'## <a href="mailto:reinhold@bigfoot.com">reinhold@bigfoot.com</a>
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_admin.asp" -->
<%
if Session(strCookieURL & "Approval") <> "15916941253" then
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
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 & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""admin_home.asp"">Admin Section</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Duplicate IP Addresses<br /></font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine & _
		"<center><table cellpadding=""4"" cellspacing=""0"" width=""780"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td valign=""top"" align=""left"">" & vbNewLine & _
		"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>Find Duplicate Member IP Addresses:<br /><br />" & vbNewLine & _
		"			This table shows the contents of the IP Address in the user profiles that are duplicates.</font><br /><br />" & vbNewLine & _
		"			<table style=""border:1px solid #" & strTableBorderColor & ";"" cellpadding=""3"" cellspacing=""0"">" & vbNewLine & _
		"				<tr>" & vbNewLine & _
		"					<td width=""100"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Member ID</font></td>" & vbNewLine & _
		"					<td width=""50"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Posts</font></td>" & vbNewLine & _
		"					<td width=""190"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Member Name</font></td>" & vbNewLine & _
		"					<td width=""190"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>IP Address</font></td>" & vbNewLine & _
		"					<td width=""350"" bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Email</font></td>" & vbNewLine & _
		"				</tr>" & vbNewLine


Set rs = Server.CreateObject("ADODB.RecordSet")

strSql = "SELECT MEMBER_ID, M_POSTS, M_NAME, M_IP, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS ORDER BY M_IP"

rs.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText

if rs.eof then
	response.write	"				<tr>" & vbNewLine & _
			"					<td> -na- </td>" & vbNewLine & _
			"					<td>0</td>" & vbNewLine & _
			"					<td>0</td>" & vbNewLine & _
			"				</tr>" & vbNewLine
else
	thisloop = "5555555555"
	lastloop = "8888888888"

	do while not rs.eof
		i=i+1
		lastloop = currentloop
		currentloop = rs("m_ip")
		outputlast = output

		'put current row in the variable
		output =  "				<tr>"
		output = output & "					<td><a target=""_new"" href=""" & strForumURL & "pop_profile.asp?mode=display&id=" & rs("member_id") & """><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rs("member_id") & "</font></b></a></td>"
		output = output & "					<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rs("m_posts") & "</font></td>"
		output = output & "					<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rs("m_name") & "</font></td>"
		output = output & "					<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rs("m_ip") & "</font></td>"
		output = output & "					<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & rs("m_email") & "</font></td>"
		output = output & "			</tr>"

		if currentloop = lastloop then
			if flag = 1 then '---is a subsequent - so only print curr row
				response.write output
			else
				response.write outputlast
				response.write output
			end if
			flag = 1
		else
			flag = 0
		end if

		rs.movenext

	loop
	end if

rs.Close
Set rs = Nothing

response.write	"			</table></center>" & vbNewLine & _
		"			<p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>There are a total of <b>" & i & "</b> IP Addresses found in the Database.</font></p>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine

WriteFooter
Response.End
%>