Skulle behöva kolla en bilds höjd och bredd (pixlar)

Jag har hittat ett exempel här på pelles men det verkar som det slutar funka efter en viss storlek på bilden...skickar med koden nedan.

'**************************************************
Function GetPicSize (fn)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath(fn)) = False Then Exit Function
pn = Server.MapPath(fn)
tstr = ""
Set f = fso.OpenTextFile(pn)

Select Case UCase(Right(fn,4))
Case ".GIF",".JPG"
If Not f.AtEndOfStream Then
If UCase(Right(fn,4))=".GIF" Then
chars = f.read(10)
width = Asc(Mid(chars,8,1))*256 + Asc(Mid(chars,7,1))
height = Asc(Mid(chars,10,1))*256 + Asc(Mid(chars,9,1))
hw = " WIDTH=" & width & " HEIGHT=" & height
Else
chars = f.read(200)
height = Asc(Mid(chars,164,1))*256 + Asc(Mid(chars,165,1))
width = Asc(Mid(chars,166,1))*256 + Asc(Mid(chars,167,1))
If (height>600) Or (height<3) Or (WIDTH<3) Or (WIDTH>600) Then
Else
hw = " WIDTH=" & width & " HEIGHT=" & height
End If
End If
End If
GetPicSize = "W : " & width & " H :" & height
End Select
f.Close
Set f = Nothing
Set fso = Nothing
End Function
'**************************************************

Response.Write GetPicSize ("/bilder/test.jpg")

Har själv moddat koden så att den fungerar...

<code>
Function GetPicSize (fn)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath(fn)) = false then exit function
pn = Server.MapPath(fn)
tstr = ""
Set f = fso.OpenTextFile(pn)

Select Case UCase(Right(fn,4))
Case ".GIF",".JPG"
If NOT f.AtEndOfStream Then
If UCase(Right(fn,4))=".GIF" Then
chars = f.read(10)
width = asc(mid(chars,8,1))*256 + asc(mid(chars,7,1))
height = asc(mid(chars,10,1))*256 + asc(mid(chars,9,1))
hw = " WIDTH=" & width & " HEIGHT=" & height
Else
chars = f.read(200)
height = asc(mid(chars,164,1))*256 + asc(mid(chars,165,1))
width = asc(mid(chars,166,1))*256 + asc(mid(chars,167,1))
If (height>600) OR (height<3) OR (WIDTH<3) OR (WIDTH>600) Then
Else
hw = " WIDTH=" & width & " HEIGHT=" & height
End If
End If
End If
GetPicSize = "W: " & width & " H: " & height
End Select
f.Close
Set f = Nothing
Set fso = Nothing
End Function</code>



<code>Response.Write GetPicSize ("/bilder/test.jpg")</code>

Tack, men det funkar bara sen jag ändrat storleken på bilden i ett bildhanteringsprog. om jag bara kollar innan storleksändringen blir det bara W: 3084 H: 3084 ...??
Verkar funka bättre på .gif filer.