MoveNext non funziona.

[Rob2002]

Ciao ragazzi

ho 2 db access dai quali prenodo dal primo alcuni dati e da un altro un'immagine.
Quello che mi succede è che visualizzo sempre la prima immagine e la replica per tutti gli altri record che invece risultano esatti nei dati (forse non ho capito dove mettere il movenext)

vi posto il codice:

<%

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & server.mappath("/_private/db.mdb")

RecordsPerPagina = 10
page = Request("page")
if page="" then page=1
strRicerca = Request("ricerca")
Conn.Open (strConn)
Set rec = Server.CreateObject("ADODB.Recordset")
rec.open "select * from hotel WHERE abilitato = True order by ID DESC", conn, 3, 3


session("id") = rec.fields("id")

' paginazione
rec.PageSize = RecordsPerPagina
rec.AbsolutePage = page
If rec.Eof=True or rec.Bof=True then
Response.Write "

Sorry! There is no accommodation in this area. Plaese, go back and make new choice. Thanks.</P>"
Else
For i=1 to RecordsPerPagina
if Not rec.EOF then
'mostra record

%>


<%

Dim Conn, RS, SQL
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("/database/"& (session("ID") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM my"
RS.Open SQL, Conn
if not rs.eof then
IDfoto = rs.fields("codice")

%>

[img]/reserve/hotels/view_plus.asp?IDfoto=<%= RS([/img]" alt="<%= rec.fields("nome_struttura")%> " width="100" border="0"></a>

<% rs.movenext
end if
%>
<%

rec.MoveNext
end if
Next
End if
%>
<%
'Clean up...
RS.Close
Set RS = Nothing
Conn1.Close
Set Conn1 = Nothing
%>
<%
Response.Write "

Page: "
For pag=1 to rec.PageCount
Response.Write "<A href='all.asp?page=" & pag
Response.Write "&" & Server.UrlEncode(strRicerca)
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"
%>

Grazie per l'aiuto

[viki1967]

daje 'na spinta...

spiegati meglio... ma che devi fare ???

[Rob2002]

devo prelevare in loop un'immagine dal db solo che il db cambia riga x riga.

In altre parole e come se fosse un catalogo dove le descrizioni sono in un db (e quì tutto funzionagni riga ha il suo record esatto), l'immagine viene caricata da un altro db( e quì non funge perchè mi propone sempre la prima immagine)

... you know?

[viki1967]

Originariamente inviato da Rob2002
devo prelevare in loop un'immagine dal db solo che il db cambia riga x riga.

In altre parole e come se fosse un catalogo dove le descrizioni sono in un db (e quì tutto funzionagni riga ha il suo record esatto), l'immagine viene caricata da un altro db( e quì non funge perchè mi propone sempre la prima immagine)

... you know?

Osservazione:

1) hai un motivo preciso per utilizzare due db diversi, uno per la descrizione ed uno per le immagini. ?

[Rob2002]

Purtroppo si e non posso fare diversamente

[viki1967]

Originariamente inviato da Rob2002
Purtroppo si e non posso fare diversamente

Mi pare una cosa cervellotica onestamente... quando fai l'upload dell'immagine scrivi i dati in un db e carichi l'immagine all'interno di un altro db?

[Rob2002]

Si sono due fasi distinte pertanto non è così traumatico, ma nella visualizzazione ho bisogno di unire le info.

Cose da GURU

[viki1967]

Originariamente inviato da Rob2002
Si sono due fasi distinte pertanto non è così traumatico, ma nella visualizzazione ho bisogno di unire le info.

Cose da GURU

GURU ?

Quei pochi che conosco se ne guarderebbero bene di strutturare un'applicazione asp in questo modo... non è logico...

[Rob2002]

Può non essere logico Viki ma è un'esigenza e molte volte bisogna tapparsi il naso "pe campà".

Hai un suggerimento in merito al mio dilemma?

[viki1967]

qui secondo manca l'apertura e la chiusura di un ciclo:

<% 

Dim Conn, RS, SQL 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open "DBQ=" & Server.Mappath("/database/"& (session("ID") & ".mdb"))&";Driver={Microsoft Access Driver (*.mdb)};" 
Set RS = Server.CreateObject("ADODB.Recordset") 
SQL = "SELECT * FROM my" 
RS.Open SQL, Conn 
if not rs.eof then 
IDfoto = rs.fields("codice") 

%> 

[img]/reserve/hotels/view_plus.asp?IDfoto=<%= RS([/img]" alt="<%= rec.fields("nome_struttura")%> " width="100" border="0"></a> 

<% rs.movenext 
end if