Sistema De Noticias

[Tavinho]

:D Olá galera...

To estudando asp e desta vez é pra valer.... :P

To mantando um sisteminha de noticias e gostaria que na hora de consultar o banco pra trazer as noticias pra página, o asp montasse um "resumo" do conteudo encontrado, ou seja independente da quantidade de caracteres na noticia 300,400, 20000... ele trouxesse apenas os 50 primeiros por exemplo...

Ex:

Este texto foi tirado do banco de dados através de um consulta...LEIA MAIS

Neste LEIA MAIS gostaria que fosse um link pra página com o conteudo completo da matéria...

Mas logicamente tudo automatizado, ou seja acesso a página de cadastro da noticia e o ASP faz o resto...

Alguém pode me dar uma luz???

abraços e desde já agradeço pela força...

[Henderson]

no lugar que você quer mostrar apenas os 50 caracteres, você faz assim:

conteudo = RecordSet("campo")
response.write left(conteudo,50)

quanto ao link, você tem que ter uma forma de identificar a noticia no banco de dados recomendo criar um campo numeração, por exemplo com o nome ID ai você poe o id em um link, vou fazer como você quer, um resumo e mais o link

conteudo = RecordSet("campo")
response.write left(conteudo,50) & "<a href='mostranoticia.asp?id="&RecordSet("id")&"'>Leia mais</a>"

aí nessa página, mostranotica.asp você faz assim

id = Request.QueryString("id")
'FAÇA A VERIFICAÇÃO SE CONTÉM UM ID NO ENDEREÇO PORQUE SENÃO VAI DAR ERRO NO SQL
      If id = "" Then
      Response.Write "Selecione uma notícia"
      Else
      SQL = "SELECT * FROM tabela WHERE id = "&id
      Set Rs = conexao.Execute(SQL)      
            If Rs.EOF Then
            Response.Write "Notícia não encontrada"
            Else
            'AQUI TU POE O CÓDIGO PRA MOSTRAR A NOTÍCIA
            End If
      End If

tá ai, acabei fazendo o codigo todo

eahiueahiueahiauhuiea

tá pronto né, so adapta pro que tu qe, se não entender alguma coisa pergunta

[Tavinho]

:D Fala Henderson....

:P Bem legal as dicas maninho....

Vou tentar implementar elas no meu sisteminha e ver no que dá...

:) Mas depois da explicação, agora realmente ficou muito facil..hehehe

abraços cara e valeu a força ;)

[Tavinho]

:D Olá...

Olha a dica funfou de boa...

mas se eu digitar um id que não existe, ele me mostra esse erro:

ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/projeto/mostranoticia.asp, line 0 

o que pode ser? Veja o trecho Asp da página com erro:

<% 

id = Request.QueryString("id")

      If id = "" Then
      Response.Write "Ops.. Você precisa selecionar uma noticia!!"
      Else
      Call AbreBanco()
      vSql = "SELECT * FROM tabela WHERE id = " &id
      Set myRst = ConnDB.Execute(vSql)
       If Rs.EOF Then
                  Response.Write "Essa noticia não existe no sistema"
                  Else
                  'AQUI TU POE O CÓDIGO PRA MOSTRAR A NOTÍCIA
            End If
      End If
%>

o que pode ser?

to quebrando a cuca, e não consegui resolver o problema..

O resto funfou numa boa...

se puder quebrar mais este galho eu agradeço...

falows

[Henderson]

você alterou o codigo, mas não alterou uma linha

<% 

id = Request.QueryString("id")

      If id = "" Then
      Response.Write "Ops.. Você precisa selecionar uma noticia!!"
      Else
      Call AbreBanco()
      vSql = "SELECT * FROM tabela WHERE id = " &id
      Set myRst = ConnDB.Execute(vSql)
'
A LINHA ABAIXO, NÃO É Rs, É myRst 
'QUE É A VARIÁVEL QUE TU USO NO TEU RECORDSET
       If MyRst.EOF Then
                  Response.Write "Essa noticia não existe no sistema"
                  Else
                  'AQUI TU POE O CÓDIGO PRA MOSTRAR A NOTÍCIA
            End If
      End If

[Tavinho]

:D Fala maninho...

É que colei o codigo errado aqui.. hehe

Mesmo com essa parte que você falou estando corrigida o erro persiste....

Mas já consegui fazer funcionar, criei uma validaçãozinha e pronto o código esta funconado de forma perfeita...

On Error resume Next
Response.Write "Aqui a mensagem"

Será que pode causar algum problema com isso maninho ??

até mais

[Tavinho]

:D Ainda to com um probleminha...

<% 

vSql = "SELECT * FROM tb_noticias"

Call AbreBanco()

Set myRst = ConnDB.Execute(vSql)

conteudo = myRst("noticia")
Response.Write left(conteudo,35)

%>

Até aí perfeito, mas... Na hora de chamar:

<%Response.Write left(conteudo,35)%>

Perfeito também, mostra direitinho quando possuo apenas uma noticia...Mas...

A variavel Conteudo esta armazenando o mesmo valor sempre ou seja, se tiver 10 noticias todas elas estão com o mesmo valor, o curíoso é que fizer a consulta normal, está funcionando beleza, mas com este codigo pra resumir a consulta está dando erro, sabe o que pode ser???

Ou seja:

Ex:

ID Titulo Link Data

01 Teste pg01 29/12/2006

02 Teste pg02 30/12/2006

Note que muda tudo menos o titulo....

Se puder me ajudar em mais essa...

até mais

[Henderson]

tu tem que criar um loop

pra mostrar tudo que tem no banco

<% 

vSql = "SELECT * FROM tb_noticias"

Call AbreBanco()

Set myRst = ConnDB.Execute(vSql)

If myRst.EOF Then
Response.Write "Nenhuma notícia encontrada"
Else
     while not myRst.EOF
     conteudo = myRst("noticia")
     Response.Write left(conteudo,35)
     myRst.movenext
     wend
End If
%>

[Tavinho]

:D Valeu aí mano...

vou continuar tentando aqui até dar certo..

abraços