Integrare script per paginazione ad una pagina asp

2 Risposte

• S

  sara80

  Pochi posts

  Iscritto da

  mag, 2007

  Messaggi:

  4

  Re: Integrare script per paginazione ad una pagina asp

  22 mag 2007, 10:49

  Impostando così lo script funziona tutto correttamente come potete vedere al link: http://www10.asphost4free.com/aspasp/news.as
  
  Non funziona soltanto la variabile MaxNews inclusa nella pagina news.asp così:
  
  <!--#include virtual="aspasp/mdb-database/inc_variabili.asp"-->
  
  nel file inc_variabili.asp è settato così:
  

  <%
  
  'FILE DI CONFIGURAZIONE DELLE VARIABILI GLOBALI
  
  Dim MaxNews
  
  '#Configurazione news
  MaxNews = 2  'Numero di news visualizzati in home page

  e si dovrebbero visualizzare 2 record per pagina...
  Dovrei integrare la variabile MaxNews in questa pagina asp chi mi da una mano?
  
  

  <%
  	'VERSIONE FILE 1.4.0
  %>
  
  <div align="justify">
  		
             news.<br><br><br>
    </div>
  	<table width="480" border="1" align="center" height="150" cellpadding="3" cellspacing="1">
  <%
  '---Dichiarazione variabili
  	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag
  		'recupero la pagina 
  		page = Request.QueryString("page") 
  		
  		perpage = 1
  
  	Set Conn = Server.CreateObject("ADODB.Connection") 
  	Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/aspasp/mdb-database/ecom.mdb") 
  	Set Rsnews = Server.CreateObject("ADODB.Recordset") 
  	SQL = " SELECT * FROM News ORDER BY ID ASC"
  	RSnews.Open SQL, Conn, 1 
  If page = "" then 
  page = (rsnews.PageCount) 
  End if 
  
  Rsnews.PageSize = perpage 
  Rsnews.AbsolutePage = page 
  %>
  		<tr bgcolor="<%=Tabella_Colore_Titolo%>">
  			<td colspan="2">
  				<b>  <%= RSnews("Titolo") %></b>
  			</td>
  		</tr>
  		<tr>
  <%
  			If Len(RSnews("Img")) > 0 Then
  %>
  				<td width="120" align="center" valign="top">
  					<a href="" target="_blank"><img src="<%=RSnews("Img")%>" alt="" width="80" height="83" border="1"></a>
  				</td>
  				<td width="21000" valign="top">
  <%
  			Else
  %>
  				<td width="480" valign="top" colspan=2>
  <%
  			End If
  %>
  				<p align="justify"><%= RSnews("Testo") %> </p>
  			</td>
  		</tr>
  <%
  				RSnews.MoveNext
  		'Next
          'Else
  %>		
  		
  </table>
  <%
  For i = 1 to perpage 
  If Not Rsnews.EOF then 
  if Rsnews("id") < 10 then 
  end if 
  Rsnews.MoveNext 
  end if 
  next 
  %>
  
  <% 
  
  Response.Write "<P><B>Pagine News Presenti:</B> " 
  
  For pag= 1 to rsnews.PageCount 
  if page = pag then 
  Response.Write "<b>" 
  Response.Write "<A href='news.asp?page=" & pag 
  Response.write "'>" 
  Response.Write pag 
  Response.Write "</A> " 
  Response.Write "</b>" 
  else 
  Response.Write "<A href='news.asp?page=" & pag 
  Response.write "'>" 
  Response.Write pag 
  Response.Write "</A> " 
  end if 
  Next 
  
  Response.Write "</P>" %>
  
  
  <%
  Rsnews.Close 
  Set Rsnews = Nothing 
  Conn.Close 
  Set Conn = Nothing 
  %>
  <br>
  <table width="96" border="0" align="right">
                    <tr>
                      <th height="18" class="sm Stile2  Stile5" scope="col"><span class="sm  big Stile6"><span class="sm  big Stile7"><span class="sm  big"><a href="java-script:history.back(-1);">indietro</a><a href="java-script:history.back(-1);"><img src="<%=Path_Img%>catalogo_indietro.gif" alt="<%=TestoIndietro%>" width="18" height="21" border="0"></a></span></span></span></th>
                    </tr>
              </table>

• S

  sara80

  Pochi posts

  Iscritto da

  mag, 2007

  Messaggi:

  4

  Re: Integrare script per paginazione ad una pagina asp

  22 mag 2007, 10:51

  Impostando
  
  '#Configurazione news
  MaxNews = 2 'Numero di news visualizzati in home page
  
  e
  

  '---Dichiarazione variabili
  	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag
  		'recupero la pagina 
  		page = Request.QueryString("page") 
  		
  		perpage = [b]MaxNews[/b]

  
  ora mi visualizza 2 page al posto di 4 ma sempre una table per pagina e non due table...
  
  come potete vedere al link: http://www10.asphost4free.com/aspasp/news.as