<%
Response.Expires = 0 'Seta objeto Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Abre o arquivo pelo caminho físico protegido (pasta dados)
Jpeg.Open("E:\dados\cliente\imagem.jpg")
'Envia a imagem com o novo tamanho para o browser
Jpeg.SendBinary
'Libera objeto Jpeg
Set Jpeg = Nothing
%> |