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