Find no if weekend days from 2 given dates..

[Guest]

i am trying to create a function that take 2 SelectedDate from a Calendar and
calculates the no. of days between 2 dates and also calculates the no of
weekends (sundays and saturdays) and at last it gives the difference between
total days minus weekdays..

when i run this script the loop is not ending...my sysytem hangs...

calFromDay.SelectedDate ' from day
calToDay.SelectedDate ' to day

Function ndays(ByVal Fromdate As Date, ByVal Todate As Date)

' define sunday, daterday, ubilice holiday dates
Dim sDay, As Integer
' define total day and total leave and result days.
Dim tday, lday, bday As Integer

'calculate the difference
tday = DateDiff(DateInterval.Day, Fromdate, Todate)
Response.Write("total days " & tday)

'calculate the difference
sDay = 0
While Fromdate <= Todate ' Test value of Counter.

If Weekday(Fromdate) = 1 Or 7 Then
sDay = +1
End If
Fromdate.AddDays(1)
End While
Response.Write("<br><br>Leave days " & sDay)
Response.Write("<br><br>balace is " & (tday -sDay))

End Function

 

[Guest]

fromdate = fromdate.adddays(1)