Link Externo

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 !!