Sidste 5 hverdage (tag højre for weekend)

Har fundet dette, måske det kan bruges til noget?

<%
dato = now()
if DatePart("w", dato) = 1 OR DatePart("w", dato) = 7 then
  response.write "Det er en Lørdag eller Søndag"
else
  response.write "Der er en hverdag i dag"

end if
%>

jeg fandt dette som jeg kunne bruge..

<%
Function weekNr(dtmDate)
    weekNr = DatePart("ww", dtmDate, vbMonday, vbFirstFourDays)
    If weekNr > 52 Then
        If DatePart("ww", int(dtmDate) + 7 , vbMonday, vbFirstFourDays) = 2 Then weekNr = 1
    End If
End Function

function Weekday2(dtmDate)
    datenr = 0
    if Weekday(dtmDate) = 1 then
        datenr = 7
    else
        datenr = Weekday(dtmDate)-1
    end if
    Weekday2 = datenr
end function

Function WeekStart(ugenr, aar)
    WeekStart = DateAdd( "ww", ugenr, "01-01-" & aar )
    if NOT weekNr(WeekStart) = ugenr then
        if weekNr(WeekStart) > ugenr then
            WeekStart = DateAdd( "ww", ugenr-(weekNr(WeekStart)-ugenr), WeekStart)
        else 'weekNr(WeekStart) < ugenr
            WeekStart = DateAdd( "ww", ugenr+(weekNr(WeekStart)-ugenr), WeekStart)
        end if
    end if
   
    MyWeekday = Weekday2(WeekStart)
    if NOT MyWeekday = 1 then
        WeekStart = Dateadd("d",1-MyWeekday,WeekStart)
    end if
End Function

myweek = weekNr(Day(Now) & "-" & Month(Now) & "-" & Year(Now))
myYear = Year(Now)
startdate = WeekStart(myweek,myYear)
%>




<%
for i = 0 to 4
usedate = DateAdd("d",i,startdate)
dbDato = Replace(dbDato,"-","/")

%>
<%=day(usedate)%>. <%=WeekdayName(weekday(usedate))%><br/>

<%
next
%>

lukker