Komprimering av bild preview

Med koden

		<b>Mappe:</b> <i>R:\Rep-Ombygningsordre igangværende i værksted\<b><%=RS("billeder")%></b>\*.*</i><br><br>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\turbo9\arkiv\Rep-Ombygningsordre igangværende i værksted\" & RS("billeder") & "")
set Files = Folder.Files
For each Item In Files
if lcase( right( Item.Name, 3 ) ) = "jpg" then
Response.Write "<a href="""&folder&"\"&Item.Name&""" target=""new""><img src="""&folder&"\"&Item.Name&""" width=""100"" hspace=""5"" border=""2""></a>"
End if
Next
%>

Hämtar jag alla bilder i den specificerade mappen (som sagt i tidigare trådar).
När varje bild ligger på nästan 1Mb så blir det lite segt att öppna sidan på de få ställen som fortfarande kör med BNC här i firman. Kan man öppna en optimerad version av bilden på något sätt? För jag behöver ju faktiskt bara en bild som är 100 i Width till preview:n och då behöver den ju inte öppna 647 i width och sedan trycka ihop detta till 100. Det tar dessutom en stund för nätverksskrivarna att behandla detta när varje jobb kanske blir på 8Mb

Finns det några scripts eller ideér till detta? :birp