Problema di paginazione su SQLServer 2005

[ndrek]

Ciao, ho questo problema, devo gestire dei record impaginandoli, di solito uso questo script che con access non mi da nessun problema mentre con SQL server 2005 non funziona

Riporto lo script che utilizzo su access:

<%

'Rileviamo la pagina da visualizzare dalla stringa dell'URL
pag = TRIM(Request.QueryString("pag"))
If pag="" Then
pag = 1
Else
pag = CInt(pag)
End If

'Creiamo la stringa sql
Dim sql
SQL="select * from prodotti WHERE categoria='"& categoria &"'"
Dim rec
Set rec = Server.CreateObject ("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)


'Creiamo la stringa sql
SQL="select * from prodotti WHERE categoria='"& categoria &"' order by id DESC"
Set rec = Server.CreateObject ("ADODB.Recordset")


'Settiamo il numero di record per pagina
rec.PageSize = 5
rec.Open sql, conn, 3, 3
rec.AbsolutePage = pag


'Ora stampiamo gli indirizzi su schermo
For i=1 to rec.PageSize

%>

..........
........

<%
rec.MoveNext
If rec.EOF Then Exit For
next

%>


Questo è quello che utilizzo su SQLServer 2005

<%

'Rileviamo la pagina da visualizzare dalla stringa dell'URL
pag = TRIM(Request.QueryString("pag"))
If pag="" Then
pag = 1
Else
pag = CInt(pag)
End If

'Creiamo la stringa sql
Dim sql
SQL="select * from prodotti WHERE categoria='"& categoria &"'"
Dim rec
Set rec = Server.CreateObject ("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

%>

..........
........

<%

'Creiamo la stringa sql
SQL="select * from prodotti WHERE categoria='"& categoria &"' order by id DESC"

Set rec = Server.CreateObject ("ADODB.Recordset")


'Settiamo il numero di record per pagina
rec.PageSize = 5

rec.Open sql, conn, 3, 3
rec.AbsolutePage = pag


'Ora stampiamo gli indirizzi su schermo
For i=1 to rec.PageSize

%>

<%
rec.MoveNext
If rec.EOF Then Exit For
next

%>


Potete darmi un aiuto, grazie

[Domenix]

Che vuol dire non funziona?
Che errore ti da?

[ndrek]

La pagina non riesce a caricarsi, sembra che si metta a ragionare bloccando IIS

[ndrek]

Ho tolto la gestione degli errori ed ora mi dice questo a video

L'operazione non è consentita se l'oggetto è aperto.
/euronics-SQLServer/Sottocat_Prod.asp, line 187


riporto il codice:


<%

'Rileviamo la pagina da visualizzare dalla stringa dell'URL
pag = TRIM(Request.QueryString("pag"))
If pag="" Then
pag = 1
Else
pag = CInt(pag)
End If

'Creiamo la stringa sql
Dim sql
SQL="select * from prodotti WHERE categoria='"& categoria &"'"
Dim rec
SET rec = objConn.Execute (sql)
%>

..........
........

<%

'Creiamo la stringa sql
SQL="select * from prodotti WHERE categoria='"& categoria &"' order by id DESC"

SET rec = objConn.Execute (sql)

'Settiamo il numero di record per pagina
rec.PageSize = 5


--------linea 187-------
rec.Open sql, conn, 3, 3
-------------------------

rec.AbsolutePage = pag


'Ora stampiamo gli indirizzi su schermo
For i=1 to rec.PageSize

%>

<%
rec.MoveNext
If rec.EOF Then Exit For
next

%>

[Santino83_02]

SET rec = objConn.Execute (sql)

'Settiamo il numero di record per pagina
rec.PageSize = 5


--------linea 187-------
rec.Open sql, conn, 3, 3
-------------------------

rec.AbsolutePage = pag

ma sto Rec ma quante volte vuoi aprirlo?

[Domenix]

Originariamente inviato da Santino83_02

SET rec = objConn.Execute (sql)

'Settiamo il numero di record per pagina
rec.PageSize = 5


--------linea 187-------
rec.Open sql, conn, 3, 3
-------------------------

rec.AbsolutePage = pag

ma sto Rec ma quante volte vuoi aprirlo?

E' il lato oscuro del copia e incolla

[ndrek]

Scusate la mia ignoranza, su acces lo script mi funzionava su sqlserver no, non riesco a risolverlo anche eliminando la stringa di apertura del rec, potete darmi qualche consiglio

[Roby_72]

Ma SQL Server 2005 non consente la paginazione in stile MySQL con la clausola LIMIT?

Roby

[ndrek]

Sinceramente proprio non lo so!!!

[Domenix]

rec.Open sql, conn, 1, 3
rec.pageSize = 5
rec.absolutePage = pag

Elimina questa riga

SET rec = objConn.Execute (sql)