Più prodotti in una pagina

[David_pop]

Dunque vi prego di aiutarmi..

Ho una pagina index.asp con una tabella divisa in sei parti. In ogni parte ci va un'immagine e descrizione di un prodotto che prendo da un db.
Ad ogni cella della tabella come faccio a far corrispondere un determitato prodotto semplicemente richiamandolo dall'ID nella tabella db?

:rollo:

[michele.santoro]

Ti serve la paginazione di Roby72

[David_pop]

Si ottima la paginazione di Roby, ma quello che intendo io dovrebbe essere ancora più semplice, io ho questo recordset (non guarda il numero finale che corrisponde ad un prodotto):

Recordset2.Source = "SELECT * FROM Prodotti WHERE TitoloProdotto='30030502'"

e ad esempio l'origine dell'immagine del prodotto è:

immagini/<%=(Recordset2.Fields.Item("ImmagineProdotto").Val ue)%>

però qui mi prende sempre la solita immagine corrispondente all'id: 2
io ho 6 immagini da inserire nella stessa pagina, come faccio?

[David_pop]

qualcuno mi aiuta ?

[maximum]

Questo tag:

immagini/<%=(Recordset2.Fields.Item("ImmagineProdotto").Value)%>

deve stare all'interno di un ciclo Do...Loop sul recordset per vedere tu più immagini.

Così:

do while not Recordset2
   .......
   immagini/<%=(Recordset2.Fields.Item("ImmagineProdotto").Value)%>
   .......
   Recordset2.movenext
Loop

Ok?

[David_pop]

cioe tipo all'inizio della tabella del sito metto:
do while not

e alla fine del sito metto:
Loop

in modo che comprenda tutte le immagini?

[maximum]

Non a casaccio!!!
Devi mettere il ciclo non appena hai eseguito la query, nel punto apposito della pagina.
Vediamo il codice e caso mai ti aiuto...

[David_pop]

eccola (ricorda che nella query c'e' '30030502' che indica uno dei prodotti, ma non credo vada bene per indicarne sei in una pagina:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset2
Dim Recordset2_numRows
dim id

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_connessione_STRING
if scelta=0 then
Recordset2.Source = "SELECT * FROM Prodotti WHERE TitoloProdotto='30030502'"
else
Recordset2.Source = "SELECT * FROM Prodotti where idProdotto="&prodotto&""
end if
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
id=(Recordset2.Fields.Item("idProdotto").Value)
Recordset2_numRows = 0
%>

[maximum]

Prova così:

<% 
Dim Recordset2 
Dim Recordset2_numRows 
dim id 

Set Recordset2 = Server.CreateObject("ADODB.Recordset") 
Recordset2.ActiveConnection = MM_connessione_STRING 
if scelta=0 then 
Recordset2.Source = "SELECT * FROM Prodotti WHERE TitoloProdotto='30030502'" 
else 
Recordset2.Source = "SELECT * FROM Prodotti where idProdotto="&prodotto&"" 
end if 
Recordset2.CursorType = 0 
Recordset2.CursorLocation = 2 
Recordset2.LockType = 1 
Recordset2.Open() 
id=(Recordset2.Fields.Item("idProdotto").Value) 
Recordset2_numRows = 0 
%>
<table border ="0" align="center">
<%
if Not Recordset2.eof then
   Do while not Recordset2.eof
%>
      <tr>
         <td>[img]immagini/<%=(Recordset2.Fields.Item([/img]" border="0"></td>
      </tr>
<%
      Recordset2.movenext
   Loop
End If
%>
</table>

[David_pop]

ok non da errori, però mi carica in tutte le tabelle la stessa identica immagine 30030502.jpg ...
Forse qualcosa non va nella query?:

if scelta=0 then
Recordset2.Source = "SELECT * FROM Prodotti WHERE TitoloProdotto='30030502'"