Kan man göra en if sata av denna?

Kan man göra med hjälp av en if sats så att denna kod gör bilden ex 520 bred om bilden är 520 eller bredare!? Om den är mindre än 520 så ska den bli den storlek som den är. Hoppas på hjälp

<%Response.Write GetPicSize("pics\aibo_wallpaper1_1024x768.jpg")

Function GetPicSize(FN)
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(FN)) = False Then Exit Function
PN = Server.MapPath(FN)
Set File = FSO.OpenTextFile(PN)

Select Case UCase(Right(FN,4))
Case ".GIF",".JPG"
If NOT File.AtEndOfStream Then
If UCase(Right(FN,4))=".GIF" Then
chars = File.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))
Else
chars = File.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))
End If
End If
GetPicSize ="<img src=" & FN & " border=1><p>Bilden är <b>" & width & "</b> px bred och <b>" & height & "</b> px hög.<br>"
End Select
File.Close
Set File = Nothing
Set FSO = Nothing
End Function%>