<%
DateFrom="10/1/2012"
DateTo="10/31/2012"
Weekends=0
ActualDays=0

' Step 1: Get the actual days
ActualDays=DateDiff("d",DateFrom,DateTo)

' Step 2: Find the weekends
For x = 0 to ActualDays - 1
     xDate=dateadd("d",x,DateFrom)
    if weekday(xDate,1)=1 or weekday(xDate,1)=7 then
         Weekends=Weekends+1
    end if
next

WorkingDays = ActualDays - Weekends

response.write "ActualDays: "&ActualDays  &" Weekends: "& Weekends &" WorkingDays: "& WorkingDays
%>