Ir para conteúdo

POWERED BY:

Arquivado

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

casmestre

Mostrar Imagem

Por , em ASP Clássico

Recommended Posts

casmestre    0

casmestre
Postado

boas galera,

 

tenho uma base de dados com duas tabelas produtos e imagem

que estao relacionadas com o id de produto

 

para cada produto existe uma imagem

 

quando faço uma pesquisa aparece tudo o que esta relacionado com o respectivo produto menos a imagem, tou de certeza a fazer algo mal, alguem pode ajudar ?

 

codigo da pagina:

<%@ Language=VBScript CodePage=65001%><%Session.CodePage = 65001%><%set con_db= createoBJECT("ADODB.connection")con_db.provider = "Microsoft.Jet.OLEDB.4.0"con_db.connectionstring =" Data source=" & server.MapPath("bd1.mdb") & ";User id=;Password="con_db.openset rs = server.createobject("ADODB.recordset")SQLStmt= "select* from produtos"rs.open SQLStmt,con_dbtipo=request.querystring("tipo")subtipo=request.querystring("subtipo")set rsProduto = server.createobject("ADODB.recordset")if tipo = "" and subtipo = "" then	SQLStmt= "select* from novidades order by data desc"else	if subtipo <> "" then		SQLStmt= "select* from produtos where id_sub_tipo_produto=" & subtipo & " order by precovenda asc"	else		SQLStmt= "select* from produtos where id_tipo_produto=" & tipo & " order by precovenda asc"	end ifend ifrsProduto.open SQLStmt,con_dbset rstipo = server.createobject("ADODB.recordset")SQLStmt= "select* from tipo_produto order by tipo_produto"rstipo.open SQLStmt,con_dbset rssubtipo = server.createobject("ADODB.recordset")%><html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=utf-8"><title>Untitled Document</title><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=csKOI8R"></head><body><table border="0" cellpadding="0" cellspacing="0" width="960" height="137">  <tr>	<td width="138" height="137"><img border="0" src="imagens/a205.gif" width="140" height="140"></td>	<td width="650" height="137">	  <p align="center"><img border="0" src="imagens/logo COM NOME.JPG" width="722" height="103"></p>	  <p align="center">	  <marquee scrolldelay="150" width="699" height="19" style="font-family: Monotype Corsiva; text-transform: uppercase; font-weight: bold; font-size: 14pt">MUNDO      		  TECNOLÓGICO  --  MUNDO TECNOLÓGICO  --  MUNDO      		  TECNOLÓGICO  --  MUNDO TECNOLÓGICO  --  MUNDO      		  TECNOLÓGICO</marquee>	</td>	<td width="157" height="137"><img border="0" src="imagens/comp020.gif" width="140" height="140"></td>  </tr></table><table border="1" cellpadding="0" cellspacing="0" width="1025" height="68">  <tr>	<td width="1069" height="66" bgcolor="#0000FF">	  <p align="center"><font size="6" face="Monotype Corsiva" color="#FFFFFF"><b><i>MUNDO		  TECNOLÓGICO</i></b></font></td>  </tr></table><table border="1" cellpadding="0" cellspacing="0" width="1025" height="69" bgcolor="#BEC283">  <tr>	<td width="235" height="19" align="center"><b><font size="4" face="Monotype Corsiva"><u>EMPRESA</u></font></b></td>	<td width="226" height="19" align="center"><b><font size="4" face="Monotype Corsiva"><u>HISTORIA</u></font></b></td>	<td width="245" height="19" align="center"><b><font size="4" face="Monotype Corsiva"><u>QUALIDADE</u></font></b></td>	<td width="318" height="19" align="center"><b><font size="4" face="Monotype Corsiva"><u>SUPORTE</u></font></b></td>  </tr>  <tr>	<td width="235" height="46">	  <ul>		<li>		  <p align="justify"><a href="quem somos.htm"><font size="4" face="Monotype Corsiva">Quem		  Somos ?</font></a></li>		<li>		  <p align="justify"><a href="competencias.htm"><font size="4" face="Monotype Corsiva">Competências</font></a></li>		<li>		  <p align="justify"><a href="AREAS NEGOCIO.htm"><font size="4" face="Monotype Corsiva">Áreas			  de Negocio</font></a></li>		  </ul>	</td>	<td width="226" height="46">	  <ul>		<li><a href="historia.htm"><font size="4" face="Monotype Corsiva">Historia</font></a></li>	  </ul>	</td>	<td width="245" height="46">	  <ul>		<li><a href="qualidade.htm"><font size="4" face="Monotype Corsiva">Qualidade</font></a></li>	  </ul>	</td>	<td width="318" height="46">	  <ul>		<li>		  <p align="left"><font size="4" face="Monotype Corsiva"><a href="TECNICA.htm">Assistência			  Técnica</a></font></li>		<li>		  <p align="left"><font size="4" face="Monotype Corsiva"><a href="GARANTIAS.htm">Garantias</a></font></li>		<li>		  <p align="left"><font size="4" face="Monotype Corsiva"><a href="ENTREGA.htm">Entregas</a></font></li>	  </ul>	</td>  </tr></table><table border="1" cellpadding="0" cellspacing="0" width="1024">  <tr>	<td width="468"><img border="0" src="imagens/xgban1.gif" width="468" height="60"></td>	<td width="550"><span style="z-index: -3; position: absolute; left: 471px; top: 330; width: 564px"><img border="0" src="imagens/aneon4.gif" align="middle" width="562" height="74"></span></td>  </tr></table><table border="1" cellpadding="0" cellspacing="0" width="1025" bgcolor="#0000FF">  <tr>	<td width="424">	  <p align="center"><b><font color="#FFFFFF" size="5" face="Monotype Corsiva">FAMÍLIAS		  DE PRODUTOS</font></b></td>		<td width="605">	  <p align="center"><b><font color="#FFFFFF" face="Monotype Corsiva" size="5">DESTAQUES</font></b></td>  </tr></table><div align="right"><%if session("id") = "" then%>	<form name="form1" method="post" action="confirm.asp">	Username:<input name="user" type="text" id="user">	<br>	Password:<input name="pass" type="password" id="pass" value="">	<br>	<a href="contactos.asp">Register</a> 	<input name="Submit" type="submit" id="Submit" value="Log In"><br>	<%if request.querystring("log")="fail" then response.write "Username ou Password Invalido"%>	</form><%else%>		Benvindo!<br>		<a href="contactos.asp">Perfil</a><br>		<a href="end.asp">Log Out</a><br><br><%end if%><%if session("carro") <> "" and session("total") <> 0 then%>	<img src="imagens/carro.gif" width="47" height="37"><br>	Total: <%=session("total")%> €<br>	<a href="carrinho.asp">Ver Carrinho</a>	<br><%end if%></div><p><a href="produtos.asp"></a></p><table>	<tr>		<td width="292" valign="top"><%response.write("<ul type='circle'>")while not rstipo.eof	response.write("<li><a href='produtos.asp?tipo=" & rstipo.fields("id_tipo_produto") & "'>" & rstipo.fields("tipo_produto") & "</a></li>")	if cint(tipo) = cint(rstipo.fields("id_tipo_produto")) then		SQLStmt= "select* from sub_tipo_produto where id_tipo_produto=" & rstipo.fields("id_tipo_produto")		rssubtipo.open SQLStmt,con_db		response.write("<ul>")		while not rssubtipo.eof			response.write("<li><a href='produtos.asp?tipo=" & rstipo.fields("id_tipo_produto") & "&subtipo=" & rssubtipo.fields("id_sub_tipo_produto") & "'>" & rssubtipo.fields("sub_tipo_produto") & "</a></li>")			rssubtipo.movenext		wend		response.write("</ul>")	end if	rstipo.movenextwend	response.write("</ul>")rstipo.close%></td><td width="454" valign="top"><%while not rsProduto.eof%><a href="produto.asp?id=<%=rsProduto.fields("id_produto")%>">	<img src="" width="120" height="100" align="left">	Referência: <%=rsProduto.fields("ref")%><br>		Designação: <%=rsProduto.fields("designacao")%><br>		Preço: <%=rsProduto.fields("precovenda")%>€<br>		<%if rsProduto.fields("quantidade") > 0 then%>		Disponibilidade: Disponível<br>		<%else%>		Disponibilidade: Indisponível<br>		<%end if%>	Comentários: <%=rsProduto.fields("comentarios")%> </a><br><br>	<%	rsProduto.movenextwend%></td></tr></table><table width="18%" height="102" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr>	<td width="33%" height="100" bgcolor="#BEC283">	<p align="center"><b><font size="5" face="Monotype Corsiva" color="#0000FF"><a href="contacto.htm">Contacto </a></font></b></td>	<td width="67%" bgcolor="#FFFFFF"><a href="contacto.php"><img border="0" src="imagens/MCBD04914_0000[1].JPG" width="141" height="98" /></a></td>  </tr></table><table border="1" cellpadding="0" cellspacing="0" width="1025">  <tr>	<td width="82" align="center" bgcolor="#BEC283"><font size="4" face="Monotype Corsiva" color="#FFFFFF"><b><a href="../../../../mundotecno/webs/index.htm">Voltar</a></b></font></td>	<td width="99" align="center" bgcolor="#BEC283"><font size="4" face="Monotype Corsiva" color="#FFFFFF"><b><a href="../../../../mundotecno/webs/ucraniano.htm">Ucrânia</a></b></font></td>	<td width="105" align="center" bgcolor="#BEC283"><font size="4" face="Monotype Corsiva" color="#FFFFFF"><b><a href="../../../../mundotecno/webs/ingles.htm">Reino	  Unido</a></b></font></td>	<td width="109" align="center" bgcolor="#BEC283"><font size="4" face="Monotype Corsiva" color="#FFFFFF"><b><a href="../../../../mundotecno/webs/espanhol.htm">Espanha</a></b></font></td>	<td width="620" bgcolor="#BEC283">	  <p align="center">Av. Dr. Mateus Teixeira de Azevedo, Centro Comercial		  Gilão, Loja 2 - Tavira - Portugal </td>	  </tr>  <tr>	<td width="82" bgcolor="#BEC283"><a href="index.htm"><img border="0" src="imagens/ArrowPrev.png" align="center" width="82" height="61"></a></td>	<td width="99" bgcolor="#BEC283"><a href="ucraniano.htm"><img border="0" src="imagens/ucrania1.jpg" align="center" width="97" height="68"></a></td>	<td width="105" bgcolor="#BEC283"><a href="ingles.htm"><img border="0" src="imagens/inglaterra1.jpg" align="center" width="101" height="68"></a></td>	<td width="109" bgcolor="#BEC283"><a href="espanhol.htm"><img border="0" src="imagens/espanha1.JPG" align="center" width="106" height="68"></a></td>	<td width="620" bgcolor="#BEC283">	  <p align="center">mundotecnologico@mail.telepac.pt   		  /TELEFONE   / + 351 962 843 398    / FAX</td>	  </tr></table></body>

desde já obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

LiPe    0

LiPe
Postado

Olá,Amigo, você não está esquecendo de trazer o campo imagem? <img src="<%=rsTipo("ds_caminhoimagem")%>" width="100" height="100">

Compartilhar este post

Link para o post
Compartilhar em outros sites

casmestre    0

casmestre
Postado

Obrigado pela ajuda,

 

mas tenho outro problema, depois de tudo configurado aparece

 

ADODB.Recordset error '800a0cc1'

 

Item cannot be found in the collection corresponding to the requested name or ordinal.

 

/produtos.asp, line 192

 

 

será que configurei mal a linha para aparecer a imagem ?

 

podes dar mais uma ajudinha faz favor

 

tabela de produto em access:

 

id_produto ref designacao id_sub_tipo_produto preco quantidade comentarios precovenda1 ACESS001 XFX LOW PROFILE BRACKET FOR PVT44P/44A/44E/72P MATERIAL DVI 85 1 9999999 ACESSORIOS 8,98

2 ACESS002 HP DOCKING STATION PA286A 85 1 9999999 ACESSORIOS 253

 

tabela imagem em access:

 

id_imagem descricao localizacao produto_id

1 ACESS001 imagens/a205.gif 1

2 ACESS002 imagens/a205.gif 2

linha de apresentação da imagem

 

<img src="<%=rsProduto.fields("localizacao")%>" width="120" height="100" align="left">

 

as imagens sao iguais so para teste

 

desde já agradeço a ajuda

 

Casmestre

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

no rsProduto você está puxando os dados da tabela produtos e não imagem, você pode criarum outro recordset pra pegar a imagem conforme o ID do produto ou, dependendo da estrutura das tabelas, montar um recordset com juntando as tabelas com Inner Join

Compartilhar este post

Link para o post
Compartilhar em outros sites

casmestre    0

casmestre
Postado

Boas Galera,

 

Obrigado pela ajuda,

 

Mas alguem pode explicar como fazer um

 

Inner Join

 

Pois nao trabalho bem com bases de dados e nao sei como fazer isso

 

Agradeço desde já a ajuda

 

Casmestre

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

para fazer o inner join você precisa ter no minimo duas tabelas com uma coluna que relaciona as duas, abaixo um exemplo:

tabela produto(id,nome,valor)

tabela imagens(id,idproduto,pasta)

id=request.querystring("id")sql="select p.id,p.nome,p.valor,i.pasta from produto inner join imagens on p.id=i.idproduto where idproduto="&cint(id)&""
sendo que i=imagens e p=produto

entendendo no "portugues" fica assim:

seleciona os campos da tabela imagens e produtos e junte os registros quando o id da tabela produto for igual ao idproduto da tabela imagem somente os registros que tiverem o idproduto igual a X

 

isso vai retornar em uma cosulta todos os registros solicitados no select

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