Paging system

Hej Venner,

Har prøvet at leje med paging system men der er lige en fejl..
Hvis der f.eks er 10 post henter den det hele, men den laver paging alligevel så der også kommer side tal, altså:
Pages 1 2 3 4 5 6 7 8 9 10

Hvordan er det jeg lige retter den nedenstående kode så jeg kan bestemme, at der kun skal komme 12 post ud også skal den sefølig ikke lave den paging system hvis der ikke er mere end 12 post..

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from produkt where gave_ideas = 1"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/xxxx_dk.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
'</paging> 
%>

<%   
noPrRow = 0
maxPrRow = 4
response.write "<table cellspacing=""20"">"
Do While Not rs.EOF And intRecCount > 0
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td width=""110"" height=""110"" valign=""top"" align=""center"" bgcolor=""#FFE9D5"" class=""main"">"
  'Udskriv data her
Response.write  "<img src=""produkt_images/" & rs("images") & """ width=""110"" height=""110""> <a href=""produkter.asp?id=" & rs("id") & """ target=""indhold"">  " & rs("navn") & " </a> <br> " & rs("kort_beskrivelse") & " <br> "
  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if

  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
'Hvis ikke recordsettet er tomt, fortsæt
%>

<%   
'Trækker den næste record ud og lukker din forbindelse

intRecCount = intRecCount - 1
'rs.MoveNext

End If
rs.Close
Set rs = Nothing

'Paging scriptet

Response.Write "Pages "
For intNum = 1 To intPageCount
Response.Write "<a href='paging2.asp?fid=" &  "&page=" & intNum &  "'>" & intNum & "</a> "
next
%>