Comparar Registros

[pablinweb]

Podrías probar algo así:

Código:

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")
rr.Open "Estadisticas_Ind", con,1

do while not rr.eof
      rs.Open "Select Count(*) as CANTIDAD FROM Estadisticas_Ind where CAMPO_1 = " & rr("CAMPO_1") & " and CAMPO_2 = " & rr("CAMPO_2") & " and ....", con,1

      if rs("CANTIDAD") > 1 then
           response.write (rr("CAMPO_1") & ":" & rs("CANTIDAD"))
      end if
      rs.close
      rr.movenext
loop