Buonasera,
sono nuovo del forum.
Sto creando una pagina di elenco articoli recuperandoli da database access
La pagina funziona ma in questo modo mi mette gli articoli uno sotto l'altro. io vorrei metterli uno di fianco all' altro 3 alla volta con massimo 9 per pagina
Di seguito il codice.
Grazie
sono nuovo del forum.
Sto creando una pagina di elenco articoli recuperandoli da database access
La pagina funziona ma in questo modo mi mette gli articoli uno sotto l'altro. io vorrei metterli uno di fianco all' altro 3 alla volta con massimo 9 per pagina
Di seguito il codice.
Grazie
HTML:
<!--#include file="adovbs.inc"-->
<% 'Estrazione pagina corrente
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If%>
<BODY background="immagini/fondale2.jpg"> <table border="0" width="100%" id="table22" cellspacing="0" cellpadding="0">
<%
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
%>
<%if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "/mdb-database/webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then%>
<%Else%>
<%
Dim sqlquery
sqlquery = "select * FROM [Catalogo, Articoli] WHERE IDLinea = " & idlineadicatalogo & " AND InVendita=true"
Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
<%iPageSize = 9 '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
%>
<%If RecordsetArticoli.EOF Then%>
<%Else%>
<td width="541" valign="top">
<table border="0" width="541" id="table33" cellpadding="0" cellspacing="0">
<tr>
<TD width="26" background="icons/cellanew_04.gif">
</TD>
<TD bgcolor="#f5f8fa">
<table border="0" width="100%" id="table35" cellspacing="0" cellpadding="0">
<tr>
<td height="120">
<TABLE BORDER=1 bordercolor="#F5F8FA" CELLPADDING=0 cellspacing="0" width="100%" id="table36">
<%Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
Informazioni1= RecordsetArticoli("Informazioni1")
Informazioni3= RecordsetArticoli("Informazioni3")
InformazioniComplete = RecordsetArticoli("InformazioniComplete")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<TR VALIGN="top">
<TD width="33%" bordercolor="#98C4DD" height="45">
<%If RiferimentoDiFoto <> "" Then%>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><IMG SRC="immagini/<%=RiferimentoDiFoto%>" border="0" height="350" wigth="250" alt="<%=Denominazione%>"></a></td>
<TD width="33%" bordercolor="#98C4DD"> </td>
<TD width="33%" bordercolor="#98C4DD"> </td>
</tr>
<TR VALIGN="top">
<TD width="33%" height="45" bordercolor="#98C4DD"><span class="title" style="margin-left: 5"><%=Denominazione%></span><p style="margin-left: 5" class="title"> </p>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><p class="text"><% =Left(InformazioniEstese, 200)%>...</a><br><br>
Prezzo € <b><%=Prezzo%></b></td>
<TD width="33%" bordercolor="#98C4DD"> </td>
<TD width="33%" bordercolor="#98C4DD"> </td>
</tr>
<tr>
<td align="left" colspan="4">
<%else%>
<%End If%></TD>
</TR>
<%iRecordsShown = iRecordsShown + 1
RecordsetArticoli.MoveNext
Loop
%>
</TABLE>
</div>
<%End If%>
<%End If%>
<% If iPageCount <> 1 Then %>
<table align="center" id="table38">
<tr>
<td width="100%" align="center" valign="middle">
<p class="title"><font face="verdana" size="2" color="#000000">
<% If iPageCurrent > 1 Then %>
<a href="elenco_articoli.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=iPageCurrent-1%>">
<IMG SRC="icons/art_pre.gif" alt="Articolo precedente" BORDER=0 width="100" height="23"></a>
<%end if %>
<% If iPageCount > 2 then
if iPageCurrent-9 < 1 then da_pag = 1 else da_pag = iPageCurrent-9
if iPageCurrent+9 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+9
Else
da_pag = 1
fino_a_pag = iPageCount
end if %>
<%for i = da_pag to fino_a_pag %>
<%if i = iPageCurrent then %> </font>
[<%=i%>]<font face="verdana" size="2" color="#000000">
<% else %>
<A href="elenco_articoli.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=i%>"><%=i%></A>
<%end if %>
<% next %>
<%if iPageCurrent > 0 and iPageCurrent < iPageCount then %>
<a href="elenco_articoli.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=iPageCurrent+1%>"><IMG SRC="icons/art_suc.gif" alt="Articolo successivo" BORDER=0 width="100" height="23"></a>
<%end if %>
</font>
</p>
</td>
</tr>
<tr>
<td align="center" class="title">
<p>
Pagina <%=iPageCurrent%> di
<font color="#00005a"><b><%=iPageCount%></b></font>
</p>
</td>
</tr>
</table>
<% end if %>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<%end if
%> </tr>
</table>
</TD> </tr>
</table>
</td>
</tr>
</table> <tr>
<td></td>
</tr>
</table>
</div>
</BODY>
</html>