Ho un problema relativo alla paginazione .. tutto funziona quasi bene il problema è che spostandomi di pagina mi visualizza sempre gli stessi record.... cosa potrei aver sbagliato?

Il codice scritto è questo, se vi può aiutare:

rs.PageSize = 20

If Request("pagina") <> "" Then
pagina= Int(Request("pagina"))
Else
pagina = 1
End If

If not rs.EOF Then
Riferimento = pagina
End If
' ******************* fine paginazione
Record = rsCount("record")
riferimento = CInt(record)/rs.PageSize
PagineCount = int(riferimento) + 1
'riferimento = riferimento * rs.PageSize

' ******************* visualizzazione pagine della paginazione
If PagineCount > 1 Then
Response.Write("<table width='700' border='0' align='center' cellspacing='0' cellpadding='0'>")
Response.Write("<tr><td width='50' class='normale' align='right' valign='top'>")
Response.Write("Pagine: ")
Response.Write("</td><td width='700' class='pagina' valign='top' style='padding-left:5'>")
For pag = 1 to PagineCount
If pag <> pagina Then
If fldOrdina <> "" then
Response.Write(" " & "<a class='pagina' href='index.asp?pagina=" & pag & "&RecPag=" & _
rs.PageSize & "&" & fldFiltro & "Ordina=" & fldOrdina &"'>" & pag & "</a>" & " ")
else
Response.Write(" " & "<a class='pagina' href='index.asp?pagina=" & pag & "&RecPag=" & _
rs.PageSize & "&" & fldFiltro & "'>" & pag & "</a>" & " ")
end if
Else
Response.Write(" " & pag & " ")
End If
Next
Response.Write("</td>")
end if

grazie a chiunque provi a darmi qualche idea!!