Ir para conteúdo
Fórum Script Brasil
  • 0

Pessoal Ajudem -me To Com Problemas

bolomaster

Perguntado por bolomaster,

 Share

Pergunta

bolomaster

bolomaster

Postado
Postado

Ola pessoal eu to precisando de umas dicas para um sistema de noticias, estou com esse problema .. desde antes do natal, e ainda não consegui resolver

eu não to conseguindo, to querendo fazer o seguinte eu tenho uma pagina que deverá mostrar o resumo e o titulo da noticia, e deverá ter um link ver noticia, so não estou sabendo como criar o link para mostrar a noticia referente.. ao resumo

sera que alguém tem como me ajudar

abraços e feliz 2004 a todos

Link para o comentário
Compartilhar em outros sites

8 respostass a esta questão

Posts Recomendados

  • 0
Victor

Victor

Postado
Postado

Ola pessoal eu to precisando de umas dicas para um sistema de noticias, estou com esse problema .. desde antes do natal, e ainda não consegui resolver

eu não to conseguindo, to querendo fazer o seguinte eu tenho uma pagina que deverá mostrar o resumo e o titulo da noticia, e deverá ter um link ver noticia, so não estou sabendo como criar o link para mostrar a noticia referente.. ao resumo

sera que alguém tem como me ajudar

abraços e feliz 2004 a todos

você tem que escrever isso para fazer um link:

<a href="www.ositequevcquiser.com.br">A palavra que você quer que tenha o link</a> biggrin.gif

É só copiar e colar wink.gifwink.gif

Se tiver dúvidas me mande um e-mail para:victor-vick@uol.com.br

smile.gifsmile.gif

Link para o comentário
Compartilhar em outros sites
  • 0
bolomaster

bolomaster

Postado
  • Autor
Postado

não é exatamente isso .. as noticias vao ficar no meu banco de dados.. entende vou postar os meus arquivos

este é o arquivo que vai conter os resumos

chama noticias.asp

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">

<tr>

<td width="26%" bgcolor="#3399FF">&nbsp;</td>

<td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td>

<td width="29%" bgcolor="#3399FF">&nbsp;</td>

</tr>

<tr>

<td colspan="3"></td>

</tr>

<tr>

<td colspan="3">&nbsp;</td>

</tr>

<tr>

<td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40">

<strong>Not&iacute;cias.</strong> </td>

</tr>

<tr>

<td colspan="3"><hr></td>

</tr>

<tr>

<td colspan="3"><p><br>

</p></td>

</tr>

</table>

<%

dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")

rs.open "notonline", db

do while not rs.eof

%>

<table width="100%" border="0" class="fonte">

<tr>

<td width="11%"><strong>Titulo:</strong></td>

<td width="89%"> <%Response.Write rs.fields("titulo")%> </td>

</tr>

<tr>

<td><strong>Data:</strong></td>

<td> <%Response.Write rs.fields("data")%> </td>

</tr>

<tr>

<td><strong>Resumo:</strong></td>

<td> <%Response.Write rs.fields("resumo")%> </td>

</tr>

<tr>

<td>&nbsp;</td>

<td><a href="vernoticias.asp?id=<%=rs.fields("cod")%>">Ver Noticia</a></td>

</tr>

</table>

<p>&nbsp;</p>

<p>

<%

rs.MoveNext

Loop%>

e este é o arquivo que vai mostrar a noticia

chama vernoticia.asp

<%

id = request.QueryString(id)

dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")

rs.open "notonline", db

%>

<table width="100%" border="0" class="fonte">

<tr>

<td width="11%"><strong>Titulo:</strong></td>

<td width="89%"> <%Response.Write rs.fields("titulo")%> </td>

</tr>

<tr>

<td><strong>Data:</strong></td>

<td> <%Response.Write rs.fields("data")%> </td>

</tr>

<tr>

<td><strong>Noticia:</strong></td>

<td> <%Response.Write rs.fields("noticia")%> </td>

</tr>

</table>

<p>&nbsp;</p>

<p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></p>

entendeu não to conseguindo fazer ele mostrar a noticia referente

ao resumo

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
Postado

Não sei se é isto mas as vezes quando eu crio uma variavel sem aspas da erra então em vez de:

id = request.QueryString(id)

Coloque assim:

id = request.QueryString("id")

Caos não seja isso desculpe a ignorancia de meu post. smile.gif

Link para o comentário
Compartilhar em outros sites
  • 0
Bertolani

Bertolani

Postado
Postado

Eu tive que fazer algo parecido com isso, as informaçoes num bd e um link para exibi-las.

Este link ver noticia ficara na frente do link do titulo? Se sim, você pode fazer um codigo parecido com este:

Response.write("<td><a href=""Ticket.asp?Num=" & rs_tk("Tk_ticket_num") & "&Cont=" & rs_tk("TK_CONTROLE_NUM") & "&OPER=ANALISTA"">" & rs_tk("Tk_ANALISTA_HD") & "</a>")

Na pag. Ticket.asp eu recebo as info porque alem de exibir tive que ordena-las.

qualquer coisa escreve de novo.

Espero ter ajudado,

Bertolani

Link para o comentário
Compartilhar em outros sites
  • 0
[ GuTo ]

[ GuTo ]

Postado
Postado

noticia.asp

pra acessa-la vai ser simples...

vai ter de ter um link assim: <a href="noticia.asp?id=2">titulodanoticia</a>

E claro q este link será gerado pela sua página chama_noticias.asp, porque nela é aonde você vai listar as noticias do seu BD

<%
dim id, db, rs, sql
id = request.QueryString("id")
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")
sql = "SELECT * FROM noticias WHERE id="&id
rs.open sql, db
if rs.eof then
%>Noticia não existente<%
else
%>Aki você faz o recordset dos campos da notícia<%
end if

db.close
set rs = nothing
set db = nothing
%>

wink.gif

Link para o comentário
Compartilhar em outros sites
  • 0
bolomaster

bolomaster

Postado
  • Autor
Postado

Oi Galera Agradeço a todos pelas ajudas e dicas.. eu já resolvi... muito obrigado

fui abraços

Vou mostrar como ficou

arquivo noticias .asp

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">

  <tr>

    <td width="26%" bgcolor="#3399FF">&nbsp;</td>

    <td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td>

    <td width="29%" bgcolor="#3399FF">&nbsp;</td>

  </tr>

  <tr>

    <td colspan="3"></td>

  </tr>

  <tr>

    <td colspan="3">&nbsp;</td>

  </tr>

  <tr>

    <td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40">

      <strong>Not&iacute;cias.</strong> </td>

  </tr>

  <tr>

    <td colspan="3"><hr></td>

  </tr>

  <tr>

    <td colspan="3"><p><br>

      </p></td>

  </tr>

</table>

  <%

dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")

rs.open "notonline", db

do while not rs.eof

%>

<table width="100%" border="0" class="fonte">

  <tr>

    <td width="11%"><strong>Titulo:</strong></td>

    <td width="89%"> <%Response.Write rs.fields("titulo")%> </td>

  </tr>

  <tr>

    <td><strong>Data:</strong></td>

    <td> <%Response.Write rs.fields("data")%> </td>

  </tr>

  <tr>

    <td><strong>Resumo:</strong></td>

    <td> <%Response.Write rs.fields("resumo")%> </td>

  </tr>

  <tr>

    <td>&nbsp;</td>

    <td><a href="vernoticias.asp?id=<%=rs.fields("cod")%>">Ver Noticia</a></td>

  </tr>

</table>

<p>&nbsp;</p>

<p>

<%

rs.MoveNext

Loop%>

</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></p>

vernoticias.asp

<table width="100%" border="0" cellspacing="0" cellpadding="0" class="fonte">

  <tr>

    <td width="26%" bgcolor="#3399FF">&nbsp;</td>

    <td width="45%"><div align="center"><img src="Imagens/Titulo_pag_art.gif" width="350" height="43"></div></td>

    <td width="29%" bgcolor="#3399FF">&nbsp;</td>

  </tr>

  <tr>

    <td colspan="3"></td>

  </tr>

  <tr>

    <td colspan="3">&nbsp;</td>

  </tr>

  <tr>

    <td colspan="3"><img src="Imagens/Icon_tocha.gif" width="34" height="40">

      <strong>Not&iacute;cias.</strong> </td>

  </tr>

  <tr>

    <td colspan="3"><hr></td>

  </tr>

  <tr>

    <td colspan="3"><p><br>

      </p></td>

  </tr>

</table>

  <%

  id = request.QueryString("id")

  dim db, rs

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/noticias.mdb")

sql = "SELECT * FROM notonline WHERE cod like '%"&id&"%' "

rs.open sql,db,3,3

%>

<table width="100%" border="0" class="fonte">

  <tr>

    <td width="11%"><strong>Titulo:</strong></td>

    <td width="89%"> <%Response.Write rs.fields("titulo")%> </td>

  </tr>

  <tr>

    <td><strong>Data:</strong></td>

    <td> <%Response.Write rs.fields("data")%> </td>

  </tr>

  <tr>

    <td><strong>Noticia:</strong></td>

    <td> <%Response.Write rs.fields("noticia")%> </td>

  </tr>

</table>

<p>&nbsp;</p>

<p><img src="Imagens/PixelTrasp.gif" width="15" height="5"><a href="javascript:history.back(-1)" class="link2">voltar...</a></p>

Um Feliz 2004 para Todos

Abraços do Amigo Rafael

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...