Finns det något sätt att kolla hur bred en bild är innan den visas utan att behöva använda en komponent till detta?

Ja, storleken på bilden finns ju i själva bilden. I en gif-bild finns bredden på sjunde och åttonde byten. Så det är bara att du öppnar filen och läser av byte sju och åtta:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.OpenTextFile("en_gif_bild.gif")
offset = 7
contents = fil.read(offset + 1)
bredd = asc(mid(contents, offset, 1)) + asc(mid(contents, offset+1, 1)) * 256
fil.Close
Set fil = Nothing
Set fso = Nothing

Skulle det vara en jpg-bild har jag för mig att bildens bredd ligger på byte 166 och 167, så i så fall sätter du bara offset till 166 istället för 7.

Gif-formatet och några till finns det länkar till specar här http://www.tydal.nu/showCat.phtml?33

Tilläggas bör kanske att jag gissade att du kör på intel-processor. Skulle du ha någon risc av nåt slag eller nåt annat med big endian får du ändra ordningsföljden på bredd-raden till:

bredd = asc(mid(contents, offset+1, 1)) + asc(mid(contents, offset, 1)) * 256

(Om du skulle vara osäker så märker du det på att bredden inte stämmer.)

En god vän till mig har skrivit en funktion för att göra just detta.

Denna funktion finns att hämta på http://vvv.fatmilk.nu/script/script.asp?CategoryID=1&onPage=5&fdID=150