aiuto con le immagini

[simo75]

Salve gente !!!!

Non sono esattamente del giro, mi sono voluta cimentare con un qualcosa che è più grande di me, la mia missione è quella di creare una pagina asp che prende i dati da un database e li restituisce (compreso l'immagine)
Io riesco a restituire i campi con del testo, ma l'immagine proprio no !!!

il database continene tanti campi ma quelli da restituire sono:
articolo - testo
descrizione - testo
foto - testo (del tipo mix.jpg) immagini contenute nella cartella images

ho provato e riprovato tutti gli esempi che ho trovato in rete , ma le immaginini proprio non mi vogliono comparire, potere aiutarmi per favore ??
grazie in anticipo .........

simona

<%


Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/usato1.mdb")
Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open "select * from Prodotti order by id DESC", conn

Set rs = conn.Execute("SELECT * FROM Prodotti order by id DESC")
'WHERE ID=1")
Do while NOT RS.EOF
%>





<%

Dim articolo

articolo=rs("articolo")

response.write(articolo)

%>



<%

Dim descrizione

descrizione=rs("descrizione")

response.write(descrizione)

%>


<%
Dim objRsPRO
objRsPRO=rs("foto")
objRsPRO.MoveNext

[img]images/<%= objRsPRO ([/img]">
<%
Do while not objRsPRO.EOF

'Response.ContentType = "image/bitmap"
'Response.BinaryWrite (rs("img"))


RS.MoveNext
objRsPRO.MoveNext
Loop
RS.Close


conn.Close

Set conn=Nothing
set rs = Nothing

%>

[floyd46]

ciao
nel campo del DB hai scritto il percorso giusto delle immagini?

images/foto1.jpg ?

se dovessi avere ancora problemi, e se vuoi, mandami il DB non completo al 100% e ti reinvio la pagina asp con la visualizzazione delle immagini ed il testo associato.

ciao

[simo75]

Ciao e grazie per la risposta,

il percorso delle immagini è impostato correttamente nel db, tuttavia mi rende questo errore:

Errore di compilazione di Microsoft VBScript errore "800a0400'

Prevista istruzione

/provina/link24.asp, riga 46

<img src="images/<%= objRsPRO ("foto")
^

Scusa la mia totale ignoranza, ma come faccio ad inviarti il db ? tramite messaggio privato od altro ??

grazie
simona

[floyd46]

ciao
vai nel mio sito (in firma) ed inviami una email da lì con allegato "zip".

ciao

Scrivimi anche su quali campi fare il RecordSet, oltre quello delle immagini.

[Roby_72]

<% 


Dim Conn 

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("database/usato1.mdb") 
Dim rs 

Set rs = Server.CreateObject("ADODB.Recordset") 
'rs.Open "select * from Prodotti order by id DESC", conn 

Set rs = conn.Execute("SELECT * FROM Prodotti order by id DESC") 
'WHERE ID=1") 
Do while NOT RS.EOF 
%> 



 

<% 

Dim articolo 

articolo=rs("articolo") 

response.write(articolo) 

%>
 


<% 

Dim descrizione 

descrizione=rs("descrizione") 

response.write(descrizione) 

%>
 

<% 
Dim objRsPRO 
objRsPRO=rs("foto") 
'objRsPRO.MoveNext 
%>
[img]images/<%= objRsPRO%>[/img]
<% 
'Do while not objRsPRO.EOF 

'Response.ContentType = "image/bitmap" 
'Response.BinaryWrite (rs("img")) 


RS.MoveNext 
objRsPRO.MoveNext 
Loop 
RS.Close 


conn.Close 

Set conn=Nothing 
set rs = Nothing 

%>

C'è un po' di confuisione nel codice cmq ora dovrebbe funzionare. Il tag "img" è di HTML quindi devi prima chiudere ASP.

Roby

[simo75]

grazie 1000 ragazzi adesso funziona,
mi avete salvato .......

ciao , siete mitici !!!!!