[Resolvido] Noticias com Link Exerno

[FGC 0]

Ola amigos ,

 

É seguinte temos um sistema de noticias no site que funciona legalzinho .. eis que me pediram a seguinte colocar algums noticias mas com o link de outro site ou seja a pessoa cadastra apenas o TITULO , FOTO e o LINK externo ..

 

Como incluir esta opção dentro da noticia lembrando que vai ter a noticias normais e esta externas dentro do bd...

 

Agradeco pela força..

 

Vw

[xanburzum 169]

você pode usar um code para pegar o HTML de determinada página e inserir na sua, consulte o lab. de script, que coloquei um script que faz isso.

[saloeric 1]

já pensou usar um editor de texto tipo ckeditor?

[FGC 0]

Ola saloeric

 

Nunca usei este ckeditor é muito complicado de utilizar ?

 

Pois a funcao que o amigo xanburzum é so para exibir dados de outro site e na verdade eu preciso ter uma opção dentro do meu cadastro de noticias para em alguma noticias eu cadastrar as noticias normais nossas com TITULO, FOTO E MATERIA COMPLETAS e outras com apenas TITULO E FOTO e linkar a Materia de outro site.. entenderam minha duvida ?

 

ab

[xanburzum 169]

se for inserido um texto, ou seja, alguem copiar e colar ou adicionar texto via digitação, dae sim é valido um editor de texto, agora se quiser pegar a noticia direto do site use o método que citei.

[saloeric 1]

pelo que entendi quer que quando seja uma noticia externa ao linkar vá directo para o site externo, sendo assim, basta acrescentar mais dois campos na sua tabela noticias, que se podem chamar de externo(numerico) e link(varchar), depois no seu formulário de inserir a noticia tem na mesma os campos titulo e foto, e depois pode por uma combobox para o utilizador escolher se a noticia vai ser externa ou interna, se escolher interna amostra uma textarea se escolher externa amostra uma textbox para por o link. No campo "externo" coloca 0 se for interna e 1 se for externa para depois ser mais fácil para saber de que tipo é a notícia;

 

if rs("externo") = 0 then 
response.redirect "link-interno"
else
response.redirect "linkexterno"
end if

[FGC 0]

saloeric,

 

Um dúvida meus links para abrir as noticias estão pegando pelo ID da Noticia , eu teria que mudar a forma do link tb neste caso para quando for externa ?

 

Obrigado

[saloeric 1]

sim, veja o exemplo, eu tinha feito com o redirect mas o certo seria no href,

 

if rs("externo") = 0 then 
       response.write "<a href=""noticia.asp?id="&rs("idnoticia")&""">Titulo Noticia</a>"
else
      response.write "<a target=""_blank"" href="""&rs("link")&""">Titulo Noticia</a>"    'aqui no campo link seria do tipo "http://www.google.com"
end if

 

[fabio Avila 1]

saloeric

 

Inclui os campos LINK E EXTERNO no BANCO e Formulario de Cadastro , agora o codigo

 

if rs("externo") = 0 then 
       response.write "<a href=""noticia.asp?id="&rs("idnoticia")&""">Titulo Noticia</a>"
else
      response.write "<a target=""_blank"" href="""&rs("link")&""">Titulo Noticia</a>"    'aqui no campo link seria do tipo "http://www.google.com"
end if

 

Eu coloco dentro da PAGINA que exibe as noticias correto ?

 

Obrigado

[xanburzum 169]

oq ue realmente você quer é pegar o conteúdo de uma notícia de outra página, é isso ?

[FGC 0]

O que preciso é apenas direcionar para a outra pagina (linkar) ... ou seja quando a pessoa clicar na noticia vai ir apra o outro site .. só isso que preciso...

[xanburzum 169]

use o redirect, um simples js para a url

[FGC 0]

Boa Noite Amigos..

 

O exemplo do amigo saloeric deu certo em partes porém não to conseguindo colocar ele dentro do LOOP alguem pode me ajudar a colocar dentro do Loop ...

 

segue o codigo do loop... obrigado !

 

<%
     sqlstmt = "SELECT TOP  4 * FROM noticias ORDER BY Id DESC"

     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open sqlstmt, Dados, 3, 3
     TotalRecs = rs.recordcount
     x = 1
     loop1 = ""
     loop2 = ""

     while not rs.EOF

        if rs("externo") = 0 then  
       response.write "<a href='detalhes_noticias.asp?id=" &rs("ID")&"'>Titulo Noticia</a>" 
else 
    response.write  "<a target='_blank' href="&rs("link")&"'>Titulo Noticia</a>"    
end if

        loop1 = loop1 & ""

loop1 = loop1 & "<li>"
loop1 = loop1 & "<a href='detalhes_noticias.asp?id=" & rs("ID") & "'>"
loop1 = loop1 & "<img src='imagens/" & rs("foto") & "' class='thumb' id='thumb-" & x & "' />"

loop1 = loop1 & "</a>"
loop1 = loop1 & "</li>"


        loop2 = loop2 & ""



loop2 = loop2 & "<li>"
loop2 = loop2 & "<a href='detalhes_noticias.asp?id=" & rs("ID") & "'>"
loop2 = loop2 & "<span class='secao'>" & rs("categoria") & "</span>"
loop2 = loop2 & "<div class='seta'></div>"
loop2 = loop2 & "<span class='titulo'>" & rs("titulo") & "</span>"
loop2 = loop2 & "</a>"
loop2 = loop2 & "</li>"

        %>


<%
       u = u+1
       rs.MoveNext
     wend
     rs.close
%>

[FGC 0]

Boa Noite amigo....

 

Seguinte consegui colocar dentro do loop o código mas ainda tem um problema e gostaria da ajuda de vcs , ele só esta abrindo o link das noticias pegas pelo ID , já as pegas pelo Endereço do Site não abre nada ... abaixo o trecho do códgo para analise..

 

        loop2 = loop2 & ""
if rs("externo") = 0 then  
      loop2 = loop2 & " <a href='detalhes_noticias.asp?id=" &rs("ID")&"'>" 
else 
 response.write  "<a target='_blank' a href="&rs("link")&"'>"    
end if

        %>

[saloeric 1]

Olá, no seu loop basta isto,

 

sql = "select top 4 * from noticias order by id desc"
...

while not rs.eof

response.write "<li>"


if rs("externo") = 0 then  
      		response.write "<a href=""detalhes_noticias.asp?id="&rs("ID")&""">" 
else 
 		response.write  "<a target=""_blank"" href="""&rs("link")&""">"    
end if

response.write "</li>"


rs.movenext
wend

verifique o que está a trazer o campo "link", terá que vir com o endereço completo, "http://..."

 

[FGC 0]

Saloeric,

 

Coloquei seu exemplo e deu o erro abaixo :

 

Microsoft VBScript compilation  error '800a0400'

Expected statement

/noticiascoxa/novo.asp, line 66

wend
^

 

Valeu!

[saloeric 1]

mostre o seu código pois o que eu pus foi um exemplo e não cheguei a testar, indique no código também qual é a linha

[FGC 0]

Ola Saloeric , beleza

 

Segue o codigo completo

 

<%
     sqlstmt = "SELECT TOP  4 * FROM noticias ORDER BY Id DESC"

     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open sqlstmt, Dados, 3, 3
     TotalRecs = rs.recordcount
     x = 1
     loop1 = ""
     loop2 = ""

     while not rs.eof

       response.write "<li>"


       if rs("externo") = 0 then  
               response.write "<a href=""detalhes_noticias.asp?id="&rs("ID")&""">" 
       else 
               response.write  "<a target=""_blank"" href="""&rs("link")&""">"    
       end if

       response.write "</li>"


rs.movenext
wend
        loop1 = loop1 & ""

loop1 = loop1 & "<li>"
loop1 = loop1 & "<a href='detalhes_noticias.asp?id=" & rs("ID") & "'>"
loop1 = loop1 & "<img src='imagens/" & rs("foto") & "' class='thumb' id='thumb-" & x & "' />"

loop1 = loop1 & "</a>"
loop1 = loop1 & "</li>"


        loop2 = loop2 & ""



loop2 = loop2 & "<li>"
loop2 = loop2 & "<a href='detalhes_noticias.asp?id=" & rs("ID") & "'>"
loop2 = loop2 & "<span class='secao'>" & rs("categoria") & "</span>"
loop2 = loop2 & "<div class='seta'></div>"
loop2 = loop2 & "<span class='titulo'>" & rs("titulo") & "</span>"
loop2 = loop2 & "</a>"
loop2 = loop2 & "</li>"

        %>


<%
       u = u+1
       rs.MoveNext
     wend
     rs.close
%>

 

A linha que da o erro é aqui :

 

<%
       u = u+1
       rs.MoveNext
     wend
     rs.close
%>

 

Obrigado

[xanburzum 169]

você esta usando um while com dois end

[FGC 0]

Olá,

 

retirei um WEND e agora ficou o erro :

 

ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/noticiascoxa/fabio3.asp, line 5

 

Valeu