<% @LCID = 1034 %> <% Dim Fecha1, Fecha2, Fecha3, diasem, dia, mes, ano, cont, dcont, tmes, diafin, mesant, mesdes, anoant, anodes, ano1, ano2 cont=0 dcont=0 dia=day(Now()) If Request.Querystring("ms")=0 then mes=month(Now()) else mes=Cint(Request.Querystring("ms")) If Request.Querystring("yr")=0 then ano=year(Now()) else ano=Cint(Request.Querystring("yr")) ano1=ano ano2=ano tano=ano mesant=mes-1 mesdes=mes+1 anoant=ano-1 anodes=ano+1 if mesant=0 then mesant=12 ano1=ano-1 end if if mesdes=13 then mesdes=1 ano2=ano+1 end if fecha1=FormatDateTime("1/"&mes&"/"&ano, vbLongDate) diasem=Mid(fecha1,1,2) if mes=12 then fecha2="1/1/"&ano+1 else fecha2="1/"&mes+1&"/"&ano end if fecha3=Cdate(fecha2)-1 diafin=day(fecha3) If mes=01 then tmes="Enero " If mes=02 then tmes="Febrero " If mes=03 then tmes="Marzo " If mes=04 then tmes="Abril " If mes=05 then tmes="Mayo " If mes=06 then tmes="Junio " If mes=07 then tmes="Julio " If mes=08 then tmes="Agosto " If mes=09 then tmes="Septiembre" If mes=10 then tmes="Octubre " If mes=11 then tmes="Noviembre " If mes=12 then tmes="Diciembre " if Lcase(diasem)="lu" then cont=1 if Lcase(diasem)="ma" then cont=2 if Lcase(diasem)="mi" then cont=3 if Lcase(diasem)="ju" then cont=4 if Lcase(diasem)="vi" then cont=5 if Lcase(diasem)="sá" then cont=6 if Lcase(diasem)="do" then cont=7 %>
<% if cont>1 then For i=1 to cont-1 %> <% Next For i=cont to 7 dcont=dcont+1 if dcont=dia and mes=Cint(month(Now())) and ano=Cint(year(Now())) then %> <% else %> <% end if %> <% Next end if %> <% Do while dcont <% For i=1 to 7 dcont=dcont+1 if dcont>diafin then %> <% else if dcont=dia and mes=Cint(month(Now())) and ano=Cint(year(Now())) then %> <% else %> <% end if %> <% end if %> <%Next %> <% Loop %>

<%Response.write tmes%>

  <%Response.write tano%>

L M X J V S D
 <% Response.write dcont %><% Response.write dcont %>
.<% Response.write dcont %><% Response.write dcont %>

::::::: (C) OpcionWeb.com :::::::