<% Server.ScriptTimeout = 60*25 SQLSeg = "delete from GuestBook where id<=206" Conn.Execute(SQLSeg) SQLSeg = "SELECT id,IIf(IsNull(LastName),'',LastName)+IIf(IsNULL(FirstName),'',FirstName) as FullName,Name,Company,Department,Title2,ComFax,ComTEL1,Mobile,Email1,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, id" 'Response.Write SQLSeg & "
" & vbCrLF Set rs0 = Conn.Execute(SQLSeg) Set rs1 = Conn.Execute(SQLSeg) theSame = "0" Cnt = 0 While Not rs0.EOF Response.Flush Response.Write rs0(0)&":"&rs0("email1") & "
" & vbCrLf Cnt = Cnt+1 rs1.MoveFirst For i=1 To Cnt rs1.MoveNext IF rs1.EOF Then Exit For End IF Next While Not rs1.EOF 'Response.Write "   " & rs1(0)&":" isExist = false If Cint(rs0(0))<>Cint(rs1(0)) Then isExist = true For i = 1 To rs0.Fields.Count-1 IF Not IsNULL(rs0(i)) And Not IsNULL(rs1(i)) Then If Replace(Replace(Replace(Replace(Replace(rs0(i),"(02)",""),"02-",""),"*","#"),"-","")," ","")<>Replace(Replace(Replace(Replace(Replace(rs1(i),"(02)",""),"02-",""),"*","#"),"-","")," ","") Then isExist = false Exit For End IF End IF Next End If 'Response.Write isExist & ";
" & vbCrLF IF isExist Then theSame = theSame&","&rs0(0) End IF rs1.MoveNext Wend 'Response.Write "
" & vbCrLf rs0.MoveNext Wend Response.Write theSame & "
" & vbCrLF SQLSeg = "delete from members where id in("&theSame&")" 'Conn.Execute(SQLSeg) Set rs1 = Nothing Set rs0 = Nothing dbClose() %>