Hjælp til en kalender

Hey

Jeg er ved at lave en kalender, men jeg har nogle problemer med at få den til at skrive uge tallene rigtigt..

Kalenderen kan ses i en simpel version her: www.lyngbyvolley.dk/test.asp

Hvis i kigger på dagsdato som er markeret med fed, så er den i uge 40, hvilket er forkert, vi er i uge 41, okay, så sagde jeg uge+1 men så hvis man går frem til 1 december ved pilene i toppen, så passer den uge ikke den skriver uge 50 hvis man siger uge+1...

Derud over vil jeg gerne hvad at man f.eks. lørdag & søndag i en uge, er inde i en ny måned så skal uge tallet stå i toppen af den måned også..

Håber at I kan hjælpe, og forstå mit spm, ellers så spørg..

Her noget kode..

Thomas


<%
md = request("md")
ye = request("ye")
dato = request("dato")

if md = "" then md = month(date())
if ye = "" then ye = year(date())

kalenderTop

response.write "<table width='100%'>"

p = weekday(dateserial(ye,md,i),2)
       
        for i = 1 to day(dateSerial(ye,md+1,1-1))
           
            if p = 7 then
                response.write "<tr><td>" & "Uge " & DatePart("ww",DateAdd("ww",(i/p),DateSerial(ye,md,1)),2) & "</td></tr>"
                p = 0   
            end if
               
            if date() = dateserial(ye,md,i) then
                b = "<b>"
                b_slut = "</b>"
                bg = "DDDDDD"
                tom_besked = "Der sker ikke noget idag"
            else
                b = ""
                b_slut = ""
                bg = ""
                tom_besked = "<img src=img/empty.gif width=0 height=0>"
            end if
               
            aktivi = false
            hr = "<hr border=1 color='" & lys_gra & "'>"
               
            response.write "<tr><td>"
           
                response.write "<a href='?mode=day&ye=" & ye & "md=" & md & "&dag=" & p & "'>"
                    response.write b & weekdayname(weekday(dateserial(ye,md,i),1)) & "<br>"
                    response.write i & "." & md & "." & ye & b_slut
                response.write "</a>"

            response.write "</td><td>"
                response.write "Aktivitet"
            response.write "</td></tr>"
            p = p+1   
        next
    response.write "</table>"
   
   
Sub KalenderTop
    response.write "<table width='100%'>"
        response.write "<tr>"
            response.write "<td>"
                response.write "<a href='?md=" & DatePart("m",DateAdd("m",-1,DateSerial(ye,md,1))) & "&ye=" & DatePart("yyyy",DateAdd("m",-1,DateSerial(ye,md,1))) & "'><--</a>"
            response.write "</td>"
            response.write "<td align=center>"
                response.write "<b>" & MonthName(md) & "&nbsp;" & sy & "</b>"
            response.write "</td>"
            response.write "<td>"
                response.write "<a href='?md=" & DatePart("m",DateAdd("m",1,DateSerial(ye,md,1))) & "&ye=" & DatePart("yyyy",DateAdd("m",1,DateSerial(ye,md,1))) & "'>--></a>"
            response.write "</td>"
        response.write "</tr>"
    response.write "</table>"
end sub   
%>