Novedades del Instituto Superior Antonio Ruiz de Montoya

<%@LANGUAGE="VBSCRIPT"%> <% set Noticias = Server.CreateObject("ADODB.Recordset") Noticias.ActiveConnection = MM_MiConexion_STRING Noticias.Source = "SELECT Nota, FechaPublicacion, Titulo, Sector, Mas,IdNota FROM Novedades WHERE (Publicar = 0) and (Zona=2) Order By IdNota Desc" Noticias.CursorType = 0 Noticias.CursorLocation = 2 Noticias.LockType = 3 Noticias.Open() Noticias_numRows = 0 %> <% set Der = Server.CreateObject("ADODB.Recordset") Der.ActiveConnection = MM_MiConexion_STRING Der.Source = "SELECT Nota, Titulo FROM Novedades Where ((Publicar =0) and (Zona = 3))" Der.CursorType = 0 Der.CursorLocation = 2 Der.LockType = 3 Der.Open() Der_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Noticias_numRows = Noticias_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 Der_numRows = Der_numRows + Repeat2__numRows %> Novedades del Instituto Superior Antonio Ruiz de Montoya - I.S.A.R.M.

: <% =" " %> <% =FormatDateTime(Time(),4)%>

<% While ((Repeat1__numRows <> 0) AND (NOT Noticias.EOF)) %>

<%= ucase((Noticias.Fields.Item("Sector").Value))%>

<%=(Noticias.Fields.Item("Titulo").Value)%>- (<%=(Noticias.Fields.Item("FechaPublicacion").Value)%>)

<%=(Noticias.Fields.Item("Nota").Value)%>
<% if Noticias.Fields.Item("Mas").Value = "Si" then %>

"> <% End if%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Noticias.MoveNext() Wend %>

<% While ((Repeat2__numRows <> 0) AND (NOT Der.EOF)) %>

<%=ucase((Der.Fields.Item("Titulo").Value))%>

<%=(Der.Fields.Item("Nota").Value)%>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Der.MoveNext() Wend %>

Novedades y Noticias del Centro de Rehabilitación del Ciego
SANTA ROSA DE LIMA
Posadas - Misiones - Argentina
mail: crciego@isparm.edu.ar
©2003

<% Noticias.Close() %> <% Der.Close() %>