Ændre billedstørrelse med FSO eller uden komponent

Hej!

Jeg er gang med et billedvisningssystem. Systemet går ud på, at et billede, der eksempelvis har målene 600px gange 550px, bliver vist i en iframe, der har målene 500px gange 500px. Billedet er jo - i dette tilfælde - større end iframen, hvilket jo betyder, at der må scrollbars til. Men dette vil jeg gerne undgå, så derfor vil jeg gerne have, at billedet bliver ændret til at være 500px i width og 458px i height, så målene passer sammen.

Jeg vil ikke lavet et nyt billede med disse mål, men i stedet bare beholde det gamle billede, der bliver "trykket" ind ved hjælp af width="500" og height="458".

Jeg har prøvet nogle forskellige komponenter, men uden held, så derfor vil jeg gerne høre, om det er muligt FileSystemObject eller helt uden nogen form for komponent.

Hvis det er muligt, hvordan laver man det så?

--------------------------------------------------

Min nuværende kode ser sådan ud:

<%
ImageDir = "img_iframe/"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

intPhoto = Request.Querystring("photo")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 1
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
%>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="100%" style="background-color: #7E5C2A;" align="center" valign="middle">
<img src="<% = ImageDir %><% = Image.Name %>" border="0">
</td>
</tr>
</table>
<%
End If
Next

Set objFS = Nothing
%>

--------------------------------------------------

Jeg håber, der nogen, der kan hjælpe mig.

På forhånd tak.