274 messaggi dal 21 luglio 2001
ragazzi se vi posto il codice della mia paginetta mi scrivete il codice per una paginazione !!!
io sto diventando matto !!!
grazie 1000


<%@LANGUAGE = JScript%>
<!--#include file="config.inc"-->
<%
var Rs = Cn.Execute("SELECT * FROM upload ORDER BY id DESC");
%>

<html>
<head>
<title>Leggi i dati</title>
<style type="text/css">
td { font: Normal 12px Verdana; }
a { color: #0000FF; }
a:hover { color: #FF0000; }
</style>
</head>
<body>

<table align="center" width="770" cellpadding="1" cellspacing="0" border="1">
<tr>
<td colspan="7"><b> Leggi i dati delle offerte inserite su web ..::RADIANCEVIAGGI::..</b></td>
</tr>
<tr>
<td colspan="2"><div align="center"><strong><font color="#FF0000">Pannello</font></strong></div>
<div align="center"></div></td>
<td><div align="center"><strong><font color="#FF0000">Titolo offerta</font></strong></div></td>
<td><div align="center"><strong><font color="#FF0000">Categoria</font></strong></div></td>
<td><div align="center"><strong><font color="#FF0000">Data inserimento</font></strong></div></td>
<td><div align="center"><strong><font color="#FF0000">Codice</font></strong></div></td>
<td><div align="center"><strong><font color="#FF0000">On-Line</font></strong></div></td>
</tr>
<tr>
<%
if (Rs.EOF) Response.Write("<td colspan=\"4\">Nessun dato</td>");
else while (!Rs.EOF)
{
%>
<td width="5%"><strong><font face="Tahoma" size="1"><font face="Tahoma" size="1">
</font></font></strong><img src="img/EDIT.GIF" align="absmiddle">&nbsp;<a href="modifica.asp?id=<%=Rs("id")%>">Mod.</a></td>
<td width="8%"><img src="img/CANCEL.GIF" align="absmiddle">&nbsp;<a href="cancella.asp?id=<%=Rs("id")%>">Canc.</a></td>
<td width="35%"><div align="center"><%=Server.HTMLEncode(Rs("titolo"))%></div></td>
<td width="17%"><div align="center"><%=Server.HTMLEncode(Rs("categoria"))%></div></td>
<td width="17%"><div align="center"><%=Server.HTMLEncode(Rs("data"))%></div></td>
<td width="9%"><div align="center"><%=Server.HTMLEncode(Rs("codiceviaggio"))%></div></td>
<td width="9%"><div align="center"><%=Server.HTMLEncode(Rs("visibilita"))%></div></td>
</tr>

<%
Rs.Movenext();
}
%>
<tr>
<td colspan="7"><img src="img/nuovo.gif" align="absmiddle">&nbsp;<a href="../upload/upload.asp">Inserisci</a></td>
</tr>
</table>
</html>
<%Cn.Close()%>


:-)
all'inizio della pagina

PSize=6 'ammettiamo che ne vuoi 6 per pagina
If Request.QueryString("page") = "" Then
PCurrent = 1
else
PCurrent = CInt(Request.QueryString("page"))
End If
'-----connessione-------
'------query (attenzione a non usare execute ma setta i cursori a 1, 1

prima di visualizzare i dati

rs.PageSize = PSize
PCount = rs.PageCount
If PCurrent < 1 Then PCurrent = 1
If PCount = 0 Then
response.write "Nessun dato"
else
rs.AbsolutePage = PCurrent

i = 0
Do While i < PSize And Not rs.EOF

------dati da inserire nel ciclo-----
i = i + 1
rs.MoveNext
Loop
end if

'barra di navigazione per andare indietro
If PCurrent <> 1 Then
%>
<a href="nomepagina.asp?page=<%= PCurrent - 1%>">indietro</A>
<% End If %>

'barra di navigazione per andare avanti
If PCurrent < PCount Then
%>
<a href="nomepagina.asp?page=<%= PCurrent + 1%>">Avanti</A>
<% End If %>

Mi sembra sia tutto
Biank
Modificato da biank il 15 marzo 2005 11.07 -

Alberto Biancardo
274 messaggi dal 21 luglio 2001
ci ho provato...ma mi da un sacco di errori!!!
Credo che il problema sia che uso
<%@LANGUAGE = JScript%>

il file config è il seguente :
<!--#include file="config.inc"-->

<%
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/database.mdb"));
%>

Sto diventando matto !!!

:-)

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.