<%
Function NextDate(nmonth, nTh, myday)
    '*************************************************
    'thanks to
    'http://michaelthompson.org/technikos/holidays.php
    '*************************************************
    Select Case myday
        Case "Mon"
            nTargetday = 2
        Case "Tue"
            nTargetday = 3
        Case "Wed"
            nTargetday = 4
        Case "Thu"
            nTargetday = 5
        Case "Fri"
            nTargetday = 7
        Case "Sat"
            nTargetday = 0
        Case "Sun"
            nTargetday = 1
    End Select
    'if month = 13 them ad 1 to the year
    'not tested cause it only come once a year 
    'it should work
    if nmonth = 13 then
    nmonth = 1
    nyear = Year(Date) + 1 
    else
    nyear = Year(Date)
    end if
    nEarliestDate = 1 + 7 * (nTh - 1)
    nWeekday = Weekday(DateValue(nEarliestDate & "/" & nmonth & "/" & nyear), vbSunday)
    If nWeekday = nTargetday Then
        noffset = 0
    ElseIf nTargetday < nWeekday Then
        noffset = nTargetday + (7 - nWeekday)
    Else
        noffset = (nTargetday + (7 - nWeekday)) - 7
    End If
	'is the date pass the date in question
	'need add 1 month to it
    nextD = nEarliestDate + noffset & " " & MonthName(nmonth, True) & " " & nyear
    checkdate  = DateValue(nEarliestDate + noffset & "/" & nmonth & "/" & nyear)

    if  date > checkdate then
	    nexx = nmonth + 1
        NextDate = NextDate(nexx,nth,myday)
    else
		NextDate = nextD    
    end if
    
End Function


%>