<%
set con=server.createobject("adodb.connection")
con.open basen
Set rsn=Server.CreateObject("adodb.recordset")
sqln="Select * from noticias"
rsn.open sqln,con,3,3,&H0001
if (rsn.RecordCount>1) then
%>
>> Ver
más noticias
<%
end if
rsn.close
set rsn=nothing
%>
<%
end if
%>
<%
if (idn<>"") and isNumeric(idn) then
Set rs=Server.CreateObject("adodb.recordset")
sql="Select * from noticias where id="&idn
rs.open sql,con,3,3,&H0001
if not rs.eof then
%>
<%=ucase(rs("titular"))%>
[ <%=rs("fecha")%>
]
<%=Replace(rs("texto"),chr(10)," ")%>
<% if (trim(rs("foto"))<>"") then %>
">
<% end if %>
<%
else
%>
En estos momentos información no disponible.
<%
end if
rs.close
con.close
set rs=nothing
set con=nothing
else
%>
Han ocurrido errores internos.
En estos momentos información no disponible.
<%
end if
%>
<%'...............................................................................%>
