Visning af lektier

Jeg har et ASP script som trækker vores klasses lektier ud, en dag i forvejen. Det jeg kunne tænke mig, er at den viser en uge hele tiden. Er det muligt med ASP, eller skal jeg have fat i et JavaScript.

Her er det ASP-script jeg bruger nu:
<%
strDate=Date+1
intDay=WeekDay(strDate)
Set Opgaver=Server.CreateObject("adodb.recordset")
StrSQL="SELECT * FROM Opgaver WHERE dato ='"&StrDate&"'"
opgaver.open StrSQL, Conn
if intDay=1 then
intDay=2
if intDay=7 then
intDay=2
if intDay=6 then
intDay=2
end if
end if
end if
if intDay=2 then strDay="Mandag"
if intDay=3 then strDay="Tirsdag"
if intDay=4 then strDay="Onsdag"
if intDay=5 then strDay="Torsdag"
if intDay=6 then strDay="Fredag"
if intDay=7 then strDay="Lørdag"
if intDay=1 then strDay="Søndag"
%>
<table cellspacing="0" cellpadding="0" style="border-collapse:collapse" border="1" bordercolor="#808e9b" class="menubottom" width="150">
    <tr height="20" align="center">   
        <td class="menutop"><span>Lektier</span>
        </td>
    </tr>
    <tr>
        <td>
            <table width="100%" valign="top">
                <tr>
                    <td valign="top" height="18" align="center" class="menubottom"><%=strDay%></td>
                    </tr>
<%
if opgaver.eof then%>
                    <tr>
                        <td valign="top" class="menubottom">Der er ingen opgaver til <%=strDay%>
                        </td>
                    </tr>
<%else%>
                    <tr>
                        <td valign="top">
<%do until opgaver.eof%>
<font face="arial" size="3px" color="#313139"><%=opgaver("Fag") &": "& opgaver("type")%></font>
<br>
<font face="arial" size="2" color="#313139"><%=opgaver("opgave")%></font>
<br>
<%opgaver.movenext
loop
Conn.close
set Conn=nothing
set Opgaver=nothing
end if%>
                    </td>
                </tr>
            </table>
        </td>
    </tr>
</table>