AspJPEG - Como crio miniaturas dinâmicas de imagens para fazer Thumbnails?

Atenção: O código mencionado é somente um exemplo. Caso haja dúvidas quanto sua utilização, sugerimos que verifique juntamente a um desenvolvedor de sua confiança.
 
Esse exemplo cria uma miniatura dinâmica da imagem sem gravar essa miniatura no disco.
 
<%
Response.Expires = 0

'Seta objeto Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
 
'Abre o arquivo pelo caminho físico
Jpeg.Open("D:\http\cliente\web\imagem.jpg")
 
'Configura largura da imagem para 50px
Jpeg.Width = 50
 
'Mantém o tamanho da altura proporcional a nova largura
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
 
'Envia a imagem com o novo tamanho para o browser
Jpeg.SendBinary
 
'Libera objeto Jpeg
Set Jpeg = Nothing
%>