BD Access e Select

[giuliano 0]

Olá consegui uns arquivos na web no qual tenho um cadastro com duas tabelas diferentes Anunciantes e Anuncios

 

Tabela Anunciantes:

id_anunciante

.

.

imagem_logo

 

Tabela Anuncios

 

id_anuncio

id_departamento

.

.

.

Bom estou tentando exibir encima dos resultados das páginas a logo do Anunciantes porem quando o resultado retorna a logo vem sempre trocada nunca do anunciante que foi clicado. Vou colocar o codigo da pagina que clica no anunciante e da pagina que exibe os resultados para ver se alguem me dar uma luz. Obrigado!

 

Página frame_anunciantes.asp

 

<%
Set RS = Server.CreateObject("ADODB.Recordset")

Set Rs_count = Conexao.execute("Select Count(id_anunciante) As Total From Anunciantes where status_permissao = 's'")
Total_Anunciante =  Rs_count("total")

IF Total_Anunciante => 12 then
Total_Anunciante_mostra = 12
Else
Total_Anunciante_mostra = Rs_count("total")
End IF

RS.ActiveConnection = Conexao
RS.CursorType = 3
Str_SQL = "SELECT * FROM Anunciantes where status_permissao = 's' ORDER BY id_anunciante DESC"
RS.Open Str_SQL
%>

<% if rs.eof then %>

<br><br><br><br>
<div align="center" style="font-family:Tahoma; font-size:11px; color:#000000;"><b>Nenhum anunciante no momento!</b></div>

<%
else
%>

<%
Randomize
Int_Stop = Total_Anunciante_mostra
Int_Random = RS.RecordCount
Int_Count = 0
Dim Arr_Random3()
ReDim Arr_Random3(Int_Random - 1)
Dim Arr_Final3()
ReDim Arr_Final3(Int_Stop - 1)
For Int_Count = 0 to (Int_Random - 1)
Arr_Random3(Int_Count) = (Int_Count + 1)
Next
Int_Count = 0
For Int_Count = 0 to (Int_Stop - 1)
Int_RND = (RND * (Int_Random - 1))
Arr_Final3(Int_Count) = Arr_Random3(Int_RND)
If Arr_Final3(Int_Count) = "" Then
Int_Count = (Int_Count - 1)
Else
Arr_Random3(Int_RND) = ""
End If
Next
%>

<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center"><tr>

<%
Int_TheCount = 0
For Each Int_Count in Arr_Final3
RS.AbsolutePosition = Int_Count
If Int_TheCount MOD 4 = 0 Then
%>

</tr><tr>

<%
End If
Int_TheCount = (Int_TheCount + 1)
%>

<td align="center"  valign="top" style="border-top: #C8C8C8 2px solid; border-bottom: #787878 4px solid; border-right: #787878 4px solid; border-left: #C8C8C8 2px solid; padding-left:2; padding-right:2; padding-top:2; padding-bottom:2;"><a href="procura.asp?procura=<%= Ucase(RS("anunciante")) %>&id_departamento=todas&id_anunciante=id_anunciante"><img src="anunciantes/<%= RS("imagem_logo") %>" width="120" height="30" border="0" alt="<%= Ucase(RS("anunciante")) %>"></a></td>
<%
Next
%>

   </tr>
 </table>

</body>
</html>

<%
End if
%>

 

Página procura_inc.asp

<%
Set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = Conexao
RS.CursorType = 3
Str_SQL = "SELECT * FROM Anunciantes where status_permissao = 's' ORDER BY id_anunciante DESC"
RS.Open Str_SQL
%>
<img src="anunciantes/<%= RS("imagem_logo") %>" width="554" height="100" border="0" alt="<%= Ucase(RS("anunciante")) %>">
<%
paginacao = request.querystring("pagina")
por = request("por")
If paginacao = "" then
paginacao = 1
end if

If por= "" then
por = 10
end if

Dim RS, sql

procura = Trim(Request.QueryString("procura"))
id_departamento = request.querystring("id_departamento")
id_anunciante = request.querystring("id_anunciante")

if request.querystring("ordenar") = "anuncio" then
ordenar = "order by anuncio"
elseif request.querystring("ordenar") = "preco_normal" then
ordenar = "order by preco_normal asc"
elseif request.querystring("ordenar") = "anunciante" then
ordenar = "order by anunciante"
elseif request.querystring("ordenar") = "mais_vistos" then
ordenar = "order by contador desc"
else
ordenar = "order by id_anuncio desc"
end if



if id_departamento = "todas" and id_anunciante=id_anunciante then 
sql = "SELECT * FROM anuncios WHERE status_permissao = 's' and anuncio LIKE '%"& procura &"%' or detalhes LIKE '%"& procura &"%' or anunciante LIKE '%"& procura &"%' " & ordenar &" " 
elseif id_departamento <> "todas" then
sql = "SELECT * FROM anuncios WHERE status_permissao = 's' and anuncio LIKE '%"& procura &"%' AND id_departamento = '"& id_departamento &"' " & ordenar &""
else procura = "" and id_departamento <> "todas"
sql = "SELECT * FROM anuncios WHERE status_permissao = 's' and id_departamento = '"& id_departamento &"' " & ordenar &""
end if

set RS = Server.CreateObject("ADODB.Recordset") 
RS.Open sql, conexao, 3, 3
if NOT RS.EOF then
RS.movefirst

RS.pagesize=por
Dim maximo_paginas, total_paginas, maximo_resultados, resultados, campos
Dim close, open, contagem, ok
Dim pagina, all

RS.Movefirst
maximo_paginas = cint(RS.pagecount)
total_paginas = maximo_paginas
maximo_resultados = cint(RS.pagesize)
RS.absolutepage = paginacao
resultados = 0
campos = RS.fields.count -1
close = ""
open = ""
else
close = ""
open = ""
end if
%> 
<div align="left" style='font-family: tahoma; color: #000000; font-size: 13px; padding-left:15; padding-top:15; padding-bottom:25;'><b><img src="imagens/ponto2.gif" width="8" height="12" border="0" hspace="0"> RESULTADO DA BUSCA</b></div>

<div align="justify" style='font-family: tahoma; color: #666666; font-size: 11px; padding-left:5; padding-right:5;'>

<% if rs.eof then%> 

<center>Nenhum resultado foi encontrado em nosso banco de dados.</center>
<br>
<font style="padding-left:25; padding-top:25; color:#000000;"><b>Sugestões para procura:</b></font>
<br>
<UL>
<LI>Tente uma palavra maior.
<LI>Verifique se estão todas escritas corretamente.
<LI>Tente palavras diferentes.
<LI>Tente outras palavras.
<LI>O item requerido talvez não faz parte de nenhuma das categorias mostradas.
<LI>O item requerido ainda será cadastrado em nosso banco de dados.</LI></UL>
<br>
<center><hr width="520" size="1" color="#787878"></center>

<%elseif not rs.eof  then%>
<table border="0" cellpadding="0" cellspacing="0" width="520" align="center" style="border-top: #0062C4 2px solid; border-bottom: #0062C4 4px solid; border-right: #0062C4 4px solid; border-left: #0062C4 2px solid;">
 <tr>
   <td align="left" height="20" style="font-family: tahoma; color: #000000; font-size: 11px; padding-left:5; padding-top:2; padding-bottom:2; padding-right:5;">

<% if rs.recordcount = "0" then  %>
<img src="imagens/seta.gif" width="8" height="5" border="0"> Procura no site por

<%
if Request.QueryString("procura") = "" then
depart = conexao.execute("Select * from departamentos where id_departamento = " & request.querystring("id_departamento"))
%>

<font color='#787878'><b>" <%= depart("departamento") %> "</b></font></b></font>"

<% else %>

<font color='#787878'><b>" <%= Request.QueryString("procura") %> "</b></font></b></font>

<% end if %>

<% else %>

<%
if Request.QueryString("procura") = "" then
depart = conexao.execute("Select * from departamentos where id_departamento = " & request.querystring("id_departamento"))
%>

<img src="imagens/seta.gif" width="8" height="5" border="0"> Foram encontrados <font color='#787878'><b>[ <%= rs.recordcount %> ]</b></font> anuncios com o departamento <font color='#787878'><b>" <%= depart("departamento") %> "</b></font>

<% else %>

<img src="imagens/seta.gif" width="8" height="5" border="0"> Foram encontrados <font color='#787878'><b>[ <%=rs.recordcount %> ]</b></font> anuncios com a palavra <font color='red'><b>" <%= procura %> "</b></font>

<%
end if
end if
%>

</td>
  </tr>
</table>
<br><br>

<div style='padding-right:15;'>
<table border="0" cellpadding="0" cellspacing="0" width="285" height="25" align="right">
  <form action="procura.asp" method="get" name="ordenar" onsubmit="return val_ordenar()">
  <input type="hidden" name="pagina" value=<%=request.querystring("pagina")%>>
  <input type="hidden" name="por" value=<%=request.querystring("por")%>>
  <input type="hidden" name="procura" value=<%=request.querystring("procura")%>>
  <input type="hidden" name="id_departamento" value=<%= request.querystring("id_departamento") %>>
  <tr>
    <td align="center" class="textoprocura"><img src="imagens/quadrado2.jpg" width="5" height="5" border="0"> ORDENAR POR:  
    <select class="caixaprocura" name="ordenar">
    <option></option>
    <option value="anuncio">ANUNCIO</option>
    <option value="anunciante">ANUNCIANTE</option>
    <option value="preco_normal">PREÇO</option>
    <option value="mais_vistos">+ VISITADOS</option>
   </select>  </td>
    <td align="left"><input type="submit" value="ORDENAR" class="botaooferta"></td>
    </form>
    </tr>
</table>
</div>

<br><br><br><br>

<%
if NOT RS.Eof Then
contagem = (por * (paginacao - 1)) + 1
else
contagem = "0"
end if
if contagem + 9 > RS.recordcount then
ok = RS.recordcount
else
ok = contagem + 9
end if
all = RS.recordcount
do UNTIL RS.eof OR resultados >= maximo_resultados
if NOT RS.eof then

anuncio = RS("anuncio")
anunciante = RS("anunciante")
detalhes = RS("detalhes")
id_anuncio = RS("id_anuncio")
preco_normal = RS("preco_normal")
preco_normal = RS("preco_normal")
imagem1 = RS("imagem1")
%>
<table border="0" cellpadding="0" cellspacing="0" width="520" align="center">
  <form action="detalhes.asp" method="get">
  <tr>
    <td width="150" height="110" align="center"><img src="anuncios/<%= RS("imagem1") %>" width="150" height="100" border="0" alt="<%= RS("anuncio") %>"></td>
    <td width="380" height="110" align="left" valign="top" style="padding-top:5; padding-bottom:5; padding-left:5; padding-right:5;"><div style="font-family: Arial; color: #000000; font-size: 16px;"><b><%= Ucase(RS("anuncio")) %></b></div><div style="font-family: tahoma; color: #000000; font-size: 11px; padding-left:30; padding-top:5;"><b><%= Ucase(rs("anunciante")) %></b></div><div align="justify" style="font-family: tahoma; color: #787878; font-size: 11px; padding-left:30;"><%= left(RS("detalhes"),100) %> ...<br></div><div style="font-family: Arial; color: #787878; font-size: 13pt; padding-top:10; padding-left:30;">
<%
if RS("preco_normal") = "0" then
%>
<div style="font-family: Arial; color: #787878; font-size: 13pt;padding-right:5; padding-bottom:5;"><b>( PREÇO PROMOCIONAL )</b></div>

<div align=right style="padding-right:20; padding-top:10;padding-bottom:0;"><input type="hidden" name="id_anuncio" value="<%= RS("id_anuncio") %>"><input type="submit" value="MAIS DETALHES AQUI" class="botaodestaque"></div>

<%
else
%>

    <font style="font-family: tahoma; font-size: 10px; color=#000000; padding-left:0;"><b>apenas:</b></font><br><b>R$ <%= formatNumber(RS("preco_normal"),2) %></b><br>


<% if RS("parcela") <> "0" then
parcela2 = formatNumber(RS("preco_normal") / RS("parcela"),2)
%>


<font style="font-family: tahoma; color: #000000; font-size: 11px; padding-top:0; padding-left:0; padding-right:0;"><b>Ou em <%= rs("parcela") %>X de R$ <%= (parcela2) %></font>

<div align=right style="padding-right:20; padding-top:10; padding-bottom:0;"><input type="hidden" name="id_anuncio" value="<%= RS("id_anuncio") %>"><input type="submit" value="MAIS DETALHES AQUI" class="botaodestaque"></div>

<% elseif RS("parcela") = "0" then %>

<div align=right style="padding-right:20; padding-top:10;padding-bottom:0;"><input type="hidden" name="id_anuncio" value="<%= RS("id_anuncio") %>"><input type="submit" value="MAIS DETALHES AQUI" class="botaodestaque"></div>


<%
end if
end if
%>

    </td>
  </tr>
  </form>
  <tr>
    <td colspan="2" height="10"><center><hr width="520" size="1" color="#3399FF"></center></td>
  </tr>
</table>

<%
contagem = contagem + 1
end if
RS.Movenext
response.flush
resultados=resultados +1
loop
maximo_resultados = RS.recordcount
%>
<%
if Not contagem = 0 then
Dim link1, pad, link2, referencia, scriptname, isPrev, isNext, isEnd, counter
Dim proxima_pagina, pagina_anterior, intPageDisp, counterstart, counterend, pagesize2, novamente
pad=""
scriptname=request.servervariables("script_name")
if contagem <> "0" Then
response.write "<br><font style='padding-left:9; color:#000000;'><b> RESULTADOS:  </b></font>"
else
end if
if (paginacao mod 10) = 0 then
counterstart = paginacao - 9
else
counterstart = paginacao - (paginacao mod 10) + 1
end if
counterend = counterstart + 9
if counterend > maximo_paginas then counterend = maximo_paginas
Response.Write open
for counter = counterstart to counterend
If counter >= 10 then
pad = ""
end if
if cstr(counter) <> paginacao then
referencia = " <a class='h' href='" & scriptname
referencia = referencia & "?pagina=" & counter & "&por=" & por
referencia = referencia & "&procura=" & procura & "&id_departamento=" & id_departamento & "&ordenar=" & request.querystring("ordenar") & "' onMouseOver=""window.status='" & counter & "ª PÁGINA'; return true;"" onMouseOut=""window.status=''; return true;"">" & pad & counter & "</a> "
else
referencia = "<font style='color:#000000;'><b>(" & pad & counter & ")</b></font>"
end if
response.write referencia
if counter <> counterend then response.write " "
next
Response.Write close
intPageDisp = False
if paginacao = 1 AND RS.recordcount = 9 then
isPrev = False
isNext = False
isEnd = True
elseif paginacao = 1 then
isPrev = False
isNext = True
isEnd = False
elseif paginacao > 1 AND ok = RS.recordcount then
isPrev = True
isNext = False
isEnd = True
else
isPrev = True
isNext = True
isEnd = False
End If
if RS.recordcount <= 10 then
isNext = False
else
proxima_pagina = paginacao + 1
pagina_anterior = paginacao - 1
end if
If isPrev = False AND isNext = True AND isEnd = False then
link1 = "   <strong><a class='h' href='" & scriptname & "?pagina=" & proxima_pagina & "&por=" & por & "&procura=" & procura & "&id_departamento=" & id_departamento & "&ordenar=" & request.querystring("ordenar") & "' onMouseOver=""window.status='PRÓXIMAS PÁGINAS'; return true;"" onMouseOut=""window.status=''; return true;"">[ PRÓXIMAS » ]</a></strong>"
link2 = ""
End If
if isPrev = True AND isNext = True AND isEnd = False then
link1 = "   <strong><a class='h' href='" & scriptname & "?pagina=" & pagina_anterior & "&por=" & por & "&procura=" & procura & "&id_departamento=" & id_departamento & "&ordenar=" & request.querystring("ordenar") & "' onMouseOver=""window.status='PÁGINAS ANTERIORES'; return true;"" onMouseOut=""window.status=''; return true;"">[ « ANTERIORES ]</a></strong>"
link2 = "   <strong><a class='h' href='" & scriptname & "?pagina=" & proxima_pagina & "&por=" & por & "&procura=" & procura & "&id_departamento=" & id_departamento & "&ordenar=" & request.querystring("ordenar") & "' onMouseOver=""window.status='PRÓXIMAS PÁGINAS'; return true;"" onMouseOut=""window.status=''; return true;"">[ PRÓXIMAS » ]</a></strong>"
end if
if isPrev = True AND isNext = False AND isEnd = True then
link1 = "   <strong><a class='h' href='" & scriptname & "?pagina=" & pagina_anterior & "&por=" & por & "&procura=" & procura & "&id_departamento=" & id_departamento & "&ordenar=" & request.querystring("ordenar") & "' onMouseOver=""window.status='PÁGINAS ANTERIORES'; return true;"" onMouseOut=""window.status=''; return true;"">[ « ANTERIORES ]</a></strong>"
link2 = ""
end if
if isPrev = False AND isNext = False AND isEnd = true then
link1 = ""
link2 = ""
end if
response.write link1 & link2
response.write "" & novamente
%>
<% end if %>
<% end if %>
<%
rs.close
set rs = nothing
%>
<br>
<br>
<br>
</div>

[Patrique 0]

Velho a imagem esta neste rs?

 

RS("imagem_logo")

Tente da um response.write(RS("imagem_logo")) por fora e faça um teste para saber o que esta sendo passado, a principio esta parecendo esta correto, de um response.write e veja como esta vindo, talvez você possa esta se confundindo.

 

[]'s