HOLA ENGONGA
prueba esto si funciona me avisas
<%
dim f1, w, h, c, strType, Path
Path = server.MapPath("c:\")
response.write "<table border=""1"" cellpadding=""5"">"
sql = "select * from imagenes order by nombre_imagen"
set rs = db.execute(sql)
do while not rs.eof
if instr(ucase(rs("nombre_imagen")), ".GIF") then
response.write "<tr><td>" & rs("nombre_imagen") & "</td><td>?</td><td>?</td><td>"
if gfxSpex(Path, w, h, c, strType) = true then
response.write w & " x " & h & " " & c & " colors</td>"
response.write "<td><img src=""" & Path & """ " & _
ImageResize(Path, 75, 45) & " border=""1""></td>"
else
response.write " </td><td align=""center"">bad image</td>"
end if
response.write "</tr>"
end if
rs.movenext
loop
response.write "</table>"
%>