Ayuda al mostrar imagenes 
el problema es el siguiente no me muestra la foto tan solo me muestra la ruta de la foto. listaproducto.asp me tira todos los productos listados de a 5, espero que me puedan ayudar ya que es urgente, Blessed 
explico como esta la bd: tengo una tabla que se llama productos
la cual esta tiene 4 campos
id / 1
nombre / Strudel de Manzana
precio / 1000
foto / imagenes/productos/strudelmanzana.jpg
---------------------------------------------------
listaproducto.asp
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<h1><b> <font color="#1F45CB"><i> Productos</i></font></b></h1>
<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
mostrar = 5 ' Pueden modificar este número para cambiar la cantidad de registros por página
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("bd/vero.mdb")
Set rs = Server.CreateObject ("ADODB.RecordSet")
rs.PageSize = mostrar
rs.CacheSize = mostrar
sSQL = "SELECT * FROM productos"
rs.Open sSQL, oConn, 3, 3
oConn.execute(sSQL)
'contamos las páginas que se formaron con la variable mostrar.
cant_paginas = RS.PageCount
' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<FONT SIZE="+1">Página <B><%= pagina_actual %></B> de <B><%= cant_paginas %></B></FONT>
<%
' Espacios
Response.Write "<BR><BR>" & vbCrLf
%>
<center>
<TABLE border="1" bgcolor="#CECECE">
<%
Response.Write vbTab & "<tr bgcolor='#003399'>" & vbCrLf
Response.Write vbTab & "<td> <font face='Verdana' color='#ffffff' size='2'><b>Código <br>Producto</b></font></td>" & vbCrLf
Response.Write vbTab & "<td> <font face='Verdana' color='#ffffff' size='2'><center><b>Nombre Producto</center></font></td>" & vbCrLf
Response.Write vbTab & "<td width='90'> <font face='Verdana' color='#ffffff' size='2'><center><b>Precio $</b></center></font></td>" & vbCrLf
Response.Write vbTab & "<td width='90'> <font face='Verdana' color='#ffffff' size='2'><center><b>Foto</b></center></font></td>" & vbCrLf
' Hacemos el bucle mostrando los datos del registro
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><center>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop
'listo...
Response.Write "</TABLE>" & vbCrLf
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<a href="./listaproducto.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="./listaproducto.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<a href="./listaproducto.asp?eje=30&page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
End If
End If
'Fin...
%>
<table> <br><br>
</BODY>
</html>
