[Resolvido] Problema com imagens

Boa noite!

<link rel=stylesheet href=loja.css type=text/css>
<table border=0 width=100% cellspacing="0" cellpadding="10">

<%
Dim lojaDB
set lojaDB = Server.CreateObject("ADODB.Connection")
lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\Projetos\Lojas Adri\Projeto Lojas Adri\banco\loja.mdb"
lojaDB.open
%>

<%
Dim lista_produtos,malha1,temp1,lista_categoria,lista,cat_id

Select Case Request.QueryString("lista")
	Case "busca"
 Select Case Request.QueryString("campo")
 Case "todos"
 set lista_categoria = lojaDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("procurar") & "%'")
 If lista_categoria.EOF Then cat_id = "a" Else cat_id = lista_categoria("id") End If
 set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE id LIKE '%" & Request.QueryString("procurar") & "%' OR cat_id LIKE '%" & cat_id & "%' OR cat_id LIKE '%" & Request.QueryString("procurar") & "%' OR nome LIKE '%" & Request.QueryString("procurar") & "%' OR descricaop LIKE '%" & Request.QueryString("procurar") & "%' OR descricaog LIKE '%" & Request.QueryString("procurar") & "%' OR preco LIKE '%" & Request.QueryString("procurar") & "%' OR imagem LIKE '%" & Request.QueryString("procurar") & "%' OR disp LIKE '%" & Request.QueryString("procurar") & "%'")
 Case "cat_id"
 set lista_categoria = lojaDB.Execute("SELECT id FROM categorias WHERE nome LIKE '%" & Request.QueryString("procurar") & "%'")
 If lista_categoria.EOF Then cat_id = "a" End If
 set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id LIKE '%" & cat_id & "%'")
 Case Else
 set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE " & Request.QueryString("campo") & " LIKE '%" & Request.QueryString("procurar") & "%'")
 End Select
 If lista_produtos.EOF Then
 %>
 <tr width=100%><td width=100%><h5>Nenhum resultado para esta pesquisa!</h5></td></tr>
 <%
 lista = "nao"
 End If
	Case "order"
 set lista_produtos = lojaDB.Execute("SELECT * FROM produtos ORDER BY "& Request.QueryString("orderby") & " " & Request.QueryString("ord"))
 If lista_produtos.EOF Then
 %>
 <tr width=100%><td width=100%><h5>Nenhum resultado para esta pesquisa!</h5></td></tr>
 <%
 lista = "nao"
 End If
	Case Else
	lista = "nao"
End Select

If Not (lista = "nao") Then
%>

	<table border=0 width="100%" cellspacing="20" cellpadding="10">
	<%
	malha1 = "sim"
	temp1 = 0
	Do While not lista_produtos.EOF
	set lista_categoria = lojaDB.Execute("SELECT nome FROM categorias WHERE id=" & lista_produtos("cat_id"))
	%>
 <tr width=100% class=<%=malha1%>><td align=center><a href="detalheprod.asp?prod_id=<%=lista_produtos("id")%>">
 <img src='images/<%=imagem%>' width="100" border=0 alt="Clique no produto para ver sua descrição"></a></td>
 <td><%
 If lista_categoria.EOF Then
 %>
 <font color=red><b>Sem Categoria</b></font>
 <%
 Else
 End If
 %>
 <b>Departamento: <%=lista_categoria("nome")%><br><br><b><%=lista_produtos("nome")%><br><font color=red><b> por apenas R$ <%=formatnumber(lista_produtos ("preco"),2)%></td>

	<%
	temp1 = temp1 + 1
 lista_produtos.MoveNext
	If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	Loop
	%>
	</table>
	<tr width=100%><td><font size=1 face=verdana color=white>aaaa<font size=2 face=verdana color=black><b>Total de produtos no catalogo Lojas Adri: <%=temp1%></td></tr>
	<%

End If
%>

</font>
</table>

As imagens não aparecem não importa o que eu faça. tentei diversas variações como na linha 54 './images/<%=imagem%>', '../images/<%=imagem%>' e nada funciona já estou apavorado e não tem jeito de conseguir fazer funcionar.

Agradeço a quem puder ajudar...

Legionario