<%
Dim minArray
minArray = Array("","Januari","Februari","Mars","April","Maj", "Juni","Juli","Augusti","September", "Oktober","November","December")

nu = date
if Request("MM") & "" <> "" Then
mm = CInt(Request("MM"))
Else
mm = Month(nu)
End If
if Request("YY") & "" <> "" Then
yy = CInt(Request("YY"))
Else
yy = Year(nu)
End If
if Request("NU") & "" <> "" Then
mm = Month(nu)
yy = Year(nu)
End If
nd = Day(nu)
ds = DateSerial(yy, mm ,1)
mt1 = Month(ds)
wd = DatePart("w", ds, 2)
xx = 1
%>

<form name="CAL" action="calendar.asp">
<table border="0" cellpadding="3" cellspacing="0">
<tr bgcolor="FFE4C4">
<th align="center" colspan="8"><select name="MM" onchange="document.CAL.submit()" style="font-size:10pt;"><% For j = 1 to 12 %>
<option value="<% =j %>" <% If mm = j Then %> selected="selected" <% End If %>><% =minArray(j) %><% Next %></option>
</select> <select name="YY" onchange="document.CAL.submit()" style="font-size:10pt;"><% For j = 1900 to 2100 %>
<option value="<% =j %>" <% If yy = j Then %> selected="selected" <% End If %>><% =j %><% Next %></option>
</select> <input type="SUBMIT" name="NU" value="Nu" style="font-size:10pt;" /> </th>
</tr>

<tr bgcolor="FFE4C4">
<th align="center" colspan="8"><%= minArray(mm) & " " & yy %></th>
</tr>

<tr>
<th bgcolor="FFE4C4" align="center">Vecka</th>
<th bgcolor="FFE4C4" align="center">Må</th>
<th bgcolor="FFE4C4" align="center">Ti</th>
<th bgcolor="FFE4C4" align="center">On</th>
<th bgcolor="FFE4C4" align="center">To</th>
<th bgcolor="FFE4C4" align="center">Fr</th>
<th bgcolor="FFE4C4" align="center">Lö</th>
<th bgcolor="FFE4C4" align="center">Sö</th>
<%
For rad = 1 to 5
cd = xx-wd+1
ww = DatePart("ww",DateSerial(yy, mm, cd),3)
%></tr>

<tr>
<td align="center" bgcolor="FFE4C4"><% =ww %></td>
<%
     For kol = 1 to 7
     cd = xx-wd+1
     ww = DatePart("ww", DateSerial(yy, mm, cd),2 )
     If mt1 = Month(DateSerial(yy, mm, cd)) Then
     %><% If xx >= wd Then %><% If kol > 5 Then %><% If cd = nd And mm = Month(nu) and yy = Year(nu) Then %>
<td align="center" bgcolor="FFF8DC"><b><% =cd %></b></td>
<% Else %>
<td align="center" bgcolor="FFF8DC"><% =cd %></td>
<% End If %><% Else %><% If cd = nd And mm = Month(nu) and yy = Year(nu) Then %>
<td align="center" bgcolor="FFFF00"><b><% =cd %></b></td>
<% Else %>
<td align="center"><% =cd %></td>
<% End If %><% End If %><% Else %><% If kol > 5 Then %>
<td align="center" bgcolor="FFF8DC"> </td>
<% Else %>
<td align="center"> </td>
<% End If %><% End If %><% Else %><% If kol > 5 Then %>
<td align="center" bgcolor="FFF8DC"><% Else %></td>
<td align="center"><% End If %> </td>
<%
     End If %><% xx = xx + 1
     Next
     %></tr>

<%
Next
%></table>
</form>