Buongiorno,
sto utilizzando un carrello e dovrei inserire nella pagina dei dettagli articoli la possibilita di visualizzare l'articolo successivo o il precedente.
Vi posto lo script.
codice:
<%
if len(Session("aperta")) > 0 then
Dim idarticolo
Dim DBString
idarticolo = Request.QueryString("idarticolo")
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(idarticolo) <> 0 Then
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "informazionicomplete, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Informazioni1, "
sqlquery = sqlquery & "Informazioni2, "
sqlquery = sqlquery & "Informazioni3, "
sqlquery = sqlquery & "Informazioni4, "
sqlquery = sqlquery & "Informazioni5, "
sqlquery = sqlquery & "Informazioni6, "
sqlquery = sqlquery & "Informazioni7, "
sqlquery = sqlquery & "Informazioni8, "
sqlquery = sqlquery & "Informazioni9, "
sqlquery = sqlquery & "Informazioni10, "
sqlquery = sqlquery & "Inizio, "
sqlquery = sqlquery & "usaimg, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiTitolo, "
sqlquery = sqlquery & "RiferimentoDiTesto, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "ID = " & idarticolo
Dim RecordsetArticolo
Set RecordsetArticolo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Codice
Dim Denominazione
Dim Informazioni
Dim informazionicomplete
Dim InformazioniEstese
Dim Informazioni1
Dim Informazioni2
Dim Informazioni3
Dim Informazioni4
Dim Informazioni5
Dim Informazioni6
Dim Informazioni7
Dim Informazioni8
Dim Informazioni9
Dim Informazioni10
Dim Inizio
Dim usaimg
Dim Confezione
Dim Prezzo
Dim RiferimentoDiTitolo
Dim RiferimentoDiTesto
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
If Not RecordsetArticolo.EOF Then
ID = RecordsetArticolo("ID")
Codice = RecordsetArticolo("Codice")
Denominazione = RecordsetArticolo("Denominazione")
Informazioni = RecordsetArticolo("Informazioni")
informazionicomplete = RecordsetArticolo("informazionicomplete")
InformazioniEstese = RecordsetArticolo("InformazioniEstese")
Informazioni1 = RecordsetArticolo("Informazioni1")
Informazioni2 = RecordsetArticolo("Informazioni2")
Informazioni3 = RecordsetArticolo("Informazioni3")
Informazioni4 = RecordsetArticolo("Informazioni4")
Informazioni5 = RecordsetArticolo("Informazioni5")
Informazioni6 = RecordsetArticolo("Informazioni6")
Informazioni7 = RecordsetArticolo("Informazioni7")
Informazioni8 = RecordsetArticolo("Informazioni8")
Informazioni9 = RecordsetArticolo("Informazioni9")
Informazioni10 = RecordsetArticolo("Informazioni10")
Inizio = RecordsetArticolo("Inizio")
usaimg = RecordsetArticolo("usaimg")
Confezione = RecordsetArticolo("Confezione")
Prezzo = RecordsetArticolo("Prezzo")
RiferimentoDiTitolo = RecordsetArticolo("RiferimentoDiTitolo")
RiferimentoDiTesto = RecordsetArticolo("RiferimentoDiTesto")
RiferimentoDiIcona = RecordsetArticolo("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticolo("RiferimentoDiFoto")
%>
<TABLE BORDER=0 WIDTH="100%" CELLSPACING=0 CELLPADDING=0>
<TR>
<%If RiferimentoDiFoto <> "" Then%>
<TD valign=top>
<p style="margin-left: 10">[img]immagini/<%=RiferimentoDiFoto%>[/img]


<%=Denominazione%>


<%=informazionicomplete%><p style="margin-left: 10">
<%=InformazioniEstese%><p style="margin-left: 10">
<%=Informazioni1%><p style="margin-left: 10">
<%=Informazioni2%><p style="margin-left: 10">
<%=Informazioni3%><p style="margin-left: 10">
<%=Informazioni4%><p style="margin-left: 10">
<%=Informazioni5%><p style="margin-left: 10">
<%=Informazioni6%><p style="margin-left: 10">
<%=Informazioni7%><p style="margin-left: 10">
<%=Informazioni8%><p style="margin-left: 10">
<%=Informazioni9%><p style="margin-left: 10">
<%=Informazioni10%><p style="margin-left: 10">
<%=Inizio%><p style="margin-left: 10">
<p align="center">
[img]immagini/<%=usaimg%>[/img]</p>
<%End If%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%" bordercolor="#FFFFFF">
<p style="margin-left: 10">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="130" background="images/cella.jpg">
 Codice:<%=Codice%>
 
    </td>
    <td width="130" background="images/cella.jpg">
 Confezione: <%=Confezione%>
    </td>
    <td width="130" background="images/cella.jpg">
 Prezzo €: <%=FormatNumber(Prezzo, 2, -1, 0, -1)%>
    </td>
    <td width="30%">
<p align="justify">
[img]images/cart1.gif[/img]
</p>
    </td>
  </tr> 
</table>
    </td>
  </tr>
</table>

</TD>
</TR>
</TABLE>
<%End If%>
<%End If%>
<%
RecordsetArticolo.Close
Set RecordsetArticolo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<H4 style="margin-left: 10">La sessione è scaduta. Torna all'Home Page</H4>
<%end if%>
Grazie