Datumproblem

Har denna kod och vill nu att om det är ex lördag eller söndag så ska den visa nästa veckas Måndag-Fredag.

<select name="WeekDate" style="width:100%;">
  <%firstday = Year(Now) & "-" & Month(Now) & "-01"
  fweek = datepart("ww", now)
  If fweek > 1 Then
     startday = DateAdd("d",8-weekday(firstday,vbmonday),firstday)
  Else
     startday = DateAdd("d",-6-weekday(firstday,vbmonday),firstday)
  End if

  startday = dateadd("ww",weekno,startday)
  For d = startday To startday + 4%>
    <option value="<%=d%>"><%=UCase(Left(WeekDayName(WeekDay(d)),1)) & LCase(Mid(WeekDayName(WeekDay(d)),2))%> (<%=day(d)%>/<%=Month(Now)%> )</option>
  <%Next%>
</select>

Jag gjorde så här men det kanske inte är så bra men det funkade.

<select name="WeekDate" style="width:100%;">
  <%firstday = Year(Now) & "-" & Month(Now) & "-01"
  fweek = datepart("ww", now)
  If fweek > 1 Then
     startday = DateAdd("d",8-weekday(firstday,vbmonday),firstday)
  Else
     startday = DateAdd("d",-6-weekday(firstday,vbmonday),firstday)
  End if

[b]  If Weekday(now) = 1 Or Weekday(now) = 7 Then
    startday = dateadd("ww",weekno,startday)+7
  Else
    startday = dateadd("ww",weekno,startday)
  End If[/b]
  For d = startday To startday + 4%>
    <option value="<%=d%>"><%=UCase(Left(WeekDayName(WeekDay(d)),1)) & LCase(Mid(WeekDayName(WeekDay(d)),2))%> (<%=day(d)%>/<%=Month(Now)%> )</option>
  <%Next%>
</select>