ASPImage

Hejsa

Jeg har et problem med ASPImage.. Det jeg bruger den til er at resize JPG billeder...

Hvis jeg har har billedet til at ligge på mit webhotel køre det fint nok.. Problemet er bare at mine billeder ligger i min Access Database..

Så det der skal ske er at den trækker billedet ud, resizer det, og viser det på siden..

Her er min ASP fil som burde gøre det.. Ved godt at den ikke virker.. Men hvordan tilretter jeg den så den virker ?

''''''' ASP '''''''
<!--#include file ="../conn.asp"-->
<%
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDB

ImageID = Request.Querystring("ImageID")

SQL = "SELECT * FROM Products WHERE where ID=" & ImageID
set RS = Conn.Execute(SQL)

if not RS.eof then
    ' Clear out the existing HTTP header information
    Response.Expires = 0
    Response.Buffer = TRUE
    Response.Clear

    ' Change the HTTP header to reflect that an image is being passed.
    Response.ContentType = RS("mimetype")
    Response.BinaryWrite RS("bindata")
end if

    Response.ContentType = "image/jpeg"

    strPicture = Request.QueryString
    Set Image = Server.CreateObject("AspImage.Image")

    Image.LoadImage Server.MapPath(strPicture)

    intRatio = ((75 * 100) / Image.MaxX)
    intNewY = CInt(Image.MaxY * (intRatio / 100))
    Image.ResizeR 75, intNewY
    Image.ImageFormat = 1

    Response.BinaryWrite Image.Image
    Set Image = nothing   
%>
'''' ASP SLUT '''''''

Hvordan kan jeg gøre dette ?