<%@language="VBScript"%> Diving For Fun - 2009/2010 Dive Training Calendar
Diving For Fun with William Fidler
Diving For Fun with William Fidler
MENU
Dive Training Calendar
Dive Travel & Trips
Dive Training Trips
Photo Galleries
Video Galleries
Dive Forms
Dive Articles
Driving Directions
Diving News
About Diving For Fun
Frequently Asked Questions
Website News
Download Website Font
Items For Sale
Bookmark This Site!
Pay with PayPal
MONTHLY SPECIALTIES
Specialties Calendar
Mar - Drift Diver.
Apr - UW Photography.
May - Dry Suit Diver.
Specialty Courses
E-LEARNING
PADI Dive Training Divers Alert Network Training
Start your Online Training TODAY!
Open Water Diver
PADI eLearning - Open Water Diver
Adv Open Water Diver
PADI eLearning - Advance Open Water Diver
FACEBOOK
Visit us on Facebook!
Facebook Logo
Connect with other Diving For Fun fans that you have met while diving!
Unique Visitors
Free Hit Counter
Free Hit Counter
DIVE CALENDAR

Training Class Schedules, Lake Weekends, Dive Trips, and Special Events

<% // Get teh Month Day and Year variables from the Date() Function iYear = Year(Date) iMonth = Month(Date) %>
 2009

<% if iYear = 2009 And iMonth = 1 Then Response.Write "January" else Response.Write "January" end if %> <% if iYear = 2009 And iMonth = 2 Then Response.Write "February" else Response.Write "February" end if %> <% if iYear = 2009 And iMonth = 3 Then Response.Write "March" else Response.Write "March" end if %>
<% if iYear = 2009 And iMonth = 4 Then Response.Write "April" else Response.Write "April" end if %> <% if iYear = 2009 And iMonth = 5 Then Response.Write "May" else Response.Write "May" end if %> <% if iYear = 2009 And iMonth = 6 Then Response.Write "June" else Response.Write "June" end if %>
<% if iYear = 2009 And iMonth = 7 Then Response.Write "July" else Response.Write "July" end if %> <% if iYear = 2009 And iMonth = 8 Then Response.Write "August" else Response.Write "August" end if %> <% if iYear = 2009 And iMonth = 9 Then Response.Write "September" else Response.Write "September" end if %>
<% if iYear = 2009 And iMonth = 10 Then Response.Write "October" else Response.Write "October" end if %> <% if iYear = 2009 And iMonth = 11 Then Response.Write "November" else Response.Write "November" end if %> <% if iYear = 2009 And iMonth = 12 Then Response.Write "December" else Response.Write "December" end if %>

 2010

<% if iYear = 2010 And iMonth = 1 Then Response.Write "January" else Response.Write "January" end if %> <% if iYear = 2010 And iMonth = 2 Then Response.Write "February" else Response.Write "February" end if %> <% if iYear = 2010 And iMonth = 3 Then Response.Write "March" else Response.Write "March" end if %>
<% if iYear = 2010 And iMonth = 4 Then Response.Write "April" else Response.Write "April" end if %> <% if iYear = 2010 And iMonth = 5 Then Response.Write "May" else Response.Write "May" end if %> <% if iYear = 2010 And iMonth = 6 Then Response.Write "June" else Response.Write "June" end if %>
<% if iYear = 2010 And iMonth = 7 Then Response.Write "July" else Response.Write "July" end if %> <% if iYear = 2010 And iMonth = 8 Then Response.Write "August" else Response.Write "August" end if %> <% if iYear = 2010 And iMonth = 9 Then Response.Write "September" else Response.Write "September" end if %>
<% if iYear = 2010 And iMonth = 10 Then Response.Write "October" else Response.Write "October" end if %> <% if iYear = 2010 And iMonth = 11 Then Response.Write "November" else Response.Write "November" end if %> <% if iYear = 2010 And iMonth = 12 Then Response.Write "December" else Response.Write "December" end if %>

 For more information, please call us at (407) 658-4797 or
email us at or click here to request
additional information or sign-up online for a class or dive trip.

Back Home Top
Copyright © 2009, 10
All Rights Reserved
Phone: (407) 658-4797     Cell: (972) 467-8314
Contact Us | Terms | Privacy | Sitemap | Affiliates | Hosting | Web Design