WEEKDAY !

Hej,

Har ett litet problem med weekday.
VIll att om någon av strängarna str_monday osv har ett värde så skall loopen bara "BOKA" den dagen samt exkludera helgdagar som det kan bli.

Alltså nu bokar den hela veckan från ett datum till ett annat utom lördag och söndag.

MEn om man markerar måndag så ska den bara boka måndagar samt inga helgdagar.

Dim str_startdate, str_enddate, str_count

str_startdate = Cdate(""& Request.Form("startdate") &"")
str_enddate = Cdate(""& Request.Form("enddate") &"")

Dim str_monday, str_tuesday, str_wednesday, str_thursday, str_friday

str_monday = Request.Form("monday")
str_tuesday = Request.Form("tuesday")
str_wednesday = Request.Form("wednesday")
str_thursday = Request.Form("thursday")
str_friday = Request.Form("friday")

str_count = 0

  Do Until str_startdate = str_enddate
If WeekDay(str_startdate) < 7 and WeekDay(str_startdate) > 1 Then
  Response.Write(""& str_startdate &"&nbsp;BOKA<BR>")
Else
  Response.Write(""& str_startdate &"&nbsp;BOKA EJ<BR>")
End if
 
  str_startdate = DateAdd("d", 1, str_startdate)
  str_count = str_count + 1

Loop

Någon som har en idé ?

Mvh
Martin

Do Until str_startdate = str_enddate
  If (WeekDay(str_startday, 2) < 6 And WeekDay(str_startday, 2) > 0) And _
  (str_monday <> "" Or str_tuesday <> "" Or str_wednesday <> "" Or str_thursday <> "" Or str_friday <> "") Then
    Response.Write str_startday & " BOKA<br>"
  Else
    Response.Write str_startday & " BOKA EJ<br>"
  End If

  str_startdate = DateAdd("d", 1, str_startdate)
  str_count = str_count + 1
Loop

WeekDay(Date, 2)... 2:an innebär att VBS ska använda Måndag som veckans första dag. Så Måndag = 1 och Fredag = 5