15 messaggi dal 26 settembre 2003
salve ragazzi siccome sono un principiante se qualcuno potesse aiutarmi a inserire il codice per disporre i record su piu pagine all'interno dello scritto che segue: ha volevo paginare con i numeri e non con avanti e indietro se possibile
<html>
<head>
<title>GESTIONE RECORD</title>
</head>
<!--#include file="connessione.asp"-->
<body>
<div align="center">
<center>
<table border="0" cellpadding="4" width="650" cellspacing="1" bgcolor="#000000" height="90">
<tr>
<td width="17" valign="middle" align="center" bgcolor="#FFFFCC" height="29">&nbsp;</td>
<td width="17" valign="middle" align="center" bgcolor="#FFFFCC" height="29"></td>
<td width="210" bgcolor="#FFFFCC" height="29">
<p align="center"><font size="2" face="Verdana">Nome</font></td>
<td width="210" bgcolor="#FFFFCC" height="29">
<p align="center"><font size="2" face="Verdana">Cognome</font></td>
<td width="210" bgcolor="#FFFFCC" height="29">
<p align="center"><font size="2" face="Verdana">Residenza</font></td>
</tr>
<%

SQL="SELECT * FROM dati"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)
While Not rec.EOF%>
<tr>
<td width="17" valign="middle" align="center" bgcolor="#FFFFCC" height="30"><a href="del.asp?cod=<%=rec("id")%>"><img border="0" src="cancella.gif" alt="cancella il record numero <%=rec("id")%>"></a></td>
<td width="17" valign="middle" align="center" bgcolor="#FFFFCC" height="30"><a href="edit.asp?cod=<%=rec("id")%>"><img border="0" src="modifica.gif" alt="modifica il record numero <%=rec("id")%>"></a></td>
<td width="210" bgcolor="#FFFFCC" height="30"><font size="2" face="Verdana"><%=rec("nome")%></font></td>
<td width="210" bgcolor="#FFFFCC" height="30"><font size="2" face="Verdana"><%=rec("cognome")%></font></td>
<td width="210" bgcolor="#FFFFCC" height="30"><font size="2" face="Verdana"><%=rec("residenza")%></font></td>
</tr>


<% rec.MoveNext
wend
rec.close%>
</center>

</body>
</html>
141 messaggi dal 08 luglio 2004
<%
APERTURA CONN E RECORDSET

RecordsPerPagina = 6
Pagina = Request("Pagina")
IF Pagina="" THEN Pagina=1
IF RS.EOF=True OR RS.BOF=True THEN
%>
NESSUN RECORD TROVATO
<% ELSE%>
TESTATA DELLA TABELLA

<%
RS.PageSize = RecordsPerPagina
RS.AbsolutePage=Pagina
FOR i=1 To RecordsPerPagina
IF NOT RS.EOF THEN
%>
LOOP SUI DATI DA ESTRARRE
<%
RS.MoveNext
END IF
NEXT
END IF
%>

ED ALLA FINE LA PAGINAZIONE VERA E PROPRIA

Spero di essere stato chiaro :-)
Ciao
141 messaggi dal 08 luglio 2004
SCUSAAAAAAA..... NON TI HO SCRITTO LA PAGINAZIONE
SONO UN PO RINCO

<%
Response.Write "<P><B>Pagine:</B> "
FOR Pagina=1 TO RS.PageCount
IF Request.QueryString("Pagina")*1=Pagina THEN
Response.Write "<B>" & "&nbsp;" & Pagina & "&nbsp;&nbsp;" & "</B>"
END IF
IF Request.QueryString("Pagina")*1<>Pagina THEN
Response.Write "<A href='Default.asp?PaginaRichiesta=CatalogoMobili.asp&Pagina="&Pagina
Response.Write "&" & "Ambiente="&Request.QueryString("Ambiente")
Response.Write "&" & "Categoria="&Request.QueryString("Categoria")
Response.Write "&" & "Stile="&Request.QueryString("Stile")
Response.write "'>"
Response.Write Pagina
Response.Write "</A> "
END IF
NEXT
Response.Write "</P>"
%>
Guarda qui per la paginazione:

http://www.aspitalia.com/liste/usag/script.aspx?ID=208

e qui per poter paginare con i numeri:

http://www.aspitalia.com/script/261/MostrarePaginePaginazione.aspx

Alberto Biancardo

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.