ServerObjects ImageSize

Sample Code:

<%
  Dim Img

  sub CheckFile (strFileName)
    set Img = Server.CreateObject ("ImgSize.Check")
    Img.FileName = strFileName
    if Img.Error <> "" then
      Response.Write "An error occurred in processing this image.<br>"
      Response.Write "The error was: <b>" & Img.Error & "</b>"
    else
      Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
      Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
      Response.Write "Image Width  = <b>" & Img.Width & "</b></p>"
    end if

    set Img = nothing
  end sub

  CheckFile ("d:\inetpub\wwwroot\images\569.jpg")
  CheckFile ("d:\inetpub\wwwroot\images\cloudy.jpg")
  CheckFile ("d:\inetpub\wwwroot\images\chart1.bmp")
  CheckFile ("d:\inetpub\wwwroot\images\aspdevlogo.gif")
  CheckFile ("d:\inetpub\wwwroot\images\write.gif")
  CheckFile ("d:\inetpub\wwwroot\images\smpchrt1.png")
  CheckFile ("d:\inetpub\wwwroot\images\toast.png")

%>