Problema Immaigni Listino

[mad_77]

Ciao a tutti,
sono nuovo del forum e non sono molto pratico di asp....quindi vi chiedo una mano!!!
Ho realizzato un listino prezzi per un b&b in cui si visualizza una tabella con i testi e le relative immagini. Il problema è che dal pannello di amministratione riesco ad inserire dati e foto (che vengono regolarmente caricate in remoto), ma nel visualizzare la pagina risultano i dati di tutti gli alloggi ma viene pubblicata solo la prima foto. Vi posto cmq la parte di codice relativa:

<table>

<%w_Open="Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(w_Path)
Set DBA= Server.CreateObject("ADODB.Connection")
DBA.Open w_Open
sqltext = "SELECT * FROM Listino_village "
Set rDBA= Server.CreateObject("ADODB.Recordset")
rDBA.Open sqlText,DBA,1,3

For i = 1 to 9
If rDBA.EOF Then
Exit for
end if%>

<tr>
<td colspan="2" style="border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA;; border-left: dotted 1px #CACACA" align="left">
<font color="#FFFFFF"><%=rDBA.Fields("Denominazione")%></font></td>
<td width="53" style=" border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA"><center>
<font color="#FFFFFF">N. Posti</font></center></td>
<td width="62" style="border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA"><center>
<font color="#FFFFFF">Bassa Stgione</font></center></td>
<td width="62" style="border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA"><center>
<font color="#FFFFFF">Media Stagione</font></center></td>
<td width="62" style="border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA"><center>
<font color="#FFFFFF">Alta Stagione</font></center></td>
</tr>
<tr>
<td width="94" rowspan="3" align="center" valign="middle"
style="border-right: dotted 1px #CACACA; border-top: dotted 1px #CACACA; border-left: dotted 1px #CACACA">
[img]../public/uploaded/<%=rDBA.Fields([/img]" /></td>
<td width="273" rowspan="3" align="left" valign="top"
style="border-right: dotted 1px #CACACA;border-top: dotted 1px #CACACA">
<%=rDBA.Fields("Descrizione")%></td>
<td align="center" valign="middle" style="border-right: dotted 1px #CACACA;border-top: dotted 1px #CACACA">
<%=rDBA.Fields("Posti")%></td>
<td width="62" height="33%" align="center" valign="middle" style="border-right: dotted 1px #CACACA;border-top: dotted 1px #CACACA">
<%=rDBA.Fields("Bassa_Stagione")%></td>
<td width="62" height="33%" align="center" valign="middle" style="border-right: dotted 1px #CACACA;border-top: dotted 1px #CACACA">
<%=rDBA.Fields("Media_Stagione")%></td>
<td height="33%" width="62" align="center" valign="middle" style="border-top: dotted 1px #CACACA; border-right: dotted 1px #CACACA">
<%=rDBA.Fields("Alta_Stagione")%></td>
</tr>
<tr>
<td colspan="6" height="35" style="border-top: dotted 1px #CACACA" align="left">
<%=rDBA.Fields("Note")%>


</td>
</tr>

<% rDBA.MoveNext
Next
rDBA.close
DBA.Close
Set rDBA = Nothing
Set DBA = Nothing%>

</table>

Qualcuno sa dirmi dove sbaglio?
Grazie

[Roby_72]

Verifica che le immagini si chiamino effettivamente "_0" & i & ".jpg

Roby

[mad_77]

Ciao Roby,
le immagini vengono rinominate regolarmente...ma non capisco dove è il problema!!!

[mad_77]

Cmq Roby ti preciso che riesco a visualizzare solo la 1a foto di due tabelle, mentre se cambio la i (i= 0 to 9) vedo solo la seconda e la terza foto. Come mai?
grazie

[Roby_72]

La FOR/NEXT ti serve per scorrere i campi di uno stesso record?
Mi sembra manchi qualcosa...

DO WHILE NOT rDBA.EOF
....
FOR 
...
...
NEXT
...
rDBA.MOVENEXT
LOOP

Roby

[mad_77]

Ho provato ma niente!!

La cosa strana è che le immagini sono state caricate sia nella cartella che nel db. Se inserisco <img src...> non me le fa visualizzare, ma se richiamo solo la foto con <%...%> leggo il nome. Credo che il codice postato inizialmente mi faccia solo vedere tutti i testi e mi blocchi la visualizzazione delle foto (ad eccezione della prima).

[Roby_72]

Se la for ha il senso che immagino io, ovvero per recuperare le 9 immagini in 9 campi di ogni record allora la devi mettere solo per recuperare le immagini, non gli altri campi

DO WHILE NOT rDBA.EOF
rDBA.Fields("Denominazione")
... posti
... Bassa Stgione
... ecc.

FOR ' Solo per le 9 immagini
...
...
NEXT
...
rDBA.MOVENEXT
LOOP

Roby

[mad_77]

Problema risolto!!!
Grazie del consiglio...sbagliavo la posizione del "for" e dovevo dividere "rDBA" per le foto da quello dei testi!
Grazie ancora per l'aiuto.

[mad_77]

Mi sbagliavo!!!
Le tabelle sono due e sono collegate a due diverse tabelle del db. Ti posto cmq il codice inserito....magari ho ancora sbagliato qualche posizione!

.......

<%w_Open="Provider=Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(w_Path)
Set DBA= Server.CreateObject("ADODB.Connection")
DBA.Open w_Open
sqltext = "SELECT * FROM Listino_village "
Set rDBA= Server.CreateObject("ADODB.Recordset")
rDBA.Open sqlText,DBA,1,3%>

<%Do while not rDBA.EOF%>

<tr>
<td>....</td>
</tr>
<tr>
<td>

<%For i= 1 to 1
If Esiste("public/uploaded/" & rDBA.Fields("immagine") & "_0" & i & ".jpg")<>"" Then
Exit for
End if%>

[img]../public/uploaded/<%=rDBA.Fields([/img]"></td>

<%Next%>

<td>.......</td>
</tr>

<%rDBA.MoveNext
Loop
rDBA.close
DBA.Close
Set rDBA = Nothing
Set DBA = Nothing%>
.........

Considera che sotto questa tabella c'è un'altra quasi uguale, cambia solo "sqltext = "SELECT * FROM Listino_camping ".
Come mai la prima va bene e la seconda no?
Ti ringrazio anticipatamente.

[Roby_72]

Forse perché hai chiuso la connessione?

Roby