<%
' Cria uma instância do controle
Set ImageSize = Server.CreateObject("ImgSize.Check")
' Carrega a imagem
ImageSize.FileName = Server.MapPath("imagem.jpg")

If (ImageSize.Error = "") Then
  Response.Write "Largura: " & ImageSize.Width & "
"
  Response.Write "Altura: " & ImageSize.Height & "
"
Else
  Response.Write "Erro: " & ImageSize.Error
End If
' Tira o objeto da memória
Set ImageSize = Nothing
%>