codice:
<% 


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