22 messaggi dal 22 maggio 2001
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.

================
<%@ 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)
%>

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.