list($width, $height) = getimagesize($path.$fichier);

1.
Function GetPicSize (fn)
2.
Set fso = CreateObject("Scripting.FileSystemObject" )
3.
If fso.FileExists(Server.MapPath(fn)) = False Then Exit Function
4.
pn = Server.MapPath(fn)
5.
tstr = ""
6.
Set f = fso.OpenTextFile(pn)
7.

8.
Select Case UCase(Right(fn,4))
9.
Case ".GIF",".JPG"
10.
If Not f.AtEndOfStream Then
11.
If UCase(Right(fn,4))=".GIF" Then
12.
chars = f.read(10)
13.
width = Asc(Mid(chars,8,1))*256 + Asc(Mid(chars,7,1))
14.
height = Asc(Mid(chars,10,1))*256 + Asc(Mid(chars,9,1))
15.
hw = " WIDTH=" & width & " HEIGHT=" & height
16.
Else
17.
chars = f.read(200)
18.
height = Asc(Mid(chars,164,1))*256 + Asc(Mid(chars,165,1))
19.
width = Asc(Mid(chars,166,1))*256 + Asc(Mid(chars,167,1))
20.
If (height>600) Or (height<3) Or (WIDTH<3) Or (WIDTH>600) Then
21.
Else
22.
hw = " WIDTH=" & width & " HEIGHT=" & height
23.
End If
24.
End If
25.
End If
26.
GetPicSize = "W : " & width & " H :" & height
27.
End Select
28.
f.Close
29.
Set f = Nothing
30.
Set fso = Nothing
31.
End Function