<!--#INCLUDE virtual="/Forum/config.asp" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %> 
<!--#INCLUDE virtual="/Forum/Includes/inc_functions.asp" -->
<!--#INCLUDE virtual="/Forum/Includes/inc_top.asp" -->
<%
set rs = Server.CreateObject("ADODB.Recordset")
strSQL ="SELECT M_LAST_IP, Count(*) FROM FORUM_MEMBERS WHERE M_LAST_IP <> '000.000.000.000' AND M_LAST_IP <> '203.96.144.156' GROUP BY M_LAST_IP HAVING COUNT(*) > 1"
set rs1 = my_conn.execute(strSql)
IPArray = "("

while not rs1.eof
  IPArray = IPArray & "'" & rs1("M_LAST_IP") & "',"
  rs1.movenext
wend

IPArray = left(IPArray,len(IPArray)-1) & ")"

strSQL = "SELECT M_NAME, M_LAST_IP, M_IP FROM FORUM_MEMBERS WHERE M_LAST_IP IN " & IPArray & " ORDER BY M_LAST_IP DESC"
set rs2 = my_conn.execute(strSQL)

TDClass = "cellcolorlight"
TXTClass = "default"

%>
<p>The table on the Left displays duplicates based on the IP address logged when the user <b>last</b> visited the forum.  On the right duplicates are based on 
the users <b>first</b> logged IP address i.e. when they registered at the forums</p>
<table width="100%" align="center" cellspacing="0" cellpadding="0" border="0">
  <tr>
    <td valign="top">
      <table width="98%" align="center" cellspacing="0" cellpadding="2" border="0">
        <tr>
          <td class="headerbg"><span class="header">Name</span></td>
          <td class="headerbg"><span class="header">Last IP</span></td>
          <td class="headerbg"><span class="header">First IP</span></td>
        </tr>
<% while not rs2.eof %>
        <tr>
          <td class="<% =TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_NAME")%></span></td>
          <td class="<% =TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_LAST_IP")%></span></td>
          <td class="<% =TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_IP")%></span></td>
        </tr>  
<%
  LastIP = rs2("M_LAST_IP")
  rs2.movenext()
  if not (rs2.bof or rs2.eof) then CurrIP = rs2("M_LAST_IP")
  if CurrIP <> LastIP then
    if TDClass = "cellcolordark" then 
      TDClass = "cellcolorlight"
      TXTClass = "default"
    else
      TDClass = "cellcolordark"
      TXTClass = "header"
    end if
  end if
wend
%>
      </table>
<%
rs1.close
set rs1 = nothing
rs2.close
set rs2 = nothing

set rs = Server.CreateObject("ADODB.Recordset")
strSQL ="SELECT M_IP, Count(*) FROM FORUM_MEMBERS WHERE M_IP <> '000.000.000.000' AND M_IP <> '203.96.144.156' GROUP BY M_IP HAVING COUNT(*) > 1"
set rs1 = my_conn.execute(strSql)
IPArray = "("

while not rs1.eof
  IPArray = IPArray & "'" & rs1("M_IP") & "',"
  rs1.movenext
wend

IPArray = left(IPArray,len(IPArray)-1) & ")"

strSQL = "SELECT M_NAME, M_LAST_IP, M_IP FROM FORUM_MEMBERS WHERE M_IP IN " & IPArray & " ORDER BY M_IP DESC"
set rs2 = my_conn.execute(strSQL)

TDClass = "cellcolorlight"
TXTClass = "default"

%>
    </td>
    <td> </td>
    <td valign="top">
      <table width="98%" align="center" cellspacing="0" cellpadding="2" border="0">
        <tr>
          <td class="headerbg"><span class="header">Name</span></td>
          <td class="headerbg"><span class="header">First IP</span></td>    
          <td class="headerbg"><span class="header">Last IP</span></td>
        </tr>
<% while not rs2.eof %>
        <tr>
          <td class="<% = TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_NAME")%></span></td>
          <td class="<% = TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_IP")%></span></td>    
          <td class="<% = TDClass %>"><span class="<% = TXTClass %>"><% = rs2("M_LAST_IP")%></span></td>
        </tr>  
<%
  LastIP = rs2("M_IP")
  rs2.movenext()
  if not (rs2.bof or rs2.eof) then CurrIP = rs2("M_IP")
  if CurrIP <> LastIP then
    if TDClass = "cellcolordark" then 
      TDClass = "cellcolorlight"
      TXTClass = "default"      
    else
      TDClass = "cellcolordark"
      TXTClass = "header"      
    end if
  end if
wend
%>
      </table>
    </td>
  </tr>
</table>
<br>
<br>
<br>
<%
writefooter()
rs1.close
set rs1 = nothing
rs2.close
set rs2 = nothing

else
	scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
	Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if
%>