movenext e immagini da db

[David_pop]

Come posso prendere delle immagini da db con sql e scegliere quali.. esempio ora ho una pagina funzionante perche prendo le prime 6 e le inserisco nella pagina asp.. usando anche dopo ogni immagine:

<% if not rs.EOF then
rs.movenext
end if %>

però non so come fare per far prendere dalla 7 in poi ad esempio..
??

[lufo5]

fare un ciclo do...loop?

[optime]

no compriendo... 6 si', e 7 no? spiegati

[David_pop]

nel senso che nella prima pagina prendo le prime 6 immagini del db appartenenti alla categoria (altro campo) "xx".. poi nella seconda pagina .asp voglio inserire le immagini dalla 7 alla 12...

[optime]

cerca "paginazione" nel forum. trovi innumerevolissimi esempi

[David_pop]

tipo questa?

set conn = server.createObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")
sSQL = "SELECT * FROM prodotti WHERE Collezione = 'Sirio' ORDER BY id"
set rs = conn.execute(sSQL)
if not rs.eof then
cnt = 1
do until rs.eof
if cnt > 6 then
response.write rs("id") & "
"
end if
cnt = cnt + 1
rs.moveNext
loop
end if
rs.close
set rs = nothing

-----------------------------
però mi da errore "object required" nella riga:
<%= rs.collect("TitoloProdotto") %>

[Mems]

Originariamente inviato da David_pop
tipo questa?

set conn = server.createObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb")
sSQL = "SELECT * FROM prodotti WHERE Collezione = 'Sirio' ORDER BY id"
set rs = conn.execute(sSQL)
if not rs.eof then
cnt = 1
do until rs.eof
if cnt > 6 then
response.write rs("id") & "
"
end if
cnt = cnt + 1
rs.moveNext
loop
end if
rs.close
set rs = nothing

-----------------------------
però mi da errore "object required" nella riga:
<%= rs.collect("TitoloProdotto") %>

Infatti la riga dell'errore non sta in quel codice.

[David_pop]

beh ma ho da inserire anche "TitoloProdotto", "ImmagineProdotto", "Marchio"... cosa devo fare allora per inserirli nel codice?

[Mems]

<%
set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/db.mdb") 
sSQL = "SELECT * FROM prodotti WHERE Collezione = 'Sirio' ORDER BY id" 
set rs = conn.execute(sSQL) 
if not rs.eof then 
cnt = 1 
do until rs.eof 
if cnt > 6 then 
%>



<%=rs("TitoloProdotto")%>

<%=rs("Marchio")%>

</p>
<%
end if 
cnt = cnt + 1 
rs.moveNext 
loop 
end if 
rs.close 
set rs = nothing 
%>

[David_pop]

da come errore ora:

Microsoft VBScript runtime error '800a01a8'

Object required

/site/prodotti2.asp, line 253
--------------------------------

Line 253: <td colspan="2" valign="top"><%= rs.collect("TitoloProdotto") %></td>

--------------------------------

?