|
|
|
|
|
|
|
 |
|
 |
|
|
|
|
|
Specialties Calendar
|
<%
'============================================================================================
' Monthly Specialities Left-Content Block
'============================================================================================
Dim iThisMonth
%>
<%
// Get the Month Day and Year variables from the Date() Function
iThisMonth = Month(Date)
Select Case iThisMonth
Case 1
' Jan, Feb, Mar
Response.Write "| Jan | | "
Response.Write "Project AWARE | "
Response.Write "| Feb | | "
Response.Write "Enriched Air Nitrox | "
Response.Write "| Mar | | "
Response.Write "Dry Suit Diver | "
Response.Write "![]() "
Response.Write " | "
Case 2
' Feb, Mar, Apr
Response.Write "| Feb | | "
Response.Write "Enriched Air Nitrox | "
Response.Write "| Mar | | "
Response.Write "Dry Suit Diver | "
Response.Write "| Apr | | "
Response.Write "Peak Perf Buoy | "
Response.Write "![]() "
Response.Write " | "
Case 3
' Mar, Apr, May
Response.Write "| Mar | | "
Response.Write "Dry Suit Diver | "
Response.Write "| Apr | | "
Response.Write "Peak Perf Buoy | "
Response.Write "| May | | "
Response.Write "UW Navigation | "
Response.Write "![]() "
Response.Write " | "
Case 4
' Apr, May, Jun
Response.Write "| Apr | | "
Response.Write "Peak Perf Buoy | "
Response.Write "| May | | "
Response.Write "UW Navigation | "
Response.Write "| Jun | | "
Response.Write "Drift Diver | "
Response.Write "![]() "
Response.Write " | "
Case 5
' May, Jun, Jul
Response.Write "| May | | "
Response.Write "UW Navigation | "
Response.Write "| Jun | | "
Response.Write "Drift Diver | "
Response.Write "| Jul | | "
Response.Write "Night Diver | "
Response.Write "![]() "
Response.Write " | "
Case 6
' Jun, Jul, Aug
Response.Write "| Jun | | "
Response.Write "Drift Diver | "
Response.Write "| Jul | | "
Response.Write "Night Diver | "
Response.Write "| Aug | | "
Response.Write "Deep Diver | "
Response.Write "![]() "
Response.Write " | "
Case 7
' Jul, Aug, Sep
Response.Write "| Jul | | "
Response.Write "Night Diver | "
Response.Write "| Aug | | "
Response.Write "Deep Diver | "
Response.Write "| Sep | | "
Response.Write "Wreck Diver | "
Response.Write "![]() "
Response.Write " | "
Case 8
' Aug, Sep, Oct
Response.Write "| Aug | | "
Response.Write "Deep Diver | "
Response.Write "| Sep | | "
Response.Write "Wreck Diver | "
Response.Write "| Oct | | "
Response.Write "UW Search & Rec | "
Response.Write "![]() "
Response.Write " | "
Case 9
' Sep, Oct, Nov
Response.Write "| Sep | | "
Response.Write "Wreck Diver | "
Response.Write "| Oct | | "
Response.Write "UW Search & Rec | "
Response.Write "| Nov | | "
Response.Write "Boat Diver | "
Response.Write "![]() "
Response.Write " | "
Case 10
' Oct, Nov, Dec
Response.Write "| Oct | | "
Response.Write "UW Search & Rec | "
Response.Write "| Nov | | "
Response.Write "Boat Diver | "
Response.Write "| Dec | | "
Response.Write "UW Photography | "
Response.Write "![]() "
Response.Write " | "
Case 11
' Nov, Dec, Jan
Response.Write "| Nov | | "
Response.Write "Boat Diver | "
Response.Write "| Dec | | "
Response.Write "UW Photography | "
Response.Write "| Jan | | "
Response.Write "Project AWARE | "
Response.Write "![]() "
Response.Write " | "
Case 12
' Dec, Jan, Feb
Response.Write "| Dec | | "
Response.Write "UW Photography | "
Response.Write "| Jan | | "
Response.Write "Project AWARE | "
Response.Write "| Feb | | "
Response.Write "Enriched Air Nitrox | "
Response.Write "![]() "
Response.Write " | "
Case Else
' Jan, Feb, Mar
Response.Write "| Jan | | "
Response.Write "Project AWARE | "
Response.Write "| Feb | | "
Response.Write "Enriched Air Nitrox | "
Response.Write "| Mar | | "
Response.Write "Dry Suit Diver | "
Response.Write "![]() "
Response.Write " | "
End Select
%>
|
|
|
 |
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
|
|
|
|
|
 |
For more information, please call us at (972) 467-8314 or
email us at
or click here to request
additional information or to sign-up online
for a class or dive trip.
|
|
|
|
|
|
|
 |
|
 |
|
|
