Christiano N.

Pessoal faço uma consulta e listo umas noticias.. certo? blz...
ai faço outra consulta e digo para não pegar noticias que foram
listadas na consulta anterior... (strcodnoticia1)..
Mas não funciona... vejam o que há de errado no código abaixo:

<%
Set noticias1= Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * FROM noticia where cod_tiponoticia =8 AND cod_noticia <>"& strcodnoticia &" ORDER BY cod_noticia desc"

noticias1.Open SQL2, Conexao, 3

strcodnoticia1 = noticias1("cod_noticia")

%>

<%= noticias1("descricao")%>

<%
noticias1.movenext
end if
Next

%>

<%
Set noticias2= Server.CreateObject("ADODB.Recordset")
SQL3 = "SELECT * FROM noticia where cod_tiponoticia =8 AND cod_noticia <>"& strcodnoticia &" AND cod_noticia <>"& strcodnoticia1 &" ORDER BY cod_noticia desc"

noticias2.Open SQL3, Conexao, 3
%>

Alguém pode me ajudar??

Grato.

Pessoal me ajuda ai num probleminha...

estou montando um site d noticias, onde terá varios tipos de noticias.. noticia principal, noticias atuais,
noticias por tipo e etc... quero fazer com q não repita uma noticia na mesma página.. ou seja, se caso
uma noticia aparecer como principal, ela não poderá aparecer em outro tópico.. entenderam?

Outra duvida, é possivel numa mesmo consulta SQL mostrar 3 tipos de noticias diferentes? isso sem
usar while nem loop nem nada... tipo faz a consulta, e da uns 3 response.write no titulo da noticia.

Abraço!!

Pessoal... primeiramente faz-se necessário saber que EXISTE na tabela (access)
"1ALERTA" e no campo "palavrachave" 2 registros já adicionados assim:
No registro 1-> palavrachave= flamengo, vasco
No registro 2-> palavrachave= vasco

Sendo assim, quero consultar os registros que contenham as palavras (flamengo, palmeiras)
como descriminado na variável "strpalavrachave".

SEGUE O CÓDIGO... SÓ NÃO CONSIGO ENTENDER PORQ DÁ ERRADO.
O RESULTADO É: "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

<%
strpalavrachave = "flamengo, palmeiras"
MyArray = Split(strpalavrachave, ",")
%>
<%
For I = LBound(MyArray) to Ubound(MyArray)

Set palavrachave = Server.CreateObject("ADODB.Recordset")
palavrachave.Open "SELECT * FROM 1ALERTA WHERE LCase(palavrachave) LIKE '%" & LCase(Trim(MyArray (I))) & "%' ", Conexao

Next

If palavrachave.EOF Then
response.write "Não foi encontrado nenhum alerta para esta PALAVRA-CHAVE"

Else

while Not palavrachave.EOF
%>

<%
strNome = palavrachave("nome")
strEmail = palavrachave("email")
		
response.write strEmail &"<br><br><br>"		   
%>	  

<%
palavrachave.MoveNext
wend 
End If

palavrachave.Close
Set palavrachave = Nothing
%>

PERCEBI QUE A CONSULTA SÓ É FEITA NA PALAVRA "palmeiras" e por isso não acha registro nenhum,
sendo q a consulta teria q ser nas duas palavras... flamengo, palmeiras.

E agora? Alguém sabe uma solução??? Por favorrr!!!!!!

Pessoal não entendo porque meu random não funciona. Utilizo esta função para gerar o random:

ORDER BY Rnd(Int(Now()*[ID])-Now()*[ID])

Agora não sei se isso tem haver com o problema, mas mostro o resultado do BD da seguinte forma:

Tenho 2 tabelas em HTML... TABELA 1 e TABELA 2, sendo que a tabela 2 fica dentro da tabela 1.

Na TABELA 1 quero o random de 6 registros... para isso utilizo TOP 6.

Mas na TABELA 2 mostro dois resultados em duas colunas. Não sei se é por causa disso, mas meu random não funciona de forma alguma... ele mostra 6 registros iguais.. e não diferentes como estou querendo.

Para que entendam melhor, tenho uma tabela de 12 categorias de noticias... e outra tabela sendo as noticias. Quero mostrar um random de 6 categorias de noticias (TABELA 1), sendo que para cada categoria, mostre 2 registros de noticias em duas colunas. Tudo ta funcionando perfeitamente, somente o random que não funciona.

A lógica do meu script funciona da seguinte maneira:

Tenho na minha tabela de noticias, um campo chamado PALAVRACHAVE, onde cadastro algumas palavras-chave da notícia para que depois eu possa montar minha lista de "notícias relacionadas". Porém não estou conseguindo fazer isso funcionar corretamente, o resultado aparece muito estranho, não consigo descobrir o erro.

Vamos ao código:

Para exemplificar o que está acontecendo, digamos que tenho 5 noticias cadastradas da seguinte maneira:
Campo PALAVRACHAVE (tabela – 1NOTICIA):

1 - flamengo
2 – vasco
3 – flamengo, botafogo
4 – botafogo, vasco
5 – vasco, flamengo

As "notícias relacionadas" aparecem da seguinte forma:

Na Notícia 1 – (aparece a 3 e 5) – CORRETO
Na Notícia 2 – (aparece a 4 e 5) – CORRETO
Na Notícia 3 – (aparece a 4) - ERRADO, DEVERIA APARECER A 1, 4 E 5
Na Notícia 4 – (aparece a 2 e 5) - ERRADO, DEVERIA APARECER A 2, 3 E 5
Na Notícia 5 – (aparece a 1 e 3) - ERRADO, DEVERIA APARECER A 1, 2, 3 E 4 - ou as 3 ultimas, pois defino TOP 3 na consulta.

meu código:
[codebox]<%

strpalavrachave = objRS("palavrachave")
MyArray = Split(strpalavrachave," ")
strcodnoticia = objRS("cod_noticia")

For I=LBound(MyArray) To UBound(MyArray)

Set relacionadas = Server.CreateObject("ADODB.Recordset")

relacionadas.Open "SELECT TOP 3 * FROM 1NOTICIA WHERE palavrachave LIKE '%" & MyArray (I) & "%' and cod_noticia <>" & strcodnoticia & " and destaque='s' ORDER BY cod_noticia", Conexao

Next

If relacionadas.EOF = true then

else

%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th colspan="2" align="left" bgcolor="#E2E2E2" class="texto1" scope="row">Notícias relacionadas:</th>
</tr>
</table>
<%
while Not relacionadas.EOF

%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#FFFFFF">

<tr>
<th width="12%" align="left" bgcolor="#E2E2E2" class="data" scope="row"><%= relacionadas("dtnoticia") %></th>
<th width="88%" align="left" bgcolor="#E2E2E2" class="texto" scope="row"><a href="...">
<% = relacionadas("titulo") %>
</a></th>
</tr>
</table>
<%
relacionadas.MoveNext
wend
End if
%>
[/codebox]

Pelo o que percebo, quando a busca é só com 1 palavra, ele pega bleza... mas se o campo tiver
2 palavras para busca, ele pega somente a 2ª palavra.

Por favor, não sei mais o que fazer, já tentei de um monte de jeito e nada de funcionar corretamente.

Abraços!