pagina con errore

[Lan]

adesso provo...
senti ma secondo te è possibile tenere questo codice e impaginare i dati a 20 record a pagina???

[floberto]

si ma ti avverto fin da subito che la paginazione è una procedura..... hem........ PAURRROSA!!!! :gren:

[Lan]

me ne sto accorgendo...
senti non sai dove posso trovare uno script di esempio che funziona bene e semplice da implementare???

[Lan]

io ora sto cercando di implementare un codice che ho trovato sul web ma mi da il seguente errore:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Il driver ODBC non supporta le proprietà richieste.
/select/listino1.asp, line 10


ti posto il codice:

<% Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "Listino"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
strSQL = "SELECT * FROM Prodotti"
objRS.open strSQL, DBConn, 1
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr><th>Nome Prodotto</th><th>Tipo Prodotto</th><th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>" & objRS ("Item Name") & "</td>")
Response.Write("<td>" & objRS("Part Number") & "</td>")
Response.Write("<td>" & objRS("Pool") & "</td></tr>")
objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
End if
Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href= 'Listino.asp? page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>

secondo te può essere possibile che il driver non supporti la connessione, io non l'ho modificata dal file che ho trovato in rete...
però sto utilizzando access come db, può essere un problema se nello script non era access il db???

[Lan]

Piano Piano, sembra che mi faccio le domande e risposte da solo...
allora la pagina funziona ora...
ho provato ad implementare l'sql che avevo nalla prima pagina e indovina???
errore su errore...
adesso l'errore è:

Tipo di errore:
ADODB.Recordset (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/select/listino1.asp, line 15

il codice è questo:

<%
Level = TRIM( Request( "Level" ) )
Pool = TRIM( Request( "Pool" ) )
Dim DBConn
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open "Listino"
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
RecordsPerPagina = 20
page = Request("page")
if page="" then page=1
strSQL = "select * from Base_Dati where Level = '" & Level & "' AND Pool = '" & Pool & "' "
objRS.open strSQL, DBConn, 1, 3
objRS.PageSize = RecordsPerPagina
objRS.AbsolutePage = page
If objRS.Eof=True or objRS.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
Response.Write ("<center><table border=1><tr><th>Nome Prodotto</th><th>Tipo Prodotto</th><th>Colore</th></tr>")
For i=1 to RecordsPerPagina
if Not objRS.EOF then
Response.Write("<tr><td>" & objRS ("Item Name") & "</td>")
Response.Write("<td>" & objRS("Part Number") & "</td>")
Response.Write("<td>" & objRS("Pool") & "</td></tr>")
objRS.MoveNext
end if
Next
Response.Write ("</table></center>")
End if
Response.Write "

Pagine: "
For pag=1 to objRS.PageCount
Response.Write "<A href= 'Listino.asp? page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
objRS.Close
Set objRS=Nothing
DBConn.Close
Set DBConn=Nothing
%>

la linea 15 è:

objRS.AbsolutePage = page

ora però non so come muovermi perche non capisco che errore è??? hai qualche suggerimento da darmi???