paginazione

[Prof_Mauri]

Ciao a tutti, qualcuno mi saprebbe dire come inserire la paginazione ed i pulsanti avanti/dietro nel codice seguente :

<table>
<tr>
<td></td>
<td><font size="4">Cognome e Nome</font></td>
<td><font size="4">Indirizzo</font></td>
</tr><%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....it\.mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT IDCliente,[Cognome e Nome],Indirizzo from Anag_Clienti ORDER BY [Cognome e Nome]")
Do while NOT objRs.EOF
%>
<tr>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write (""& objRs("IDCliente") &"")%>
</td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Cognome e Nome")%></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Indirizzo")%>
</td>
</tr>
<%objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>

[iceblu]

http://www.aspitalia.com/script/208/...i-Ricerca.aspx

[Prof_Mauri]

Scusa ma siccome non riesco a capire cosa e dove inserire il codice, non è che mi potresti aiutare?

[iceblu]

<%

RecordsPerPagina = 5

page = Request("page")
if page="" then page=1


' STRINGA SQL
SQL = "SELECT IDCliente,[Cognome e Nome],Indirizzo from Anag_Clienti ORDER BY [Cognome e Nome]"

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....it\.mdb")

'apri recordset con valore 1,3
 es objRs.open sql, objConn, 1, 3

' paginazione
objRs.PageSize = RecordsPerPagina
objRs.AbsolutePage = page

If objRs.Eof=True or objRs.Bof=True then
  Response.Write "

Nessun risultato trovato</P>"
Else
response.Write("<table><tr><td></td><td>[i][b]<font size=""4"">Cognome e Nome</font>[/b][/i]</td><td>[i][b]<font size=""4"">Indirizzo</font>[/b][/i]</td></tr>")

For i=1 to RecordsPerPagina

  if objRs.EOF then exit for
    'mostra record
%>
        <tr>
        <td align="left" bgcolor="#FFFFFF"><font size="3">
        <%response.write ("[url=""]"& objRs("IDCliente") &"[/url]")%>
        </td>
        <td align="left" bgcolor="#FFFFFF"><font size="3">
        <%response.write objRs("Cognome e Nome")%></td>
        <td align="left" bgcolor="#FFFFFF"><font size="3">
        <%response.write objRs("Indirizzo")%>
        </td>
        </tr>
<%
    objRs.Movenext
  end if

Next
response.Write("</table>")
End if






Response.Write "

[B]Pagine:[/B] "
For pag=1 to objRs.PageCount

  Response.Write "<A href='pagina.asp?page=" & pag &  "'>"

  Response.Write pag

  Response.Write "</A> "

Next

Response.Write "</P>"


objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing



%> 

[Prof_Mauri]

Mi dispiace ma ho provato e c'è qualcosa che non va!
la pagina non si apre;
io ho semplicemente copiato, incollato e integrato il percorso del "Data Source"
Come mai?

[iceblu]

Data souce..VVoVe: VVoVe:

.in che programma scusa? Dreamweaver?

no perché questo codice lo devi mettere senza l'ausilio di dreamwaver o altro..non so se sono stato chiaro...

[Prof_Mauri]

Scusa ma non ti seguo; se prendi il codice che ho postato all'inizio della discussione, che già funziona, potresti inserirci solo le parti nuove relative alla paginazione?

[Prof_Mauri]

Caio a tutti, ho postato del codice all'inizio di questa discussione e vorrei intregrarlo con la paginazione, qualcuno mi saprebbe aiutare?

[iceblu]

Ciao,
il codice che ti ho postato va al posto del tuo, poi se lo usi con artifizi strani tipo data source et simila, invece che un banale editor di testo, non posso aiutarti

d.

[Prof_Mauri]

Sto cercando di ottenere la paginazione dal seguente codice ma, dopo un po di correzioni ancora ricevo messaggi di errore! chi mi può dire come mai ad es. adesso ho il seguente errore :


Microsoft VBScript runtime error '800a01a8'
Object required: ''
/Paginazione.asp, line 25


Il codice è questo :

<%
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
set objRs = objConn.Execute("SELECT IDCliente,[Cognome e Nome],Indirizzo from Anag_Clienti ORDER BY [Cognome e Nome]")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\.....\fpdb\CED.mdb")
'apri recordset con valore 1,3
es objRs.open, objRs, objConn, 1,3
' paginazione
objRs.PageSize = RecordsPerPagina
objRs.AbsolutePage = page
If objRs.Eof=True or objRs.Bof=True then
Response.Write "

Nessun risultato trovato</P>"
Else
response.Write("<table><tr><td></td><td><font size=""4"">Cognome e Nome</font></td><td><font size=""4"">Indirizzo</font></td></tr>")
For i=1 to RecordsPerPagina
if objRs.EOF then exit for
'mostra record
%>
<tr>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write (""& objRs("IDCliente") &"")%>
</td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Cognome e Nome")%></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Indirizzo")%>
</td>
</tr>
<%
objRs.Movenext
Next
response.Write("</table>")
End if
Response.Write "

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