|
|
|
|
|
|
|
|
<%
sql="SELECT COUNT(*) FROM Noticias "
BaseDatos.Open sql, BD
Total = BaseDatos(0)
BaseDatos.close
Valor = Total/5
ValorInt = int(Valor)
if Valor = ValorInt then
else
Valor = ValorInt + 1
end if
if Total<=DondeFinal then
DondeFinal = Total
end if
%>
<%
sql="SELECT * FROM Noticias ORDER BY Id_Noticia DESC"
BaseDatos.Open sql, BD
contador = 1
Do While Not BaseDatos.Eof
if contador >= cint(Dondeinicial) AND contador<=cint(DondeFinal) then
IdNoticia = BaseDAtos("Id_Noticia")
Fecha = BaseDatos("Fecha")
Titulo = BaseDatos("Titulo")
Subtitulo = BaseDatos("Subtitulo")
imagen1 = BaseDatos("imagen1")
imagen2 = BaseDatos("imagen2")
imagen3 = BaseDatos("imagen3")
imagen4 = BaseDatos("imagen4")
imagen5 = BaseDatos("imagen5")
documento1 = BaseDatos("documento1")
documento2 = BaseDatos("documento2")
documento3 = BaseDatos("documento3")
documento4 = BaseDatos("documento4")
documento5 = BaseDatos("documento5")
video = BaseDatos("video")
if imagen1="AND" OR imagen1="0" AND imagen1="0" AND imagen1="0" AND imagen1="0" then
HayImagen="N"
else
HayImagen = "S"
end if
if documento1="0" AND documento1="0" AND documento1="0" AND documento1="0" AND documento1="0" then
Haydocumento="N"
else
Haydocumento = "S"
end if
if video="0" then
HayVideo = "N"
else
HayVideo = "S"
end if
%>
|
|
|
|
|
<%IF HayDocumento="S" then%> <%end if%>
<%IF HayImagen="S" then%>  <%end if%>
<%IF HayVideo="S" then%>  <%end if%>
|
|
|
|
|
|
|
|
<%
end if
BaseDatos.MoveNext
contador = contador + 1
Loop
BaseDatos.close
%>
|
|
|
|
|
|
|
|
|
|