Sembra proprio che sia .AbsolutePosition sia .AbsolutePage non funzionino correttamente dopo il metodo .find.
Il ciclo che hai proposto funziona benissimo per quanto riguarda la ricerca della lettera mentre i numeri di pagina che vengono generati non sono esatti. Nel db di prova ho un record con la lettera A, uno con la B, 6 con la C ecc.
Quando clicco su A,B,C il n° di pagina è sempre 1, perciò la navigazione con i tasti avanti/indietro è sballata. Infatti, la prima pagina deve contenere A,B,C la seconda B,C,C la terza C,C,C.
Se vado alla D, il n° di pagina è 3 e tornando indietro con il tasto riesco ad arrivare all'inizio del recordset ma vengono saltati (non visualizzati) gli ultimi due record di C.
Ancora grazie.
<%
dim pagina
dim lettera
pagina = Request.QueryString("pagina")
lettera = Request.QueryString("lettera")
Dim RsLettere_in_DB
Dim RsLettere_in_DB_numRows
Set RsLettere_in_DB = Server.CreateObject("ADODB.Recordset")
RsLettere_in_DB.ActiveConnection = MM_scuola_STRING
RsLettere_in_DB.Source = "SELECT DISTINCT LETTERA_PAGINAZIONE FROM Insegnamenti"
RsLettere_in_DB.CursorType = 0
RsLettere_in_DB.CursorLocation = 2
RsLettere_in_DB.LockType = 1
RsLettere_in_DB.Open()
RsLettere_in_DB_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
RsLettere_in_DB_numRows = RsLettere_in_DB_numRows + Repeat2__numRows
%>
<%
RecordsPerPagina = 3
if pagina = "" then
pagina = 1
end if
Set rs = Server.CreateObject( "ADODB.Recordset" )
rs.ActiveConnection = MM_scuola_STRING
rs.CursorType = adOpenStatic
' STRINGA SQL
SQL = "SELECT * FROM INSEGNAMENTI ORDER BY INSEGNAMENTO ASC"
rs.open sql
rs.PageSize = RecordsPerPagina
'Controllo che sia stata passata una lettera
if lettera <> "" then
trovato = false
indice = 0
while (not trovato) AND (not rs.Eof)
indice = indice + 1
if Lcase(rs("LETTERA_PAGINAZIONE")) = Lcase(lettera) then
trovato = true
else
rs.Movenext
end if
wend
if indice mod RecordsPerPagina = 0 then
pagina = Int(indice/RecordsPerPagina)
else
pagina = Int(indice/RecordsPerPagina)+1
end if
else
rs.AbsolutePage = pagina
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento senza titolo</title>
</head>
<body><br>
<br>
<table border="0" cellpadding="5" cellspacing="3">
<tr>
<% While ((Repeat2__numRows <> 0) AND (NOT RsLettere_in_DB.EOF)) %>
<td><a href="prova_orario_lez2.asp?lettera=<%=(RsLettere_in_DB.Fields.Item("LETTERA_PAGINAZIONE").Value)%>"><%=UCase(RsLettere_in_DB.Fields.Item("LETTERA_PAGINAZIONE").Value)%></a></td>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
RsLettere_in_DB.MoveNext()
Wend
%>
</tr>
</table>
Elenco: <strong><%=UCase(lettera)%></strong><br><br>
<br>
<%
If rs.Eof=True or rs.Bof=True then
Response.Write "<P>Nessun risultato trovato</P>"
Else
For i=1 to RecordsPerPagina
if Not rs.EOF then
%>
<table width="60%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=(rs.Fields.Item("INSEGNAMENTO").Value)%></td>
</tr>
</table>
<%
rs.MoveNext
end if
Next
End if
%><br>
<br>
<%
Response.Write("indice = " & indice & "<br><br>")
Response.Write("Pagina corrente = " & pagina & "<br><br>")
Response.Write("Pagine totali = " & rs.PageCount & "<br><br>")
%>
<br>
<br><a href="prova_orario_lez2.asp?pagina=<%=pagina - 1%>">indietro</a>
<a href="prova_orario_lez2.asp?pagina=<%=pagina + 1%>">avanti</a>
</body>
</html>
<%
RsLettere_in_DB.Close()
Set RsLettere_in_DB = Nothing
%>
<%
rs.Close()
Set rs = Nothing
%>
Modificato da maxalp il 23 settembre 2004 19.38 -
