ÚLTIMAS NOTICIAS
<% On Error Resume Next Set Conexion = Server.CreateObject("ADODB.Connection") Set miconexion = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("noticias") miconexion.Open "SELECT TOP 5 * FROM noticias WHERE noticias.titulo Like '%ampusabe%'ORDER BY noticias.Id DESC;", conexion,1,3 For I = 1 to 3 %>
<% textonoticia=miconexion("texto") muestra=InStr(textonoticia,"

") -1 response.write "" Response.Write miConexion("titulo") & "
" Response.Write "Noticia" Response.Write replace(left(textonoticia,muestra),"

","") & "[+]" %>




<% miconexion.movenext Next %>
Más Noticias

<% For j =1 to 5 textonoticia=miconexion("texto") muestra=InStr(textonoticia,"

") -1 If muestra > 120 then muestra=120 End If Response.Write "" & miconexion("cat") & "
" Response.Write ":: " Response.Write miConexion("titulo") & "
" Response.Write "
" miconexion.movenext Next %>