Ir para conteúdo
Fórum Script Brasil

Marc

Membros
  • Total de itens

    4
  • Registro em

  • Última visita

Tudo que Marc postou

  1. Marc

    Noticias

    heheh esquenta não.. na hora que der .... avisa pra gente.. t+ ..
  2. Marc

    Noticias

    Fala Deividy: Cara vocês estão em todos os foruns.. ehehehehehhehehehehe Velho aquela para do sub é complicado........ eheh to ficando doidão. .eheheheheheheheh
  3. Marc

    Noticias

    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
  4. Marc

    Noticias

    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>
×
×
  • Criar Novo...