myEndDate = "01/02/2010"
myVarDate = "01/01/2010" ' Start Date
do until myVarDate > myEndDate
if Weekday(myVarDate) = "7" OR Weekday(myVarDate) = "1" then myWeekends = myWeekends + 1
myVarDate = dateadd("d",1,myVarDate)
loop
response.write "<br>Number of weekend days: " & myWeekends & "<br>"