Serverside skalering af billeder hentet fra MSSQL DB

Jeg har en kæmpe bunke billeder liggende binært i en MSSQL 2000, database. Det er også meget fint, men jeg er træt af ikke at kunne vise en lille version, før man skal hente billedet i fuld opløsning.

Er der nogen som kender til et komponent eller en fancy funktion, der kan skalere et billede fra en database realtime?

For at se hvordan det ser ud pt. så kan du kigge her: http://mdj.dk/?page=pictures

Koden til at generere billedet er denne:

<%
Dim Image
Set myConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")


myConn.Open data
strSQL = "SELECT image FROM Images WHERE ID =" & request.QueryString("id")

rs.Open strSQL, myConn, 1
If Not rs.EOF Then
    strImage = rs("Image")
    Response.BinaryWrite strImage
Else
    Response.redirect("pictures/default.asp?reason=notfound")
End If
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.End
%>