Image Size Demo


<html>
<head>
<title>Image Size Demo</title>
</head>
<body>
<blockquote>
<blockquote>
<p>
<br>
<br>
</p>


<%

    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")
  
  
  %>
  
  </blockquote>
  </blockquote>
  </body>
  </html>
</pre>