<%
strFileName = "image.gif"
set Img = Server.CreateObject ("ImgSize.Check")
Img.FileName = strFileName
if Img.Error <> "" then
Response.Write "An error occurred in processing this image.
"
Response.Write "The error was: " & Img.Error & ""
else
Response.Write "

Image " & strFileName & " successfully read.
"
Response.Write "Image Height = " & Img.Height & "
"
Response.Write "Image Width = " & Img.Width & "
"
end if
set Img = nothing

%>