Add a number of working days to a given date.

add_working_days.asp

<%
Function add_working_days(start_date, to_add)
    For days = 0 To to_add - 1
        start_date = DateAdd("d", 1, start_date)
        If DatePart("w", start_date) = 1 Then
            start_date = DateAdd("d", 1, start_date)
        ElseIf DatePart("w", start_date) = 7 Then
            start_date = DateAdd("d", 2, start_date)
        End If
    Next
    add_working_days = start_date
End Function
%>