Displaying an Image's Dimensions

    Just thought I would share the solution I pulled my hair out hacking away to. While I am self-taught and have been able to do more than I ever thought I could ever accomplish with code, instances like this can be frustrating at times but I am also a bit stubborn when something gets in my way and usually find if I keep hacking away, I'll get it eventually!

   Researching into the syntax error, I figured it was the blocking point.  I can't explain the why's of why the original code wouldn't work or how I finally got the code to work but here it is!

I modified the original code of:

<%
dim iwidth, iHeight
sub ImgDimension(img)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img)  then exit sub
set myImg = loadpicture(img)
iwidth = round(myImg.width / 26.4583)
iHeight = round(myImg.height / 26.4583)
set myImg = nothing
end sub

ImgDimension(Server.MapPath("/images/techtraining/" & rs_TSR.Fields.Item("tsr_Img").Value))
%>

I removed these lines from the original code:

sub ImgDimension(img)

ImgDimension(Server.MapPath("/images/techtraining/" & rs_TSR.Fields.Item("tsr_Img").Value))

Removed all instances of "sub" that appeared in the original code

And modified the line from:

set myImg = loadpicture(img)

To:

set myImg = loadpicture(Server.MapPath("/images/techtraining/" & rs_TSR.Fields.Item("tsr_Img").Value))

And finally got this code to work inside my Repeat Region:

<%
dim iwidth, iHeight
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(img) then
set myImg = loadpicture(Server.MapPath("/images/techtraining/" & rs_TSR.Fields.Item("tsr_Img").Value))
iwidth = round(myImg.width / 26.4583)
iHeight = round(myImg.height / 26.4583)
set myImg = nothing
end If

%>

Then displayed the width dimension using:

<%= iwidth %>

To display the height use:

<%= iHeight %>

Merry Christmas and Happy New Year all!!

Andy

I tried the code on a different page on our Intranet and was able to get the following error message:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/ObsoleteStock.asp, line 176

sub ImgDimension(img)

^

Again, the code executes outside the repeat region but gives the error message when placed inside the repeat region.

Why doesn't this work in a repeating region?