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

codice:
<% 
  
  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