Link Externo

[fabio Avila 1]

Ola Galera ,

 

É o seguinte tenho um codigo que utilizo em outro script de noticias que roda perfeito , é utilizado para noticias com link interno e externo(outro sites) porem não consigo adapta-l para outro codigo de noticias ..

Codigo Lnk Externo rodando perfeito no outro script

 

if rs("externo") = 0 then
          loop1 = loop1 & " <a href='detalhes_noticias.asp?id=" &rs("ID")&" 'target='_top'>"
        else
          loop1 = loop1 & "<a href='http://"&rs("link")&"' target='_blank'>"
        end if

 

Codigo da Noticia aonde não consigo inserir nele o codigo acima

 

 <%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 = 0
For x = 1 to 9999
If rs.eof then
	Exit For
Else
	date1 = rs("data")
	id = rs("ID")
	name1 = rs("titulo")
	name2 = rs("materia")
  	link = "<a href='../detalhes_noticias.asp?id=" & id & "'>" & date1 & "</a>"
	description = materia%>

<font face="Arial" style="font-size: 10pt"> </font>
 <tr> 
   <img border="0" src="news.gif"><font color="#C0C0C0" style="font-size: 08pt; font-weight: 700" face="Arial"><% =date1 %><br> <% if rs("foto") = "N" then %> <% end if %><font color="#006699" style="font-size: 9pt; font-weight: 700" face="Arial"><% =name1 %><a href="detalhes_noticias.asp?id=<%=id%>" target="_top"><font color="#FFFFFF" style="font-size: 9pt; font-weight: 700" face="Arial"><font color="#000000"><br><%=left(RS("materia"),120)%>......<br><br>Leia mais....</font><a href="../detalhes_noticias.asp?id=<%=id%>" target="_top"><font color="#000000">
   </font></a><font face="Arial" style="font-size: 10pt"> </font>
     <span style="font-size: 8pt; "><br><img border="0" src="linha.gif" width="660" height="1">
                               <font face="Arial" style="font-size: 9pt; font-weight: 700">
                               <font face="Arial"><br>
                               </font></font></span></span></font></tr>
 <tr>
 <%
rs.MoveNext
End If
Next%>

 

Obrigado !!

[xanburzum 169]

o que realmente você quer fazer, seja mais especifico.

[fabio Avila 1]

Como ja citei acima eu tenho um script de noticias aonde tem a opção do link da noticia ser externo ou interno , com os seguintes campos no seu cdastro :

 

TIPO DE NOTICIAS ( Interno ou Externo)

TITULO DA NOTICIA

LINK DA NOTICIA (Endereço da noticia de outro site )

TEXTO DA NOTICIA

 

Ou seja quando quero por uma noticia do site do UOL por exemplo eu escolho tipo de noticia Externo , coloco o titulo da Noticia e o link do site da Uol aonde tem a noticia ..

 

Ja se for uma noticia da empresa mesmo eu escolo tipo de noticia Interno , colocolo o tiulo e o texto da noticia .. entendeu ...

[Gilberto Jr 26]

Boa noite.

 

Na sua base de dados tem a coluna TIPO_DE_NOTICIA, nela deve ter algum valor, tipo 1=Interno e 2=Externo.

 

Ai você faz o seguinte no meu ponto de vista.

 

if tipo_de_noticia = 1 then
response.write("link_interno")
elseif tipo_de_noticia = 2 then
response.write("link_externo")
end if

 

No meu caso eu acho que isso da certo.

[fabio Avila 1]

Boa Noite Gilberto ,

 

Em que linha coloco esse código ?

 

Obrigado

[Gilberto Jr 26]

Boa Noite Gilberto ,

 

Em que linha coloco esse código ?

 

Obrigado

 

Eu colocaria a onde eu quero que aparece o link. No seu codigo pelo o que eu vi tem dois links você pode alterar.

Ao inves de você usar o response.write("") pode usar da seguinte forma.

 

<%
if tipo_de_noticia = 1 then
%>
códico do link_interno
<%
elseif tipo_de_noticia = 2 then
%>
código link_externo
<%
end if
%>

 

Ve se te ajuda.

[xanburzum 169]

tem um sistema de nóticias para blog onde você consegue fazer isso, na verdade ele tem um campo radionbutton que você escolhe se quer uma noticia normal (interna) dae ele abre um form para você digitar a noticia ou escolher interna e colar o link da fonte (url).

[fabio Avila 1]

xanburzum,

 

Me passe o link desse sistema por favor...

 

Obrigado

[xanburzum 169]

me mande um email que te passo o zip