CUMPLEN AÑOS ESTE MES
<%
mes=month(now())
if len(mes)=1 then
mes="0"&mes
end if
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open Application("strConnection")
strSQL="SELECT TOP 6 * From famosos where fecha_nac like '%/"&mes&"/%' and fecha_muerte='' "
'Set rs = Server.CreateObject("ADODB.Recordset")
'rs.Open sqlaux, cn, adOpenStatic, adLockReadOnly, adCmdText
set rs=cn.Execute(strSQL)
i=0
do while not rs.EOF
i=i+1
if i<=6 then
fecha1=rs("fecha_nac")
fecha2=rs("fecha_muerte")
if fecha1<>"" then
fech1=split(fecha1,"/")
dia1=fech1(0)
mes1=fech1(1)
ano1=fech1(2)
if fecha2<>"" then
fech2=split(fecha2,"/")
dia2=fech2(0)
mes2=fech2(1)
ano2=fech2(2)
else
dia2=day(now())
mes2=month(now())
ano2=year(now())
end if
if mes1<>10 then
mes1=replace(mes1,"0","")
end if
if mes2<>10 then
mes2=replace(mes2,"0","")
end if
dia1=replace(dia1,"0","")
dia2=replace(dia2,"0","")
anio=ano2-ano1
if mes2<=mes1 then
if mes2=mes1 then
if dia2
<%=anio%>
<%
else
%>
<%
end if
%>
<%
end if
rs.movenext
loop
cn.close()
%>
<%
dia=day(now())
mes=month(now())
if ((dia=28 and mes=2) or (dia=29 and mes=2) or (dia=31 and mes=1) or (dia=31 and mes=3) or (dia=30 and mes=4) or (dia=31 and mes=5) or (dia=30 and mes=6) or (dia=31 and mes=7) or (dia=31 and mes=8) or (dia=30 and mes=9) or (dia=31 and mes=10) or (dia=30 and mes=11) or (dia=31 and mes=12))then
dia="01"
mes=mes+1
else
dia=dia+1
end if
if len(dia)=1 then
dia="0"&dia
end if
if len(mes)=1 then
mes="0"&mes
end if
%>
" border="0" alt="<%=rs("nombre_artistico")%>" title="<%=rs("nombre_artistico")%>" alt="<%=rs("nombre_artistico")%>" width="107" height="140">