[Resolvido] Problema com imagens

[Legionario-rs 0]

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

[Legionario-rs 0]

Olá,

 

Problema já solucionado, podem fechar o tópico.

 

Abraço, Legionário.