<%
'On Error Resume Next
dim cadena_SQL
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open cnString
cadena_SQL="SELECT * FROM afodisa_noticias ORDER BY id DESC;"
Set registros = cnn.Execute(cadena_SQL)
if not(registros.EOF) then
if Err.Description <>"" then
Response.Write "
Error en la base de datos: "& Err.Description & ""
else
c=1
response.write("")
response.write(" |
| T I T U L A R E S |
")
response.write(" | ")
While ((c <= 10) AND (NOT registros.EOF))
response.write("
")
response.write("···> " & registros("titulo") & " |
")
c=c+1
registros.MoveNext()
Wend
response.write(" | ")
response.write("
| N O T I C I A S |
")
response.write(" | ")
registros.Movefirst()
c=1
While ((c <= 10) AND (NOT registros.EOF))
response.write("
|
")
if not(registros("imagen")="" or registros("imagen")="0") then response.write("![](http://www.afodisa.org/imagenes/noticias/" & registros("imagen") & ") ")
response.write("" & registros("titulo") & "
")
if not(registros("fuente")="" or registros("fuente")="0") then response.write("Fuente: " & registros("fuente") & "
")
response.write("
" & registros("reportaje") & "
|
")
response.write(" |
| Subir |
|
|
")
c=c+1
registros.MoveNext()
Wend
response.write("
")
end if
end if
registros.Close()
cnn.close
Set registros = Nothing
Set cnn = Nothing
%>
