Dividere risultati

**lufo5** · 19-09-2005, 15:53

il pagecount devo andare dopo il pagesize.

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

Sistemato...grazie!!!
Ma mi da sempre qul problema...ovvero che per ogni pagina mette tutti i record!!!

**lufo5** · 19-09-2005, 16:14

codice:

<%
'recupero la pagina
page = Request.QueryString("page")
' 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, 3, 1


'imposto la dimensione della pagina
rs.PageSize = perpage

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

' mi sposto all'ultima pagina
rs.AbsolutePage = page 

%>
<html>
<head>
<title>ANCL Catania</title>
<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>
  


 <%

'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
%>
  
  </p>
  

</p>
  


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

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

**ISE** · 19-09-2005, 16:30

Ho caricato il codice che mi hai fornito...in ogni pagina mette tutti i record...
Crea due pagine perchè in totale ci sono 19 record ed io ho impostato 10 record per pagina però mi fa sempre vedere tutti i record in una pagina...

**lufo5** · 19-09-2005, 16:34

hai ragione pure te... però pensavo avessi letto l'esempio nel link che ti avevo postato...

codice:

<%
'recupero la pagina
page = Request.QueryString("page")
' 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, 3, 1


'imposto la dimensione della pagina
rs.PageSize = perpage

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

' mi sposto all'ultima pagina
rs.AbsolutePage = page 

%>
<html>
<head>
<title>ANCL Catania</title>
<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>
      <% for i = 1 to perpage
	if tb.eof then exit for
 %>
      <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
next
%>
  </table>  

</p>
  


 <%

'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
%>
  
  </p>
  

</p>
  


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

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

**ISE** · 19-09-2005, 16:39

Allora con il codice di prima nella prima pagina mi visualizzava tutti i record, nella seconda pagina solo quelli dall1undici in poi...
Ho inserito il nuovo codice che mi hai dato e da questo errore

codice:

Microsoft VBScript runtime error '800a01a8' 
Object required: '' 

/riservato/admin3.asp, line 161

Cioè questa riga di codice:

codice:

      <% for i = 1 to perpage
	if tb.eof then exit for   
 %>

**lufo5** · 19-09-2005, 16:42

if rs.eof then exit for

**ISE** · 19-09-2005, 16:49

MITICOOOOOOOOOOOOO!

Funziona perfettamente...mi divide i record 10 per ogni pagina ma se il db è vuoto mi da 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 26

codice:

<%
'recupero la pagina
page = Request.QueryString("page")
' 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/prova.mdb")

Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "SELECT * FROM elenco"
rs.Open sql,Conn, 3, 1


'imposto la dimensione della pagina
rs.PageSize = perpage

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

' mi sposto all'ultima pagina
rs.AbsolutePage = page     %>

**lufo5** · 19-09-2005, 16:52

if not rs.eof then rs.AbsolutePage = page

**ISE** · 19-09-2005, 16:54

GRANDEEEEEEEEEEEEEE!!!
Funziona tutto perfettamente...grazie amico!!!

Discussione: Dividere risultati

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio