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
Graziecodice:<% '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>
Rispondi quotando
