<!-- #include file = "db.asp" -->
<%
Server.ScriptTimout = 60*25

SQLSeg = "SELECT id,LastName,FirstName,Name,Company,Department,Title2,ComFax,ComTEL1,Mobile,Email1Mail1Sender,website FROM members WHERE email1 in (SELECT email1 FROM members WHERE email1<>'' or email1 is not null GROUP BY email1 HAVING count(email1)>1) ORDER BY email1"
Set rs0 = Conn.execute(SQLSeg)
Set rs1 = Conn.execute(SQLSeg)

theSame = "0"

While Not rs0.EOF
	While Not rs1.EOF
		If Cint(rs0(0))<>Cint(rs1(0)) Then
			isExist = true
			For i = 0 To rs0.Fields.Count-1
				If Trim(rs0(i))<>Trim(rs1(i)) Then
					isExist = false
					Exit For
				End IF
			Next
		End If

		IF isExist Then
			theSame = theSame&","&rs0(0)
		End IF

		rs1.MoveNext
	Wend

	rs1.MoveFirst

	rs0.MoveNext
Wend

Response.Write theSame
%>