Newsgroup: it.comp.www.asp
Titolo: PageCount

Ciao,
Stò facendo una pagina che estra i record dal database e ho trovato il modo
per suddividere i record in piu pagine,
Le pagine sono numerate ed ho inserito i lnk next e prev. Inserendo il next
e il prov ho un problema, non riesco a farlo in modo dinamico, devo per
forza inserire il numero di pagine che si creano. Ho provato ad utilizzare
rs.PageCount al posto dei numeri  non funziona come mai? riporto il codice..
if pag > 1  and  (pag < 5) then '
Response.Write "<A href='vweufunky.asp?page=" & pag -1
  Response.write "'>"
  Response.write"&nbsp;Prev&nbsp;"
  Response.Write "</A> "
  Response.Write "<A href='vweufunky.asp?page=" & pag +1
  Response.write "'>"
  Response.write"&nbsp;Next&nbsp;"
  Response.Write "</A> "
    Else
  if pag = 5 then
  Response.Write "<A href='vweufunky.asp?page=" & pag -1
  Response.write "'>"
  Response.write"&nbsp;Prev&nbsp;"
  Response.Write "</A> "
  Else
  if pag = 1 then
   Response.Write "<A href='vweufunky.asp?page=" & pag +1
  Response.write "'>"
  Response.write"&nbsp;Next&nbsp;"
  Response.Write "</A> "
  end if
  end if
  end if
  Response.Write "</P>"

 ha scritto nel messaggio
news:ci775c$649$1...@lacerta.tiscalinet.it...

Ti posto un esempio che trovai tempo fa in rete e che funziona.
***********************************************
<%    Response.Expires = 0  %>
<html><head><title>Ricerca</title></head>
<body>
<%
Select Case Request.QueryString("Direction")
 Case ""
  Session("CurrentPage") = 1
 Case "Next"
  Session("CurrentPage") = Session("CurrentPage") + 1
 Case "Previous"
  Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
Dim conn
Dim objRecordset
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Immobili")
Dim strSQL
strSQL = "SELECT * FROM Tabella"
strSQL = strSQL & " WHERE (zona LIKE '%" & Request.Form("zona")&"%')"
& _
         "AND (piano LIKE '%" & Request("piano") & "%')"
& _
         "AND (locali LIKE '%" & Request("locali") & "%')"
If Request.Form("prezzo") = "Sotto i cento" Then
   strSQL = strSQL & " AND(prezzo < 100)"
Else If Request.Form("prezzo") = "Da 100 a 200" Then
  strSQL = strSQL & " AND(prezzo >= 100 AND prezzo < 200)"
Else If Request.Form("prezzo") = "Oltre 200" Then
   strSQL = strSQL & " AND(prezzo >= 200)"
End If
End If
End If
Set objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.PageSize= 3
objRecordset.Open strSQL, conn, adOpenKeyset
objRecordset.AbsolutePage = CLng(Session("CurrentPage"))  %>
<% If objRecordset.BOF and objRecordset.EOF Then %>
              <h1>Sorry, no results</h1>
<%Else%>
<%If Not objRecordset.EOF Then%>
<p><h1>Pagina <%=Session("CurrentPage")%> di
<%=objRecordset.PageCount%></h1></p>
    <h2>Risultati della ricerca:</h2>
<table>
<tr>
<th>Indirizzo</th>
<th>Zona</th>
<th>Prezzo</th>
<th>Metri quadri</th>
<th>Piano</th>
<th>Locali</th>
</tr>
<%
 Dim i
 For i = 1 To objRecordset.PageSize
 If objRecordset.EOF Then
 Exit For
 End If
%>
<tr>
 <td><%=objRecordset("indirizzo")%></td>
 <td><%=objRecordset("zona")%></td>
 <td><%=objRecordset("prezzo")%></td>
 <td><%=objRecordset("metri quadri")%></td>
 <td><%=objRecordset("piano")%></td>
 <td><%=objRecordset("locali")%></td>
</tr>
 <%
 objRecordset.MoveNext
 Next
 %>
</table>
<%If CLng(Session("CurrentPage")) < objRecordset.PageCount Then %>
<br>
<br>
<p><a href="esperimento.asp?Direction=Next">Pagina successiva</a>
</p><%End If%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<p><a href="esperimento.asp?Direction=Previous">Pagina
precedente</a></p>
<%End If%>
<%
     End If
     End If
     objRecordset.Close
     conn.Close
     Set objRecordset = Nothing
     Set conn = Nothing    %>
</body></html>
**********************************************************