Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ocjweb

[Resolvido] mostrar imagem

Por , em ASP Clássico

Recommended Posts

ocjweb    0

ocjweb
Postado

beleza galera oia eu aqui outravezzzz rsrs

 

tenho uma busca que me da o resultado tipo:

 

Nome da empresa descrição, web, e email e to querendo que me mostre tb o logo da empresa

a busca ta certinho agora só que ñ consigo mostrar o logo .

 

no banco de dados access esta gravado o caminho e agora ja tentei e ñ consegui quem poder me ajudar fico grato!!

 

O codigo é esse me ajudem!!! pois ñ sei onde colocar o que esta faltando

 

<%
Dim lista,cat_id,cid_id,lista_produtos,msgnada
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cid_id=Request.querystring("cid_id")
nome=Request.querystring("nome")

%>
<title>Aqui no ABC- O Grande ABC em um Clique!</title>
<style>
.res { FONT-SIZE : 12px; font-family : Verdana, Arial, Helvetica, sans-serif; font-style : normal; color: #000000;}
</style>
</head>
<body topmargin="0" leftmargin="0">
</htm>
<table border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td valign="top">
	  <table border="0" cellpadding="0" cellspacing="0" width="546">
		<tr>
		  <td valign="top"><table border=0 width=546>
			  <tr width=100%><td class="busca" width="539"><a name="topo">    </a></td></tr>
  <tr><td class="busca" width="539" valign="top">Resultado da Busca por:  <%=nome%>
	  <table border="0" cellpadding="0" cellspacing="0" width="546" height="12">
		<tr>
		  <td background="../Web1/backup_08_06_2009/images/bar_busc.gif"> </td>
		</tr>
	  </table>
	</td></tr>
<%
Select Case lista
Case "busca"
	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id LIKE '%"& cat_id &"%' AND cid_id LIKE '%"& cid_id &"%' AND nome LIKE '%"& descricaog &"%' AND disp='S' ORDER BY destaque")
	msgnada = "Infelizmente <b>não</b> localizamos nenhuma empresa com este ramo de atividade, localizada na cidade selecionada.<b>Tente buscar em outra categoria ou cidade.</b>"
Case Else
	%>
	<script>window.location="resultado.asp"</script>
	<%
End Select
If lista_produtos.EOF Then 
Response.Write "<tr><td class=res >" & msgnada & "</td></tr>"
Else 
%>
	<tr><td width=539>
		<hr size="1">
	  </td></tr>
	<tr><td width=539 valign="top">
	  <table border="0" cellpadding="0" cellspacing="0" width="547">
	<tr>
	<%
	Dim prod_cat_id,prod_cid_id,prod_id,prod_nome,prod_preco,prod_descricaop,prod_email,
prod_web,malha1
	malha1 = "sim"
	while not lista_produtos.EOF
		prod_cat_id = lista_produtos("cat_id")
		prod_cid_id = lista_produtos("cid_id")
		prod_id = lista_produtos("id")
		prod_nome = lista_produtos("nome2")
		prod_descricaop = lista_produtos("descricaop")
		prod_preco = lista_produtos("preco")
		prod_email = lista_produtos("email")
		prod_web = lista_produtos("web")
				%>	 
	  <td class=<%=malha1%> valign="top">
	  <div align="center">
		<center>
		<table border="0" cellpadding="0" cellspacing="0" width="535">
		  <tr>
		  <td></td>
		  </tr>
		  <tr>
								<td height="25" bgcolor="f2f2f2"><b><span style="text-transform: uppercase">  <%=prod_nome%></span></b></td>
		  </tr>
		  <tr>
			<td valign="top">
			  <table border="0" cellpadding="0" cellspacing="0" width="537">
				<tr>
				  <td width="396" valign="bottom">
					<table border="0" cellpadding="0" cellspacing="0" width="399">
					  <tr>
						<td width="397"></td>
					  </tr>
					  <tr>
											<td width="397" height="25"><span style="text-transform: uppercase"><%=prod_descricaop%></span></td>
					  </tr>
					  <tr>
											<td width="397" height="25"><span style="text-transform: uppercase"><%=prod_preco%></span></td>
					  </tr>
					  <tr>
						<td width="397"></td>
					  </tr>
					  <tr>
						<td width="397"><b>E-mail:</b> <a href="mailto:<%=prod_email%>"><%=prod_email%></a><br>
						  <b>Home Page:</b> <a href="<%=prod_web%>"><%=prod_web%></a></td>
					  </tr>
					</table>
				  </td>
				  <td width="131">										
				  </td>
				</tr>
			  </table>
			</td>
		  </tr>
		  <tr>
			<td valign="top">
			</td>
		  </tr>
		</table>
		</center>
		</div>
		<hr>
	  </td>
	</tr>
	<%
		lista_produtos.movenext
		If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	wend
End If
lista_produtos.Close
set lista_produtos = Nothing
%>
 </table>

	  </td></tr>
</table>
</td>
		</tr>
		<tr>
		  <td valign="top">
</td>
		</tr>
		<tr>
		  <td valign="top">
		<hr>
</td>
		</tr>
		<tr>
		  <td valign="top"> 
</td>
		</tr>
		<tr>
		  <td valign="top">
			<div align="center">
			  <center>
			  <table border="0" cellpadding="0" cellspacing="0">
				<tr>
						  <td><a href="#" onclick="java script:window.print();"><font face="Tahoma" size="1">IMPRIMIR
		RESULTADO</font></a></td>
				</tr>
			  </table>
			  </center>
			</div>
</td>
		</tr>
		<tr>
		  <td valign="top"><font face="Tahoma" size="4"> </font>
</td>
		</tr>
	  </table>
	</td>
  </tr>
</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

imagine um campo com o caminho da imagem, você pode fazer seu SELECT normalmente e depois

While not lista_produtos.EOF
<img scr="<%= lista_produtos("URL_imagem")%>">

sendo que:

 

URL_imagem, é o campo como caminho da imagem

Compartilhar este post

Link para o post
Compartilhar em outros sites

ocjweb    0

ocjweb
Postado

beleza xamburzum !

 

ta acho que entendi mas tenho que seta ela em mais algum lugar do codigo? tipo

while not lista_produtos.EOF

prod_cat_id = lista_produtos("cat_id")

prod_cid_id = lista_produtos("cid_id")

prod_id = lista_produtos("id")

prod_nome = lista_produtos("nome2")

prod_descricaop = lista_produtos("descricaop")

prod_preco = lista_produtos("preco")

prod_email = lista_produtos("email")

prod_web = lista_produtos("web"

PROD_IMAGEM=LISTA_PRODOTOS("IMAGEM")

 

ou é apenas <img scr="<%= lista_produtos("imagem")%>">

 

pois estou fazendo assim e ela ñ abre e o caminho no banco ta certinho

 

 

da uma olhada como fica no site: LINK

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

só assim ele ja abre, mas veja como esta o caminho no bd, e no link esta abrindo a imagem

amarela com letra PIC distribuidora de doces e afins

doces cursos embalagens (11) 4974-4942

Compartilhar este post

Link para o post
Compartilhar em outros sites

ocjweb    0

ocjweb
Postado

Opa xanburzum desculpe ñ ter respondido antes é que ta feio o negocio aqui , pois estou fazerndo a divulgação com carro de som, distribuição de pamfleto , vendendo os espaços no guia e ainda fazendo o site. então sabe como é ta corrido.

 

Mas agora ta funcionando normal era pau no servidor!

 

agradeço a ajuda!!!!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito