Ciao amici sono Maria
ho un problema con lo script che vi allego perchè non riesco a paginare tutti i record che si trovano nel db access.
Vorrei fare apparire 10 record per pagina e poi sotto la possibilità di scegliere per decina gli altri record ma non ci riesco
ecco lo script:
Grazie e bacini dalla vostra Maria<%
Set adorst1 = Server.CreateObject("ADODB.Recordset")
strSQL1 = "SELECT * FROM " & strThisTblName & " WHERE Active = True " & _
" AND reply_id = 0 AND topic_id = " & CInt(adorst("topic_id")) & " ORDER BY ID DESC"
adorst1.Open strSQL1, adocon, 1, 1
If NOT adorst1.EOF Then
adorst1.MoveFirst
adorst1.PageSize = 10
adorst1.AbsolutePage = 1
'TotalRecords = adorst.RecordCount
Dim iMsgCount1
iMsgCount1 = 0
Do While Not adorst1.EOF AND iMsgCount1 < adorst1.PageSize
%>
![]()
![]()