<% ' Constantes const kAlto = 100 Function Leer_Noticias(anys) Dim oConn, SQL, rstMenu, strResul Const kLongitud = 160 Const kNoticias = 30 Dim numero_noticia Dim noticias_por_pagina Dim pagina dim camara 'Creo el objeto Connection set oConn = Server.CreateObject("ADODB.Connection") oConn.Open = "DSN=colegiosanroque.org.sanroque" 'oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\cordon.mdb;" SQL = "Select * From Infantil_Noticia" + cstr(anys) + " Where (Caducidad is null or Caducidad > now()) Order By Fecha Desc" set rstMenu = Server.CreateObject ("ADODB.Recordset") rstMenu.Open SQL, oConn, 3, 1 ' Static - ReadOnly numero_noticia=0 'Inicializamos las noticias por pagina que mostramos Esta definido en noticia.asp noticias_por_pagina=4 while not rstMenu.eof pagina= numero_noticia \ noticias_por_pagina camara = "" if rstMenu.fields("imagen") <> "" then camara = " " end if strResul = strResul & "" strResul = strResul & " " & rstMenu.fields("Fecha") & " " & rstMenu.fields("Descripcion") & "" & camara & "" strResul = strResul & "" rstMenu.movenext numero_noticia=numero_noticia + 1 wend if (strResul = "") then response.write("No hay noticias") else response.write(strResul) end if rstMenu.close set rstMenu =nothing oConn.close set oConn = nothing end function %>
 


Es un caramelo afín a los niños de 3 años, les acompañará todo el curso..

celofan
Celofan: tiene 3 años, es alegre y dulce como un caramelo de frutas. Le encanta las
adivinanzas, jugar con sus amigos y gastar bromas divertidas. Es muy curiosa, inquieta y va de aquí para allá sin parar un  momento.
Aunque a veces se porta como una niña mimada y caprichosa, todos la quieren porque tiene un corazón grandísimo lleno de ternura.
 
celofan1
A lo largo de los cuentos, y gracias a su relación con los niños del colegio pasará de ser egocéntrica a pensar en los demás.

Espronceda 1 · Tlf. 965 33 15 60 · 03803 Alcoy (Alicante) · infantil@colegiosanroque.org