salve
qualcuno m sa dire com emai sto fetente di script nn mi funziona???
mi da errore sulle righe in verde!
in qualunque modo le scriva o le dichiari mi da errore :°°°




<%@Import Namespace="System.Drawing.Imaging" %>
<script language="VB" runat="server">
Function ThumbnailCallback() as Boolean
Return False
End Function


Sub Page_Load(sender as Object, e as EventArgs)

'Read in the image filename to create a thumbnail of
Dim imageUrl as String = Request.QueryString("img")

'Add on the appropriate directory
imageUrl = "/public/mangaphotoalbum/file/" & imageUrl


Dim fullSizeImg as System.Drawing.Image
fullSizeImg = System.Drawing.Image.FromFile(Server.MapPath(image Url))

if fullSizeImg.Height > fullSizeImg.Width then
Dim imgWidthNew as Integer = 100
imgHeightNewTemp = (fullSizeImg.Width * 100) / fullSizeImg.Height
Dim imgHeightNew as Integer = imgHeightNewTemp
else
imgWidthNewTemp = Fix((fullSizeImg.Height * 100) / fullSizeImg.Width)
Dim imgWidthNew as Integer = imgWidthNewTemp

Dim imgHeightNew as Integer = 100
end if

'Do we need to create a thumbnail?
Response.ContentType = "image/gif"
If imgWidthNew > 0 and imgHeightNew > 0 then
Dim dummyCallBack as System.Drawing.Image.GetThumbNailImageAbort
dummyCallBack = New System.Drawing.Image.GetThumbnailImageAbort(Addres sOf ThumbnailCallback)

Dim thumbNailImg as System.Drawing.Image
thumbNailImg = fullSizeImg.GetThumbnailImage(imgWidthNew, imgHeightNew, dummyCallBack, IntPtr.Zero)

thumbNailImg.Save(Response.OutputStream, ImageFormat.Gif)
thumbNailImg.Dispose()
Else
fullSizeImg.Save(Response.OutputStream, ImageFormat.Gif)
fullSizeImg.Dispose()
End If

End Sub

</script>