<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
Session.LCID = 2058
%>
<%
Dim norem, fecrec, fcap
norem = Request("norem")
Fecrec = Request("fecrec")
%>
<html>
<head>
<title>Grupo MIM</title>
<style>
Body {background-color:#EAEBE6;}
.calFondoCalendario {background-color:##003366;}
.calEncabe {font-family:Arial, Helvetica, sans-serif; font-size:11px}
.calFondoEncabe {background-color:#003366}
.calDias {font-family:Arial, Helvetica, sans-serif; font-size:12px; font-weight:900; text-decoration:bold}
.calSimbolo {font-family:Arial, Helvetica, sans-serif; font-size:11px; text-decoration:none; font-weight:200; color:#003366}
.calhead {font-family:Arial, Helvetica, sans-serif; font-size:11px; text-decoration:none; font-weight:200; color:#FFFFFF}
.calResaltado {font-family:Arial, Helvetica, sans-serif; font-size:11px; text-decoration:none; font-weight:700}
.calCeldaResaltado {background-color:#003366}
.CalNeg {font-family:Arial, Helvetica, sans-serif; font-size:11px; text-decoration:none; font-weight:200; color:#000000}
A {color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:11px;}
A:visited {color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:11px;}
A:hover {color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:11px;}
A:active {color:#FFFFFF; font-family:Arial, Helvetica, sans-serif; font-size:11px;}
</style>
</head>
<BODY>
<!--#INCLUDE FILE="BARRA.asp"-->
<div class="normal" style="position:absolute; top:1px; left:20">
<center>
<%
'pagina que recibirá la fecha seleccionada por el usuario
Const URLDestino = "BcalenP.asp"
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row
MyMonth = Request("Month")
MyYear = Request("Year")
If IsEmpty(MyMonth) then MyMonth = Month(Date)
if IsEmpty(MyYear) then MyYear = Year(Date)
If MyMonth < 10 Then
MyMonth = 0 & MyMonth
Else
MyMonth = MyMonth
End If
Call ShowHeader (MyMonth, MyYear)
FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) -1
CurrentDay = 1
'Let's build the calendar
For Row = 0 to 5
For Col = 0 to 6
If Row = 0 and Col < FirstDay then
%>
<td> </td>
<%
elseif CurrentDay > LastDay(MyMonth, MyYear) then
%>
<td> </td>
<%
else
%>
<td
<%
if cInt(MyYear) = Year(Date) and cInt(MyMonth) = Month(Date) and CurrentDay = Day(Date) then
If Currentday < 10 then
Currentday = 0 & Currentday
Else
Currentday = Currentday
end If
%>
class="calCeldaresaltado" align="center">
<%
else
If Currentday < 10 then
Currentday = 0 & Currentday
Else
Currentday = Currentday
end If
%>
align="center">
<%
end if
%>
<a href="calrem.asp?norem=<%= norem %>&Fecrec=<%= fecrec %>>"
onclick="window.opener.location.reload('FECRECIBO.asp?<%= norem %>&Fecrec=<%= fecrec%>');
window.close()">
<%
if cInt(MyYear) = Year(Date) and cInt(MyMonth) = Month(Date) and CurrentDay = Day(Date) then
%>
<div class="calResaltado">
<%
else
%>
<div class="calneg">
<%
end if
%>
<%= CurrentDay %> </div></a></td>
<%
CurrentDay = CurrentDay + 1
End If
Next
%>
</tr>
<%
Next
%>
</table>
<%
'------ Sub and functions
Sub ShowHeader(MyMonth,MyYear)
%>
<table border="1" cellspacing="3" cellpadding="3" width="200" align="center" class="calFondoCalendario">
<tr align="center">
<td colspan="7">
<table border="0" cellspacing="1" cellpadding="1" width="100%" class="calFondoEncabe">
<tr>
<td align="left" style=Color="FFFFFF">
<a href="calrem.asp?norem=<%= norem %>&Fecrec=<%= fecrec %>>
<%
if MyMonth - 1 = 0 then
%>
&month=12&year=<%= MyYear -1 %>"
<%
else
%>
&month=<%= MyMonth - 1 %>&year<%= MyYear%>"
<%
end if
%>
<span class="calHead"><<</span></a>
<span class="calHead"> <b><%= MonthName(MyMonth) %></b> </span>
<a href="calrem.asp?norem=<%= norem%>&Fecrec=<%= fecrec %>>
<%
if MyMonth + 1 = 13 then
%>
&month=1&year=<%= MyYear + 1 %>"
<%
else
%>
&month=<%= MyMonth + 1 %>&year=<%= MyYear %>"
<%
end if
%>
<span class="calHead">>></span></a>
</td>
<td align="center">
<a href="calrem.asp?norem=<%= norem %>&Fecrec=<%= fecrec %>>
&month=<%= Month(Date()) %>&year=<%= Year(Date()) %>"
<div class="calHead"><b>Hoy</b></div></a>
</td>
<td align="right">
<a href="calrem.asp?norem=<%= norem %>&Fecrec=<%= fecrec %>>
&month=<%= MyMonth %>&year=<%= MyYear -1 %>"
<span class="calHead"><<</span></a>
<span class="calHead"> <b><%= MyYear %></b> </span>
<a href="calrem.asp?norem=<%= norem %>&Fecrec=<%=fecrec %>>
&month=<%= MyMonth %>&year=<%= MyYear + 1 %>"
<span class="calHead">>></span></a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td><div class="calDias"><b>D</div></td>
<td><div class="calDias"><b>L</div></td>
<td><div class="calDias"><b>M</div></td>
<td><div class="calDias"><b>X</div></td>
<td><div class="calDias"><b>J</div></td>
<td><div class="calDias"><b>V</div></td>
<td><div class="calDias"><b>S</div></td>
</tr>
<%
End Sub
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Enero"
Case 2
MonthName = "Febrero"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Abril"
Case 5
MonthName = "Mayo"
Case 6
MonthName = "Junio"
Case 7
MonthName = "Julio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Septiembre"
Case 10
MonthName = "Octubre"
Case 11
MonthName = "Noviembre"
Case 12
MonthName = "Diciembre"
Case Else
MonthName = "ERROR!"
End Select
End Function
Function LastDay(MyMonth, MyYear)
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31
Case 4, 6, 9, 11
LastDay = 30
Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28
Case Else
LastDay = 0
End Select
End Function
%>
<HR>
</div>
</body>
</html>
<%
%>