Dividere risultati

**ISE** · 16-09-2005, 16:42

Ragazzi come faccio a dividere i risultati in una pagina?Cioè invece di fare uno scroll infinito vorrei che dopo 10-15 risultati si divida in due pagine...
Come fare?

**lufo5** · 16-09-2005, 16:45

http://freeasp.html.it/script/view_script.asp?id=137

**99eros9** · 16-09-2005, 16:45

cerca per paginazione nel forum.

**ISE** · 16-09-2005, 16:50

Originariamente inviato da lufo5
http://freeasp.html.it/script/view_script.asp?id=137

Ho letto il codice grazie, ma volevo sapere uan cosa...
Io nella mia pagina ho questo codice asp

codice:

<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
SQL="select * from elenco"
rs.Open SQL,Con, 2,2
%>
......

Il codice da te indicatomi dove lo inserisco?Prima che vengano letti dal db i dati?

**lufo5** · 16-09-2005, 16:53

una volta fatto l'open, il recorset ha queste due proprietà:

' quante righe visualizzare per pagina
Rs.PageSize = nRighe

' quale pagina visualizzare
Rs.AbsolutePage = nPagina

**ISE** · 16-09-2005, 17:01

[B]

' quale pagina visualizzare
Rs.AbsolutePage = nPagina

Qui devo mettere i nome della pagina che deve creare o cosa?

**ISE** · 16-09-2005, 17:17

codice:


<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
SQL="select * from elenco"
rs.Open SQL,Con, 2,2
%>
<html>
<head>
<title>ANCL Catania</title>
<META NAME="description" CONTENT="ANCL, associzione nazionale consulenti del lavoro di Catania.Tutte le informazioni nel sito.">
<META NAME="keywords" CONTENT="ancl, consulenti, lavoro, associazione, Catania, Sicilia, sciacca, ragioniere, commercialista, ">
<META NAME="ROBOTS" CONTENT="INDEX,FOLLOW">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="copyright" content="Ermes Web - www.ermesweb.it" />
<META NAME=author CONTENT="Ermes Web - www.ermesweb.it">
<meta http-equiv="pragma" content="no-cache" />
<style>
a:link {text-decoration:underline;color:#000066;font-weight:800}
a:hover {text-decoration:none;color:#FF0000;color:#000000}
a:visited {text-decoration:underline;color:#000066;font-weight:800}
.style11 {color: #FFFFFF}
</style>
<link href="../styleEW.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.Stile16 {font-size: 10}
.Stile26 {color: #FFFFFF; font-size: 12px; font-weight: bold; }
-->
</style>
</head>

<body topmargin=15 leftmargin=0>
<div align=center>
<table width=760 cellpadding=0 cellspacing=0 border=0>
<tr>
<td height=95 width=180 valign=middle align=right rowspan=2> 
<img src=../gfx/ancl_logo.gif hspace=15>
</td>
<td width=420 valign=top height=75 align=center> 
<img src=../gfx/ancl_online.gif hspace=0 vspace=0>
</td>
<td height=95 width=180 valign=middle align=left rowspan=2> 
<img src=../gfx/ancl_logo.gif hspace=15>
</td>
</tr><tr>
<td width=420 valign=top height=20 bgcolor=#091663 align=center>
<img src=../gfx/ancl_sc.gif align=top>
</td>
</tr><tr>
<td height=25 colspan=3 style="border-top:1px solid #000000" align=center valign=bottom>
<img src=../gfx/sede_ct.gif vspace=5>
</td>
</tr><tr>
<td colspan=3 valign=top class="ContenutiBLU"><div align="center">
  <SCRIPT LANGUAGE="JavaScript">
var RightNow = new Date();
var hrNow = RightNow.getHours();
var mnNow = RightNow.getMinutes();
var scNow = RightNow.getSeconds();
var miNow = RightNow.getTime();
var mon = RightNow.getMonth() + 1;
var date = RightNow.getDate();
var year = RightNow.getYear();

if(navigator.appName == "Netscape") {
	var year = RightNow.getYear() +1900;
}


var day = RightNow.getDay();
var zday=new Array(7)
if (day==0) {zday="Domenica"};
if (day==1) {zday="Lunedì"};
if (day==2) {zday="Martedì"};
if (day==3) {zday="Mercoledì"};
if (day==4) {zday="Giovedì"};
if (day==5) {zday="Venerdì"};
if (day==6) {zday="Sabato"};
var zmon = new Array(12)
if (mon==1) {zmon="Gennaio"};
if (mon==2) {zmon="Febbraio"};
if (mon==3) {zmon="Marzo"};
if (mon==4) {zmon="Aprile"};
if (mon==5) {zmon="Maggio"};
if (mon==6) {zmon="Giugno"};
if (mon==7) {zmon="Luglio"};
if (mon==8) {zmon="Agosto"};
if (mon==9) {zmon="Settembre"};
if (mon==10) {zmon="Ottobre"};
if (mon==11) {zmon="Novembre"};
if (mon==12) {zmon="Dicembre"};

document.write(""+zday+" "+date+" "+zmon+" "+year+"  ");
              </script>
    
              <script language="Javascript"> 
<!--

var tags_before_clock = ""
var tags_after_clock  = ""

if(navigator.appName == "Netscape") {
}

if (navigator.appVersion.indexOf("MSIE") != -1){
document.write(' <span id="clock"></span>
');
}

function upclock(){ 
var dte = new Date();
var hrs = dte.getHours();
var min = dte.getMinutes(); 
var sec = dte.getSeconds();
var col = ":";
var spc = " ";

if (hrs == 0) hrs=24;
if (min<=9) min="0"+min;
if (sec<=9) sec="0"+sec;

if(navigator.appName == "Netscape") {
document.clock.document.write(tags_before_clock
 +hrs+col+min+col+sec+spc+tags_after_clock);
document.clock.document.close();
}

if (navigator.appVersion.indexOf("MSIE") != -1){
clock.innerHTML = tags_before_clock+hrs
+col+min+col+sec+spc+tags_after_clock;
}
} 

setInterval("upclock()",1000);
//-->
              </script>
</div></td>
</tr>
<tr>
  <td colspan=3 valign=top class="ContenutiBLU">

Home &gt;&gt; - Visualizza dettagli utente &gt;&gt; - Visualizza file &gt;&gt; - Aggiungi File &gt;&gt; </p>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <% while not rs.eof %>
      <td width="0" height="0">[img]../gfx/T1blu.gif[/img]</td>
      <td width="0" height="0" background="../gfx/T6blu.gif"></td>
      <td width="0" height="0">[img]../gfx/T2blu.gif[/img]</td>
    </tr>
    <tr>
      <td width="0" height="0" background="../gfx/T5blu.gif"></td>
      <td width="99%" height="99%"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
        <tr bgcolor="#000066">
          <td><div align="center"><span class="Stile26">Nome</span></div></td>
          <td><div align="center"><span class="Stile26">Cognome</span></div></td>
          <td><div align="center"><span class="Stile26">Citt&agrave;</span></div></td>
          <td><div align="center"><span class="Stile26">Via</span></div></td>
          <td><div align="center"><span class="Stile26">Telefono</span></div></td>
          <td><div align="center"><span class="Stile26">Cellulare</span></div></td>
          <td><div align="center"><span class="Stile26">E-mail</span></div></td>
          <td><div align="center"><span class="Stile26">User</span></div></td>
          <td><div align="center"><span class="Stile26">Password</span></div></td>
          </tr>
        <tr>
          <td><div align="center"><span class="Stile16"><%= rs("nome") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("cognome") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("citta") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("via") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("telefono") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("cell") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("mail") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("user") %></span></div></td>
          <td><div align="center"><span class="Stile16"><%= rs("pass") %></span></div></td>
          </tr>
        <tr>
          <td colspan="9"><hr width="450"></td>
        </tr>
      </table></td>
      <td width="0" height="0" align="right" background="../gfx/T7blu.gif"></td>
    </tr>
    <tr>
      <td width="0" height="0">[img]../gfx/T4blu.gif[/img]</td>
      <td background="../gfx/T8blu.gif"></td>
      <td width="0" height="0">[img]../gfx/T3blu.gif[/img]</td>
    </tr>
    <% 
rs.movenext
wend
%>
  </table>  

</p>
  


<%

Set rs = Server.CreateObject( "ADODB.Recordset" )
SQL="select * from elenco"
rs.Open SQL,Con, 2,2

'imposto la dimensione della pagina
Rs.PageSize = 10
' mi sposto all'ultima pagina
Rs.AbsolutePage = "admin2prova.asp" 

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then 
if Rs("id") < 10 then
Response.Write ("[0" & Rs("id") & "'> ")
else
Response.Write ("[" & Rs("id") & "'> ")
end if
Rs.MoveNext 
end if 
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='admin2prova.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='admin2prova.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

%> 
</p>
  

</p>
  


      <%
rs.close
set rs = nothing
con.close
set con = nothing
%>
</p>
    </td>
</tr>
</table>

</div>
</body>
</html>

La parte in grassetto è il codice inserita per la paginazione dei risultati ma la riga colorata mi da errore:

codice:

Provider error '80020005' 

Type mismatch. 

/riservato/admin2prova.asp, line 198

Perchè?

**ISE** · 19-09-2005, 10:08

Sempre sulla stessa riga mi da questo errore:

codice:

ADODB.Recordset error '800a0cb3' 

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype

**longline** · 19-09-2005, 10:18

Hai dimenticato di riportare la prima parte del codice che ti hanno linkato. Nella riga che hai colorato, in origine veniva usata la variabile "page", devi lasciarla così perchè nelle righe che non hai inserito veniva valorizzata correttamente.

**ISE** · 19-09-2005, 10:25

Capito...
Il codice è questo:

codice:

<%
'recupero la pagina
page = Request.QueryString("admin3.asp")
' imposto il numero di record per pagina
perpage = 10

'connessione al db
Set Conn = Server.CreateObject( "ADODB.Connection" )
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&SERVER.MAPPATH("/mdb-database/registrazione.mdb")
Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "SELECT * FROM elenco"
rs.Open sql,Conn, 2, 2

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
rs.PageSize = perpage
' mi sposto all'ultima pagina
rs.AbsolutePage = page 

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then 
if Rs("id") < 10 then
Response.Write ("[0" & Rs("id") & "'> ")
else
Response.Write ("[" & Rs("id") & "'> ")
end if
Rs.MoveNext 
end if 
next

'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='admin3.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='admin3.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if
Next 

Response.Write "</P>" 

'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

Mi restituisce questo come errore:

codice:

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/riservato/admin3.asp, line 210

Cioè questa riga:

rs.AbsolutePage = page

Non capisco il perchè...

Discussione: Dividere risultati

Strumenti discussione

Ricerca discussione

Visualizza

Dividere risultati

Permessi di invio