salve a tutti... vorrei chiedervi aiuto per una questione di paginazione...
qui sotto vi posto la pagina di un elenco di prodotti che è paginata verticalmente... quello che vorrei fare è ottenere una paginazione invece orizzontale!!
qualcuno può darmi una mano?
<html>
<head>
<title>Elenco linee</title>
<link rel="stylesheet" href="indexx.css">
</head>
<body>
<table width="750" height="100%" border="0" align="center" cellpadding="0" cellspacing="8" id="AutoNumber1" style="border-collapse: collapse">
<tr bgcolor="#CCCCCC">
<td height="50" colspan="3" align="center"> </td>
</tr>
<tr>
<td height="30%" colspan="3"><div align="right">[img]icons/cart.gif[/img]<a href="carrello.asp">guarda
il carrello</a></div></td>
</tr>
<tr>
<td width="133" height="100%" rowspan="3" valign="top" bgcolor="#CCCCCC">
</td>
<td width="438" height="300" align="center">
<%
If Len(Session("aperta")) > 0 Then
Else
Session("aperta") = "ok"
Session.LCID = 1040
Dim QuantiArticoliInScontrino
Dim ScontrinoInScontrino()
Dim ScontrinoIDArticolo()
Dim ScontrinoCodiceArticolo()
Dim ScontrinoDenominazioneArticolo()
Dim ScontrinoConfezioneArticolo()
Dim ScontrinoQuantitativoArticolo()
Dim ScontrinoPrezzoArticolo()
Dim NOITEMSINSHOPPINGBASKET
Dim TOOMANYITEMSINSHOPPINGBASKET
Dim INFO_NOITEMSINSHOPPINGBASKET
Dim INFO_TOOMANYITEMSINSHOPPINGBASKET
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
TOOMANYITEMSINSHOPPINGBASKET = False
INFO_NOITEMSINSHOPPINGBASKET = "Il tuo carrello è vuoto."
INFO_TOOMANYITEMSINSHOPPINGBASKET = "Il carrello contiene troppi articoli..."
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
Session("TOOMANYITEMSINSHOPPINGBASKET") = TOOMANYITEMSINSHOPPINGBASKET
Session("INFO_NOITEMSINSHOPPINGBASKET") = INFO_NOITEMSINSHOPPINGBASKET
Session("INFO_TOOMANYITEMSINSHOPPINGBASKET") = INFO_TOOMANYITEMSINSHOPPINGBASKET
Dim IDUtente
Dim SchedaClienteNome
Dim SchedaClienteCognome
Dim SchedaClienteIndirizzo
Dim SchedaClienteCodicePostale
Dim SchedaClienteComune
Dim SchedaClienteProvincia
Dim SchedaClienteTelefono
Dim SchedaClienteFax
Dim SchedaClienteEmail
Dim EMPTYFIELDS
Dim INFO_EMPTYFIELDS
EMPTYFIELDS = False
INFO_EDEMPTYFIELDS = "Compila tutte le informazioni richieste!"
Session("IDUtente") = IDUtente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo") = SchedaClienteIndirizzo
Session("SchedaClienteCodicePostale") = SchedaClienteCodicePostale
Session("SchedaClienteComune") = SchedaClienteComune
Session("SchedaClienteProvincia") = SchedaClienteProvincia
Session("SchedaClienteTelefono") = SchedaClienteTelefono
Session("SchedaClienteFax") = SchedaClienteFax
Session("SchedaClienteEmail") = SchedaClienteEmail
Session("EMPTYFIELDS") = EMPTYFIELDS
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
Dim IDOrdine
Dim OrdineData
Dim OrdineImporto
Dim OrdineSpeseDiSpedizione
Session("IDOrdine") = IDOrdine
Session("OrdineData") = OrdineData
Session("OrdineImporto") = OrdineImporto
Session("OrdineSpeseDiSpedizione") = OrdineSpeseDiSpedizione
Session("AcquistoOK") = ""
End If
%>
<table width="436" border=0 cellpadding=0 cellspacing=0>
<tr>
<td width="436">
<%
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\databases\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
Dim RecordsetLineeDiCatalogo
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "NumeroArticoli "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "qryLinee"
Set RecordsetLineeDiCatalogo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Denominazione
Dim Informazioni
%>
<TABLE BORDER=0 WIDTH="100%" CELLSPACING=3 CELLPADDING=3>
<%if err=0 then
While Not RecordsetLineeDiCatalogo.EOF
ID = RecordsetLineeDiCatalogo("ID")
Denominazione = RecordsetLineeDiCatalogo("Denominazione")
Informazioni = RecordsetLineeDiCatalogo("Informazioni")
NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli")
%>
<TR>
<TD> <font size="1">
<%if NumeroArticoli>0 then%>
<A HREF="elenco_articoli.asp?idlineadicatalogo=<%=ID% >">
<%end if%>
<%=Denominazione%>
<%if NumeroArticoli>0 then%>
</A>
<%end if%>
<%=Informazioni%></font> <hr>
</TD>
</TR>
<%
RecordsetLineeDiCatalogo.MoveNext
Wend
end if
%>
</TABLE>
<%
RecordsetLineeDiCatalogo.Close
Set RecordsetLineeDiCatalogo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
%>
</TD>
</TR>
<tr>
<td><div align="center"><font size="1">AMMINISTRATORE</font></div></TD>
</TR>
<tr>
<td><hr></TD>
</TR>
<tr>
<td> </TD>
</TR>
<tr>
<td>
</TD>
</TR>
<tr>
<td> </TD>
</TR>
<TR>
<TD align=left> </TD>
</TR>
</table>
</td>
<td width="149" height="100%" rowspan="3" valign="top" bgcolor="#CCCCCC">
</td>
</tr>
<tr>
<td width="438" height="20" align="center" bgcolor="#CCCCCC"> </td>
</tr>
<tr>
<td width="438" height="20" align="center" bgcolor="#CCCCCC"> </td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="55" colspan="3" align="center"> </td>
</tr>
</table>
</body>
</html>
Rispondi quotando
