Estate atento al calendario y no te pierdas ninguna de nuestras actividades
   
 
<% response.buffer = true set registro=Server.CreateObject("ADODB.recordset") strSql = "SELECT fecha, texto, id, foto FROM calendario ORDER BY fecha DESC" registro.CursorType = 2 registro.CursorLocation = 2 registro.LockType = 1 registro.Open strSql, Conn If Err.Description <> "" then Response.Write "Error en Base de Datos: " & Err.Description & "" Else If registro.BOF=false then registro.MoveFirst Do While Not registro.EOF dia=Day(fecha) mes=Month(fecha) ano=Year(fecha) Select Case mes Case 1 mes = "Enero" Case 2 mes = "Febrero" Case 3 mes = "Marzo" Case 4 mes = "Abril" Case 5 mes = "Mayo" Case 6 mes = "Junio" Case 7 mes = "Julio" Case 8 mes = "Agosto" Case 9 mes = "Septiembre" Case 10 mes = "Octubre" Case 11 mes = "Noviembre" Case 12 mes = "Diciembre" Case Else mes = "ERROR!" End Select %>
 
<% if registro.Fields("foto")<> "" then %> " width="60" height="60" /> <% else %>   <% end if %>     <%=registro.Fields("fecha")%>   "><%=registro.Fields("texto")%>
<% registro.MoveNext Loop end if end if %>
 
 
© Instituto Jane Goodall España - Todos los derechos reservados