Mi rivolgo ancora una volta agli esperti per la risoluzione di questo problema!
Devo estrarre dei record random e ordinarli in righe da 3 prodotti. esempio:
---
---
---
Se tolgo il codice per la sistemazione orizzontale dei prodotti, mi funziona benissimo il random. Quando inserisco il codice per sistemarli in orizzontale, niente da fare. Mi visualizza + prodotti di quelli che dovrebbero visualizzarsi.
Vi posto il codice.
<%
dim iItems()
iMaxItems = 3
Set connessione = Server.CreateObject("ADODB.Connection")
connessione.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/sicurdatabase.mdb")
Set miorecord = Server.CreateObject("ADODB.Recordset")
sql="select * from prodotti"
miorecord.Open sql, connessione, 1, 3
%>
'codice per l'estrazione random
<%
iMax = miorecord.recordCount
if iMax < iMaxItems then iMaxItems = iMax
reDim iItems(iMaxItems - 1)
for x = 0 to iMaxItems - 1
randomize()
i = int(iMax * rnd() + 1)
for y = 0 to uBound(iItems)
alreadyExists = false
if iItems(y) = i then
alreadyExists = true
x = x - 1
exit for
end if
next
if not alreadyExists then
iItems(x) = i
end if
next
if not miorecord.eof then
for each item in iItems
miorecord.moveFirst
miorecord.move item - 1
%>
<table id="home_table" cellspacing="0">
'codice per la disposizione orizzontale
<%conta = 0
do while not miorecord.eof
If conta = 3 Then
conta = 0
Response.Write "<tr>"
end if%>
<td><%response.write("<a href='scheda.asp?id=")
response.write(miorecord("id"))
response.write("'>")%>
[img]<%Response.Write(miorecord([/img]" />
<%response.write("</a>")%>
Prezzo: <s><%=(miorecord("prezzo"))%></s>
Offerta: <span class="scritta_rossa"><%= (miorecord("offerta"))%></span>
</td>
<%
'credo proprio che il problema stia proprio qui su next
miorecord.MoveNext
conta = conta + 1
loop
next
end if
%>
</tr>
</table>
SPERO CHE QULCN ACCETTERA' DI DARMI UNA MANO
VI RINGRAZIO.
Rispondi quotando
