My Little Scripts - next-week.asp

Scripts.com - Get the best scripts NOW!
HotScripts.com - Over 10 web rings.
more links...

Index News Samples Downloads E-Mail me Forum Sign Up

NEXT-WEEK.ASP

This script provides the date of any upcoming week day, it's perfect for sites that announce weekly activites. It takes one argument, a number between 0 and 6, representing sunday to saturday.

<%
function next_week(target_week_day)
         today = Date

         todays_day = day(today)
         todays_week_day = weekday(today) - 1
         todays_month = month(today)
         todays_year = year(today)

         month_names = Array("January", _
                             "February", _
                             "March", _
                             "April", _
                             "May", _
                             "June", _
                             "July", _
                             "August", _
                             "September", _
                             "October", _
                             "November", _
                             "December")

         'This assumes that if today is a target week day,
         'today's date will be used and not next week's.
         'To change that, just make
         'if(todays_week_day <= target_week_day)
         'if(todays_week_day < target_week_day)
         if todays_week_day <= target_week_day then
            days_left = target_week_day - todays_week_day
         else
            days_left = 7 - (todays_week_day - target_week_day)
         end if

         'This script works by finding out the number of days separating
         'the current date and the next target week day.
         next_week = datevalue(dateadd("d", days_left, todays_month & "/" & todays_day & "/" & todays_year))

         next_week_html = month_names(month(next_week) - 1) & " " & day(next_week) & " , " & year(next_week)

         next_week = next_week_html
end function
%>

<script language="VB" runat="server">
Function next_week(ByVal target_week_day As Integer) As String
         Today = DateTime.Now

         todays_day = Day(Today)
         todays_week_day = Weekday(Today) - 1
         todays_month = Month(Today)
         todays_year = Year(Today)

         Dim month_names(12) As String

         month_names(0) = "January"
         month_names(1) = "February"
         month_names(2) = "March"
         month_names(3) = "April"
         month_names(4) = "May"
         month_names(5) = "June"
         month_names(6) = "July"
         month_names(7) = "August"
         month_names(8) = "September"
         month_names(9) = "October"
         month_names(10) = "November"
         month_names(11) = "December"


         'This assumes that if today is a target week day,
         'today's date will be used and not next week's.
         'To change that, just make
         'if(todays_week_day <= target_week_day)
         'if(todays_week_day < target_week_day)
         If todays_week_day <= target_week_day Then
            days_left = target_week_day - todays_week_day
         Else
            days_left = 7 - (todays_week_day - target_week_day)
         End If

         'This script works by finding out the number of days separating
         'the current date and the next target week day.
         next_week = DateValue(DateAdd("d", days_left, Today))

         next_week_html = month_names(Month(next_week) - 1) & " " & Day(next_week) & ", " & Year(next_week)

         next_week = next_week_html
End Function
</script>