Set objImg = LoadPicture(FilePath)
x1 = objImg.Width
y1 = objImg.Height
‘response.write x1
if(x1 > 5800)then
x2 = 580
y2 = 580
if x1 >= y1 then
y2 = cint((y1 * x2) / x1)
else
x2 = cint((x1 * y2) / y1)
end if
response.write “
”
else
response.write “
”
end if
set objImg = nothing
Related Posts
Comments
Powered by Facebook Comments
1