Visa träffar som visas ur RS

Hej

Finns det något färdigt för att visa vilka träffar som visas ur recordsetet. Jag har delat upp sokresultatet på flera sidor:

Dim startTraff, slutTraff
startTraff = 1
Sluttraff = oRS.Pagesize
IF pg <> 1 THEN
  slutTraff = sluttraff * pg
  startTraff = slutTraff - oRS.Pagesize +1
  IF pg = ""&(FIX((oRS.recordcount / oRS.Pagesize))+1) &"" THEN
    slutTraff = oRS.recordcount 
  END IF
END IF