Comparar Registros

[Fabian olmos]

yo hice mas o menos lo mismo aqui va

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & SERVER.MApPath("BD\Estadisticas.mdb"))
set rr = CreateObject("ADODB.Recordset")
set rs = CreateObject("ADODB.Recordset")
rs.Open "Estadisticas_Ind", con,1
rr.Open "Estadisticas_Ind", con,1
rs.movefirst
rr.moveNext
do while rr.eof=false and rs.eof=false
if (rr("IP")<>rs("IP"))then
contador=contador+1
response.write (rs("IP"))
end if
rr.movenext
if (rr.eof=true) then
rs.movenext
rr.movefirst
end if
loop
response.write (contador)