<%
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
%>
