resolucion imagen

[orharo2003]

Ok. no entraré en detalles,

Set Jpeg = Server.CreateObject("Persits.Jpeg")

A esto se le llama hacer una instancia de un control Acive X

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'change as needed
Jpeg.Open "c:\path\image.jpg"

iQuality = 80

While LenB(Jpeg.Binary) > 150000 '150 kilobytes
iQuality = iQuality - 5 'a lower number will mean more iterations
Jpeg.Quality = iQualityWendJpeg.Save ...

%>