<table border-collapse="separate" style="border:1px solid #D8D8D8;" cellpadding="9" cellspacing="1">
	<tr>
		<td valign="top" class="border" align="left">
			<div class="title" style="text-align: left;">Find Duplicate Member Profiles</div>
			
			<p>This table shows the contents of the url fields in the user profiles.</p> 		
			<table cellpadding="3" class="stattable" style="border-collapse: collapse;">
				<tr bgcolor="#e0e0e0">
					<td align="center">Member ID</td>
					<td align="center">Posts</td>
					<td align="center">Member Name</td>
					<td align="center">IP Address</td>
					<td align="center">Email</td>
				</tr>
				<%	
dim gfn, grs, gSQL


Set gfn = Server.CreateObject("ADODB.Connection")
gfn.Open [#########YOUR CONN STRING#########]
Set grs = Server.CreateObject("ADODB.RecordSet")

gSQL = "select member_id, m_posts, m_name, m_ip, m_email from forum_members order by m_ip"

grs.Open gSQL, gfn, adOpenStatic

if grs.eof then
	response.write "<tr><td> -na- </td><td>0</td><td>0</td></tr>"
else

	thisloop = "5555555555"
	lastloop = "8888888888"
	
	do while not grs.eof
		i=i+1
		lastloop = currentloop
		currentloop = grs("m_ip")
		outputlast = output
		
		'put current row in the variable
		output =  "<tr><td><a target=""_new"" href=""http://www.YOURURL.TLD/forum/pop_profile.asp?mode=display&id=" & grs("member_id") & """>" & grs("member_id") & "</a></td><td>" & grs("m_posts") & "</td><td>" & grs("m_name") & "</td><td>" & grs("m_ip") & "</td><td>" & grs("m_email") & "</td></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
		
		grs.movenext
	
	loop
	end if

grs.Close 
Set grs = Nothing 
gfn.Close 
Set gfn= Nothing
Set gSQL = Nothing
					%>				
				</table>
				<%
				response.write "<p>There were " & i & " total duplicates found in the table.</p>"
				%>	
			</td>
		</tr>
	</table>