Redmensionar imágenes

Hola amigos, estoy tratando de redimensionar imágenes a partir de ado,
teniendo en cuenta que tengo en el server el componente aspjpeg. Lo
desarrollo facil con fso, pero no me sale a partir de una conexión ADO.
Tengo puesto:

<% Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("/fotos") & "\" & fileName
Jpeg.Open Path
Jpeg.Width = Jpeg.OriginalWidth / 4
Jpeg.Height = Jpeg.OriginalHeight / 4

Dim Connz,listadoz, consulta
Set Connz=Server.CreateObject("adodb.connection")
Set listadoz=Server.CreateObject("adodb.recordset")
Connz.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" &
Server.Mappath("base.mdb")
consulta ="Select * From imagenes Where UCase(imagenurl)='" & UCase(path) &
"'"
listadoz.Open consulta,Connz,2,2
While Not listadoz.EOF %>
<p><img border="0" src="<%=listadoz.fields("imagenurl")%>"
width="<%=("Jpeg.Width")%>" height="<%=("Jpeg.Height")%>"></p>
<% listadoz.MoveNext
Wend
listadoz.Close
Connz.close %>

Lo que no sé es lo que me falla.