Max numero di record per pagina con link pagine

[breil78rm]

Salve a tutti,
di seguito il codice della pagina che sto tentando di visualizzare:

<% 
  
  RecordsPerPagina = 7

  page = Request("page") 
  if page="" then page=1 
  
  
    strQuery14 ="SELECT id_libro,titolo,nome_img,autore,disponibilita,data_pubblicazione,prezzo FROM tlibro where disponibilita <> '0' order by data_pubblicazione desc"
    Set rstit2 = Server.CreateObject("ADODB.recordset")
	rstit2.Open strQuery14, conn, 1,3
  
     rstit2.PageSize = RecordsPerPagina 
     rstit2.AbsolutePage = page 
    
      %>
  

  <% 
  
          dim conta
          dim bgcolor
          conta = 0
          bgcolor = "#F2E9DE"
          do until rstit2.EOF       
          if conta mod 2 <> 0 then 
          bgcolor = "#EBDECE"
          Else
          bgcolor = "#F2E9DE"
          End if
  
        tit2=rstit2("titolo")   
		session("idlibro")=rstit2("id_libro")
		nomeimg=rstit2("nome_img")
		autore=rstit2("autore")
		prezzo=rstit2("prezzo")
		disp=rstit2("disponibilita")
		dataper=rstit2("data_pubblicazione")	
  
     
	 For i=1 to RecordsPerPagina 

     if Not rstit2.EOF then
	 
	 
          		
		
    'mostra record DEC8B1 %>
	<tr bgcolor="<%=bgcolor%>">
	   <% if nomeimg = "vuoto" then %>
	
	<td width="17%">[img]images/noimg.jpg[/img]</td>
	
	    <% else %>
	
    <td width="17%">[img]images/<%=nomeimg%>[/img]</td>

        <% end if %>
	
    <td width="70%" height="65">
	<table align="left" cellpadding="0" cellspacing="0">
	<tr><td align="left"><font size="2" face="tahoma" color="#990000"><%=tit2%></font>-<font size="1" face="tahoma"><u>Index</u></font></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td align="left"><font size="1" face="tahoma">Editore:<%=autore%></font></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td></td></tr>
	<tr><td align="left"><font size="1" face="tahoma">Data:<%=dataper%></font></td></tr>
    </table>
	</td>
	<td>
	<table>
	<tr><td><font size="3" face="arial" color="#990000">&euro;<%=prezzo%></font></td></tr>
	<tr><td>">[img]images/carrello.gif[/img]</td></tr>
	</table>
	
	<% 
     conta = conta + 1
	 
	  rstit2.MoveNext
	   response.write"</td></tr>"

      end if
	  next %>
     </td>
	 </tr>
	 </table>
      <% 

     Response.Write "<font size='2'>Pagine:</font>" 
     For pag=1 to rstit2.PageCount 

  Response.Write "<font size='2'><A href='pren_libro.asp?page="&pag&"'></font>" 
  Response.Write pag 
  Response.Write "</A> " 
  next
  Response.Write "
"
  
      	  
   end if
    rstit2.Close
	
     %>

Ricevo un errore a video :
Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
end if

Sono 2 giorni che sto cercando di risolverlo!!!!!!!!
Dov'è che sbaglio, chi mi sa dare una mano?????

Grazie a tutti

[maxolino]

Se non ho visto male....

Hai un: do until rstit2.EOF


Ma non hai il rispettivo loop

[breil78rm]

.....si hai visto bene!

.... :master: ma esattamente non so dove metterlo il loop.....

Ho provato a metterlo dopo la

rstit2.MoveNext
	   response.write"</td></tr>"

Ma dice che c'è un LOOP senza un DO.....

ciao e grazie!

[maxolino]

Prova qua:

<%
conta = conta + 1

rstit2.MoveNext
response.write"</td></tr>"

end if
next
loop %>
</td>
</tr>
</table>

[breil78rm]

Allora...ho fatto come mi hai dette te...ed una parte del problema l'abbiamo risolto....GRAZIE!!!!

Adesso però se n'è presentato un altro.
Praticamente mi ripete per N Volte ogni Record. Cioè mi spiego meglio. Io nello script ho specificato che ogni 7 record dovrebbe creare una pagina.

Adesso praticamente mi ha creato anche la seconda pagina e mi visualizza i Link numerati in fondo ma:

1 - Mi visualizzati ogni sigolo record per 7 volte prima di passare al successivo.
2 - Cliccando sul link con il 2 della seconda pagina mi da una pagian vuota, senza contenuti.

Mi puoi aiutare a capire che ci sto diventando matto???????

Grazie mille!

[maxolino]

Ciao, allora, ci sono un po di cose superflue!!


Qua:

For i=1 to RecordsPerPagina

if Not rstit2.EOF then


Togli il "if Not rstit2.EOF then" (di conseguenza anche l'end if in fondo) ed elimina anche il loop.

Subito dopo il rstit2.movenext aggiungi
If Rstit2.EoF Then Exit For

[breil78rm]

....non è possibile ancora non riesco ad ottenere quello che voglio.....

C'è qualcosa che non mi torna....ho seguito i consigli....apportato le modifiche ma ancora non mi visualizza i record come voglio io..ma soprattutto le pagine con il numero linkato.

chi mi da una mano???? a risolvere....questo Codice da Vinci??????


ciao e grazie a tutti....!!!!!

[breil78rm]

...nessuno che mi può aiutare???????


ciao!!!!