Avevo inserito questo messaggio nel forum asp ... ma probabilmente lì era un pò OT

Ciao a tutti,
ho "ricavato" questo codice seguendo le tracce dei vari suggerimenti di aspitalia ma qualcosa non funziona
1) il codice non visualizza tutte le immagini ma solo la prima
2) non viene visualizzato il messaggio di testo con Response.Write (è un problema di ContentType????)

La tabella (del database) da cui legge ha 4 campi: FileName, FileSize, ContentType, FileData

Cosa ho combinato? La realizzazione la controllo tramite il personal web server installato sul mio pc però non posso affidarmi all'SQL, il provider a cui sono appoggiato non lo supporta.

biz

================
<%@ Language=VBScript %>
<%
sub MostraImmagine(image)

dim db,rs,dbfile

set db= Server.CreateObject("ADODB.Connection")
dbfile = Server.MapPath("/database") & "\upload.mdb"
db.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbfile & ";"

set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "upload",db,2,2

Do while rs.EOF = false
Response.ContentType = "image/gif"
PicSize = Rs("FileSize")
Pic = Rs("FileData")
Response.BinaryWrite Pic
Response.ContentType = "text/HTML"
Response.Write("ciao")
rs.MoveNext
loop
RS.Close
end sub

'========= MAIN ===========================

Call MostraImmagine(3)
%>