<% ' import all relevant namespaces %>
<%@ import namespace="System" %>
<%@ import namespace="System.Drawing" %>
<%@ import namespace="System.Drawing.Imaging" %>
<%@ import namespace="System.IO" %>
<script runat="server">

Function NewthumbSize(currentwidth, currentheight)
    dim tempMultiplier as Double
    tempMultiplier = request("width") / currentwidth
    dim NewSize as New Size(CInt(currentwidth * tempMultiplier), CInt(currentheight * tempMultiplier))
    return NewSize
End Function


Sub sendFile()
    dim g as System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath(request.Querystring("src")))
    dim thisFormat=g.rawformat
    dim thumbSize as New size
    thumbSize=NewthumbSize(g.width,g.height)
    dim imgOutput as New Bitmap(g, thumbSize.width, thumbSize.height)
    
    if thisformat.equals(system.drawing.imaging.imageformat.Gif) then
      response.contenttype="image/gif"
    else
      response.contenttype="image/jpeg"
    end if

    imgOutput.save(response.outputstream, thisformat) 

    g.dispose()
    imgOutput.dispose()
end sub

Sub sendError()
    dim imgOutput as New bitmap(1, 1, pixelformat.format24bpprgb)
    dim g as graphics = graphics.fromimage(imgOutput) 
    g.clear(color.white) 
    response.contenttype="image/gif"
    imgOutput.save(response.outputstream, imageformat.gif) 
    g.dispose()
    imgOutput.dispose()
end sub


</script>



<%
response.clear
  if request("src")="" then
    call sendError()
  else
    if file.exists(server.mappath(request("src"))) then
        call sendFile()
      else
        call sendError()
    end if
    
  end if
response.end
%>