Salve a tutti,

sapete dirmi se questo script funziona su server Aruba ?

ho provato a verificarlo, ma inserendo il codice seguente ottengo solo il segnaposto per l'immagine senza riuscire a visualizzarla nel browser.

grazie.

<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
' METADATA SERVE PER IMPORTARE LE COSTANTI DI ADO2.5
Dim FileObject, FName, FExists
Set FileObject=CreateObject("Scripting.FileSystemObject")
'FName = Server.MapPath("foto/" & Session("ImgName"))

FName = Server.MapPath("/mdb-database/immagine_in_mdb-database.gif")
response.write FName


FExists=FileObject.FileExists (FName)

response.write "<p>"&FExists

Set FileObject=Nothing

FType = LCase (Right(FName, 4))

Select Case FType
Case ".jpg"
FType = "image/jpeg"
Case ".gif"
FType = "image/gif"
Case ".tif"
FType = "image/tiff"
Case ".png"
FType = "image/png"
Case ".bmp"
FType = "image/bmp"
Case else
FType = ""
End Select

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile FName

'Al browser
Response.ContentType = FType
Response.BinaryWrite objStream.Read

objStream.Close
Set objStream = Nothing
%>

Mi riesce difficile capire come questa pagina riesca a leggere in una cartella senza permessi di lettura...