Noticias

[Marc]

E aí gente beleza?

É o seguinte estou desenvolvendo uma página de noticias. Quero fazer um esquema que quando eu inserir uma nova noticia a antiga fique arquivada, mostrando apenas o título com link para abrir a noticia e quando eu clicar nessa noticia arquivada ela apareça no lugar da última.

vocês entenderam?

Vou colocar o código abaixo para ficar mais fácil para vocês me explicarem.

Abraços.

<!--#include file=permissao.asp-->
<!--#include file=cabecalho.asp-->
<!--#include file=conexao.asp-->

<table>

<tr> 
	<td align=center><font face=arial size=2><a href="cadnoticia.asp">Incluir nova notícia</font></td>
	<td align=center><font face=arial size=2><a href="logout.asp">Sair</a></font></td>
	<td align=center><font face=arial size=2>Ir para o site</font></td>
</tr>


</table>


<table border=o cellspacing=0 cellpadding=2 width="100%">
  <tr> 
    <td valign=top bgcolor="#CDBDA0"> <font face=arial size=2> 

<% Dim sql,rs

abreconexao

if Request("codnoticia")<> "" then 'verifique se vai excluir

	sql="SELECT * FROM noticias Where codnoticia=" & Request("codnoticia")
	set rs=oConexao.Execute(sql)

	if not rs.EOF then
  sql="DELETE * FROM noticias WHERE codnoticia=" & Request("codnoticia")
  oConexao.Execute sql
	else
  Response.Write "<center><font face=arial size=2 color=#ff0000> Noticia não pode ser excluída </font></center>"
	end if
end if

	sql="SELECT codnoticia,data,titulo,noticias FROM Noticias ORDER BY data DESC"
	set rs=oConexao.execute(sql)
%>

<table border=1 width=80% cellspacing=0 cellpadding=2 align=center>
        <tr> 
          <td align=center><font face=arial size=2>Data</font></td>
          <td align=center><font face=arial size=2>Título</font></td>
   
    <td align=center><font face=arial size=2>Clique para excluir </font></td>
  
        </tr> 

<% while not rs.EOF %>

	<tr> 
   <td><font face=arial size=2><%=rs("data")%></font></td>
       <td><font face=arial size=2>Titulo<%=rs("titulo")%></a></font></td>
   <%'=rs("noticias") %>
   <td><font face=arial size=2><a href="noticias.asp?codnoticia=<%=rs("codnoticia")%>">Excluir</a> </font></td>
        </tr>
  	
<% 

rs.movenext
wend
fechaconexao 

%>

</table></font></td>
</tr>
</table>

[pgmador]

não entendi o que voce quer.

Voce quer mostrar a notícia, e lá embaixo da página deixar o link para as outras?

Se for isto, pode resolver assim

<%
codNoticia=Request.Querystring("codNoticia")

rs.open "SELECT * FROM noticias WHERE codNoticia="&codNoticia&" ", conexao

rsLista.open "SELECT * FROM noticias WHERE codNoticia<>"&codNoticia&"", conexao
%>

com a conexao rs voce coloca na tela a noticia atual

com a conexao rsLista, voce lista o título das outras notícias, utilizando um loop

É isso?

[Marc]

Pgmador:

Desculpe, mas sou novo nesse negócio de programação.

Teria como explicar melhor, o que eu deveria tirar do código e onde eu deveria colocar o código que você me mandou.

Já agradeço pela ajuda.

Marc

[Deividy]

pgmador o que o cara quer e que fique uma noticia visivel e a outra só um link.

e quando for clicado na anterir que vai estar com o link essa mesmo aparece em sima ada atual substituindo ela.

Obs tenho acompanhado ele faz um tempo já.

[Marc]

Fala Deividy:

Cara vocês estão em todos os foruns.. ehehehehehhehehehehe

Velho aquela para do sub é complicado........ eheh

to ficando doidão. .eheheheheheheheh

[Deividy]

hehee não esquenta.

sim eu sempre tento ajudar todos.

heheheh é que estou sem tempo pra montar um ex aqui.

mais vou ver o que posso fazer.

[Marc]

heheh esquenta não.. na hora que der .... avisa pra gente..

t+ ..