<code>
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'FilStorlek'
/Hemsidor/Test/laddaupform.asp, line 28
</code>
Jag får detta problem när jag försöker vara klurig:
<code>
Response.Write"<br>Size: " & FilStorlek(objFile.Size) & " <br>Created: " & objFile.DateCreated


Sub FilStorlek(storlek)
Dim sstorlek
if storlek< 1024 then
sstorlek = storlek & " byte"

elseif storlek < 1048576 then
storlek = storlek /1024
storlek = Round(storlek, 2)
sstorlek = storlek & " kb"

elseif storlek < 1073741824 then
storlek = (storlek /1024)/1024
storlek = Round(storlek, 2)
sstorlek = storlek & " MB"
end if
FilStorlek = storlek
end sub
</code>
Jag blandar ju tal och sträng men kommer inate på hur jag skall göra.

När jag ändrade det till Function så kom jag på rätt spår.