<%@ import namespace="System.Drawing" %>
<%@ import namespace="System.Drawing.Imaging" %>
<script language="vb" runat="server">
Private Sub Page_Load()
  dim bm as BitMap
  try
    Response.Clear()
    bm= New Bitmap(Request.MapPath("cartella/immagine.jpg"))
    Dim encParams As EncoderParameters =  New EncoderParameters()
    '0 = minima qualità (immagine molto "sgranata")
    '100 = massima qualità (immagine "perfetta")
    Dim compressione As Integer =  50
    dim encParam as New EncoderParameter(Imaging.Encoder.Quality, compressione)
    encParams.Param(0) = encParam
    Dim imageCodecs() As ImageCodecInfo =  ImageCodecInfo.GetImageEncoders()
    Dim imageCodec As ImageCodecInfo =  Nothing
    Dim i As Integer
    For i = 0 to imageCodecs.Length- 1
      If imageCodecs(i).MimeType="image/jpeg" Then
        imageCodec = imageCodecs(i)
        Exit For
      End If
    Next

    'invio a video
    Response.ContentType="image/jpeg"
    bm.Save(Response.OutputStream, imageCodec, encParams)
  catch
    Response.Write ("Impossibile visualizzare l'immagine!")
  finally
    if not bm is nothing then bm.Dispose()
  end try
  
End Sub
</script>