fejl i antal ved udskrivning

min kode virker ikke helt som den skal... det er meningen den kun skal vise 40 links per side, men den viser altså flere af en eller anden årsag.. nogen som ved hvad problemet kan være? her er koden

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM links "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
If Request("alfa") > "" Then strSQL = strSQL & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(title,1)))>0"
strSQL = StrSQL & " ORDER BY id DESC"
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 40
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Page " & intPage & " Of " & intPageCount & "</b></p>"
    %>