Buongiorno,
sto cercando di far apparire in fondo alla pagina la possibilita di andare all'articolo successivo, ma quando lancio la pagina mi appare bianca e non riesco a capire il perchè.
Vi posto lo script

codice:
<% 'Estrazione pagina corrente
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
        
End If	
%>

<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Elenco articoli</title>
<link rel="stylesheet" href="indexx.css">
</head>

<body>

<table border="0" style="border-collapse: collapse" width="100%" id="AutoNumber1" height="638" cellspacing="8" 

cellpadding="0">
  <tr>
    <td width="100%" height="42" colspan="3" align="center"> 
    </td>
  </tr>
  <tr>
    <td width="100%" height="11" colspan="3"></td>
  </tr>
  <tr>
    <td width="150" height="498" rowspan="3" valign="top"> 
    </td>
    <td width="450" height="425" align="center">
   <table border=0 cellpadding=0 cellspacing=0><tr><td>
<%if len(Session("aperta")) > 0 then
Session.LCID=1040

Set DatabaseWebStore= Server.CreateObject("ADODB.Connection")
DatabaseWebStore.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & 

Server.Mappath("mdb-database/webstore.mdb")
DatabaseWebStore.Open
%>
<%
If Len(idlineadicatalogo) = 0 Then %>
<% Else %>
<%
Dim sqlquery
sqlquery = "SELECT  *  FROM [Catalogo, Articoli]  WHERE IDLinea = " & idlineadicatalogo & " AND InVendita=true"


				iPageSize = 10 'NUMERO RECORD PER PAGINA
				
				
				Set RecordsetArticoli = Server.CreateObject("ADODB.Recordset")
			
				RecordsetArticoli.PageSize = iPageSize
				RecordsetArticoli.CacheSize = iPageSize
				RecordsetArticoli.Open sqlquery, DatabaseWebStore, adOpenStatic, adLockReadOnly, adCmdText
				
				recCount = RecordsetArticoli.RecordCount
				iPageCount = RecordsetArticoli.PageCount
				

				If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
				If iPageCurrent < 1 Then iPageCurrent = 1	
					
				If iPageCount = 0 Then
				Else
					RecordsetArticoli.AbsolutePage = iPageCurrent
					iRecordsShown = 0
					
					
					
					
				End If
				%>
				<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0>
				<%
				Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
				
					ID = RecordsetArticoli("ID")
					Codice = RecordsetArticoli("Codice")
					Denominazione = RecordsetArticoli("Denominazione")
					Informazioni = RecordsetArticoli("Informazioni")
					InformazioniEstese = RecordsetArticoli("InformazioniEstese")
					Confezione = RecordsetArticoli("Confezione")
					Prezzo = RecordsetArticoli("Prezzo")
					RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
					RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
				%>
				<TR VALIGN="TOP">
					<TD>
					<% If RiferimentoDiIcona <> "" Then%>
						[img]<%=RiferimentoDiIcona%>[/img]
					<% else %>
						 
					<% End If %>
					</TD>
					<TD><%=Denominazione%>
						

						<%=Informazioni%>
						


						Prezzo € <%=FormatNumber(Prezzo, 2, -1, 0, -1)%>
					</TD>
					<TD valign=bottom>[img]icons/cart.gif[/img]
					</TD>
				</TR>
				<TR>
					<TD colspan=3> </TD></TR>
				<%
				iRecordsShown = iRecordsShown + 1 
				RecordsetArticoli.MoveNext
				Loop
				%>
				</TABLE>
				<%
				
				RecordsetArticoli.Close
				Set RecordsetArticoli = Nothing
				
				DatabaseWebStore.Close
				Set DatabaseWebStore = Nothing
				%>

<% If iPageCount <> 1 Then %>
	<table align="center">
	<tr>
	<td width="100%" align="center" valign="middle"><font face="verdana" size="1" color="#000000">
	<%If iPageCurrent-2 > 0 And iPageCurrent > 2 Then %>
		 | Prima | 					

			
	<% End If %>	
	
	<% If iPageCurrent > 1 Then %>
		 | Previous | 
	<%end if %>							
	
	<% If iPageCount > 2 then
		if iPageCurrent-2 < 1 then da_pag = 1 else da_pag = iPageCurrent-2
		if iPageCurrent+2 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+2
	Else
		da_pag = 1
		fino_a_pag = iPageCount
	end if %>
	
	<%for i = da_pag to fino_a_pag %>
		<%if i = iPageCurrent then %>
			 <font color="red"><%=i%></font> 
		<% else %>	
			 <%=i%> 
		<%end if %>	
	<% next %>
	
	<%if iPageCurrent > 0 and iPageCurrent < iPageCount then %>
		 | Next | 
	<%end if %>	
	
	<%if iPageCurrent+1 < iPageCount then %>
		 | Ultima 
	<%end if %>	
	</font>
	</td>
	</tr>
	<tr>
	<td colspan="2" align="center">
	<font face="verdana" size="1" color="#000000">
	Pagina 
	<font color="#FF0000"><%=iPageCurrent%></font>
	 di 
	<font color="#FF0000"><%=iPageCount%></font>
	</font>
	</td>
	</tr>
	</table>
<% end if %>



<%End If%>
<% else %>
<H4>La sessione è scaduta. Torna all'Home Page</H4>
<%end if
%>
</TD></TR>
<TR><TD align=left>
</TD></TR></table>
 </td>
    <td width="150" height="498" rowspan="3" valign="top">
    

 </td>
  </tr>
  <tr>
    <td width="450" height="29" align="center">
    <a href="elenco_linee.asp">Torna
    al catalogo</a> | Guarda il carrello</td>
  </tr>
  <tr>
    <td width="450" height="28"> </td>
  </tr>
  <tr>
    <td width="100%" height="55" colspan="3" align="center"> 
    </td>
  </tr>
</table>

</body>

</html>
Grazie