tenho 3 noticias que fica em destaque no site e as outras demais que não são destaque
as que não são destaque esta dublicando as noticias destaques tenho os 2 select abaixo, como que eu faço para que as noticias que tiver aparecendo no SELECT 1 não aparece no SELECT 2
SELECT 1
<%
strSQL5 = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE Foto <> '""' AND CdCaderno = "&rsCaderno("CdCaderno")&" AND Bigode <> '""' AND Ativo = 'sim' ORDER BY dthr DESC"
set rsDestaque = abredb.execute(strSQL5)
conte = 1
if not rsDestaque.eof then
%>
<div id="noticia_caderno">
<%
while not rsDestaque.eof and conte < 4
strSQL5_1 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsDestaque("CdCategoria")&""
set rsDestaqueCat = abredb.execute(strSQL5_1)
%>
<div id="caderno<%=conte%>">
<div id="caderno_titulo">
<%If rsDestaque("Bigode") <> "" Then%>
<%=correcao(rsDestaque("Bigode"))%>
<%Else%>
<%=rsDestaqueCat("Categoria")%>
<%End If%>
</div>
<div id="caderno_foto">
<a href="<%=UrlAmigavel%>noticia/<%=rsDestaque("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsDestaque("Titulo")))%>">
<div id="caderno_foto_texto"><span><%=correcao(rsDestaque("Titulo"))%></span></div>
<img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsDestaque("Foto")%>" height="160" border="0">
</div></a>
</div>
<%
conte = conte+1
rsDestaque.movenext
wend
%>
</div>
<%
end if
rsDestaque.close
set rsDestaque = nothing
%>
SELECT 2
<%
strSQL = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE CdCaderno = "&rsCaderno("CdCaderno")&" AND Ativo = 'sim' ORDER BY dthr DESC"
set rsLstNews = abredb.execute(strSQL)
contador = 0
if not rsLstNews.eof then
while not rsLstNews.eof and contador < 5
strSQL2 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsLstNews("CdCategoria")&""
set rsCat = abredb.execute(strSQL2)
%>
<div id="lista_noticia">
<%If rsLstNews("Foto") <> "" Then%>
<div id="noticia_lista">
<div id="capa_noticia_foto">
<a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
<img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsLstNews("Foto")%>" width="165" border="0"></a></div>
<a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
<div id="noticia_lista_categoria">
<%If rsLstNews("Bigode") <> "" Then%>
<%=correcao(rsLstNews("Bigode"))%>
<%Else%>
<%=rsCat("Categoria")%>
<%End If%>
</div>
<div id="noticia_lista_titulo"><%=correcao(rsLstNews("Titulo"))%></div>
<!--<div id="noticia_lista_legenda"><%'=correcao(rsLstNews("Legenda"))%></div>-->
</a>
</div>
<%Else%>
<div id="noticia_lista">
<a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>">
<div id="noticia_lista_categoria2">
<%If rsLstNews("Bigode") <> "" Then%>
<%=correcao(rsLstNews("Bigode"))%>
<%Else%>
<%=rsCat("Categoria")%>
<%End If%>
</div>
<div id="noticia_lista_titulo2"><%=correcao(rsLstNews("Titulo"))%></div>
<div id="noticia_lista_legenda2"><%=correcao(rsLstNews("Legenda"))%></div>
</a>
</div>
<%End If%>
</div>
<%
contador = contador +1
rsLstNews.movenext
wend
end if
rsLstNews.close
set rsLstNews = nothing
%>
Pergunta
smez
estou desnvolvendo este site http://jornalderoraima.com/caderno/poder mas estou tendo uma dificuldade
tenho 3 noticias que fica em destaque no site e as outras demais que não são destaque
as que não são destaque esta dublicando as noticias destaques tenho os 2 select abaixo, como que eu faço para que as noticias que tiver aparecendo no SELECT 1 não aparece no SELECT 2
SELECT 1 <% strSQL5 = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE Foto <> '""' AND CdCaderno = "&rsCaderno("CdCaderno")&" AND Bigode <> '""' AND Ativo = 'sim' ORDER BY dthr DESC" set rsDestaque = abredb.execute(strSQL5) conte = 1 if not rsDestaque.eof then %> <div id="noticia_caderno"> <% while not rsDestaque.eof and conte < 4 strSQL5_1 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsDestaque("CdCategoria")&"" set rsDestaqueCat = abredb.execute(strSQL5_1) %> <div id="caderno<%=conte%>"> <div id="caderno_titulo"> <%If rsDestaque("Bigode") <> "" Then%> <%=correcao(rsDestaque("Bigode"))%> <%Else%> <%=rsDestaqueCat("Categoria")%> <%End If%> </div> <div id="caderno_foto"> <a href="<%=UrlAmigavel%>noticia/<%=rsDestaque("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsDestaque("Titulo")))%>"> <div id="caderno_foto_texto"><span><%=correcao(rsDestaque("Titulo"))%></span></div> <img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsDestaque("Foto")%>" height="160" border="0"> </div></a> </div> <% conte = conte+1 rsDestaque.movenext wend %> </div> <% end if rsDestaque.close set rsDestaque = nothing %>SELECT 2
<% strSQL = "SELECT *, concat(DtCadastro, ' ', HrCadastro) as dthr FROM Noticia WHERE CdCaderno = "&rsCaderno("CdCaderno")&" AND Ativo = 'sim' ORDER BY dthr DESC" set rsLstNews = abredb.execute(strSQL) contador = 0 if not rsLstNews.eof then while not rsLstNews.eof and contador < 5 strSQL2 = "SELECT * FROM Noticia_categoria WHERE CdCategoria = "&rsLstNews("CdCategoria")&"" set rsCat = abredb.execute(strSQL2) %> <div id="lista_noticia"> <%If rsLstNews("Foto") <> "" Then%> <div id="noticia_lista"> <div id="capa_noticia_foto"> <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>"> <img src="<%=UrlAmigavel%>imagensDinamica/noticia/<%=rsLstNews("Foto")%>" width="165" border="0"></a></div> <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>"> <div id="noticia_lista_categoria"> <%If rsLstNews("Bigode") <> "" Then%> <%=correcao(rsLstNews("Bigode"))%> <%Else%> <%=rsCat("Categoria")%> <%End If%> </div> <div id="noticia_lista_titulo"><%=correcao(rsLstNews("Titulo"))%></div> <!--<div id="noticia_lista_legenda"><%'=correcao(rsLstNews("Legenda"))%></div>--> </a> </div> <%Else%> <div id="noticia_lista"> <a href="<%=UrlAmigavel%>noticia/<%=rsLstNews("CdNoticia")%>/<%=RemoveCaracteresEspeciais(TirarAcento(rsLstNews("Titulo")))%>"> <div id="noticia_lista_categoria2"> <%If rsLstNews("Bigode") <> "" Then%> <%=correcao(rsLstNews("Bigode"))%> <%Else%> <%=rsCat("Categoria")%> <%End If%> </div> <div id="noticia_lista_titulo2"><%=correcao(rsLstNews("Titulo"))%></div> <div id="noticia_lista_legenda2"><%=correcao(rsLstNews("Legenda"))%></div> </a> </div> <%End If%> </div> <% contador = contador +1 rsLstNews.movenext wend end if rsLstNews.close set rsLstNews = nothing %>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados