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 %>
