<%estemes=month(date)
if len(estemes)<2 then
estemes=0&estemes
end if
esteano=year(date)
estafecha= esteano & estemes & "00"
vsql="select * from CALENDAR where FECHA > '" & estafecha & "' order by FECHA"
set rsX=bdatos.execute(vsql)%>
<%h=0
while not rsX.eof and h<3%>
<%ANO=left(rsX("FECHA"),4)
MES=MID(rsX("FECHA"),5,2)
DIA=MID(rsX("FECHA"),7,2)
fecha=DIA & " " & MonthName(Cint(MES)) & " " & ANO & " : "
%>
