pues creo que te equivocas mirate esto
Cita: The following code snippet attempts to retrieve the X and Y resolutions from an arbitrary image:
<%
path = "c:\path\image.jpg"
jpeg.Open(path)
XRes = jpeg.OriginalResolutionX
YRes = jpeg.OriginalResolutionY
If XRes = 1 and YRes = 1 Then
' Look among EXIF tags
Set Info = jpeg.OpenInfo(path)
If Info("XResolution") <> "" Then
XRes = Info("XResolution")
YRes = Info("YResolution")
Else
Response.Write "Resolution info not found."
End if
End If
%>
To set new resolution, use the properties ResolutionX and ResolutionY, as follows:
...
Jpeg.ResolutionX = 72
Jpeg.ResolutionY = 72
...
Jpeg.Save path