...to historic Ticonderoga!
The Town of Ticonderoga extends a warm welcome and invites
you to enjoy the beautiful settings along the western shore
of Lake Champlain, the northern end of Lake George, and the
Adirondack Mountains. To the visitor, business, or resident,
this area offers a unique quality of life. It is always our
pleasure to share the history and heritage of our area.
More...
<%
'EventCat = Request.Querystring("cat")
'If EventCat <> "" Then Session("EventCat") = EventCat
'EventCat = Session("EventCat")
EventCat = "Events": Session("EventCat") = "Events"
Function NotFound(CatStr, CatArray)
nfFlag = True
If CatArray(0) > 0 Then
For nfIndex = 1 To CatArray(0)
If LCase(CatStr) = LCase(CatArray(nfIndex)) Then
nfFlag = False
nfIndex = CatArray(0)
End If
Next
End If
NotFound = nfFlag
End Function
If Session("UserID") = 0 Or Session("UserLevel") < 1000000 Then
SQLstr = "SELECT Category, Enabled FROM EventsCalendar WHERE Enabled = 1 ORDER BY Category ASC"
Else
SQLstr = "SELECT Category, Enabled FROM EventsCalendar ORDER BY Category ASC"
End If
OpenMDB Db, SQLstr
RecordCount = Db.RecordCount
ReDim Categories(0): Categories(0) = 0
If Db.RecordCount > 0 Then
ReDim Categories(Db.RecordCount)
Categories(0) = 0
While Db.EOF = False
If NotFound(Db("Category"), Categories) Then
Categories(0) = Categories(0) + 1
Categories(Categories(0)) = Db("Category")
End If
Db.MoveNext
Wend
End If
Set Db = Nothing
%>
<%
dRange = DateValue(DateSelected): dRange2 = SearchEnd
If IsNull(dRange2) = False And Len(dRange2) > 0 Then dRange2 = DateValue(SearchEnd)
If DateSelected <> "" And SearchEnd <> "" Then
EventStr = "Events For " & FormatDateTime(dRange, 1) & " - " & FormatDateTime(dRange2, 1)
ElseIf CmdSelected = "month" Then
EventStr = "Events For " & MonthName(Month(dRange)) & " " & Year(dRange)
ElseIf CmdSelected = "day" Then
EventStr = "Events For " & FormatDateTime(dRange, 1)
End If
%>
<% CellCol = cfg_TableCellCol1 %>
<% CellCol2 = cfg_TableCellCol2 %>
<% DbCount = 0 %>
<% If DateSelected <> "" And SearchEnd <> "" Then %>
<%
If Session("UserID") = 0 Or Session("UserLevel") < 1000000 Then
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 ORDER BY StartDate ASC"
Else
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC"
End If
OpenMDB Db, SQLstr
RecordCount = 0 'temp
If Db.RecordCount > 0 Then
While Db.Eof = False
sRange = Db("StartDate"): eRange = Db("EndDate")
dRange = DateValue(DateSelected): dRange2 = DateValue(SearchEnd)
If IsNull(eRange) Or Len(eRange) = 0 Then eRange = sRange
If InDateRange(sRange, dRange, dRange2) Or InDateRange(eRange, dRange, dRange2) Then
DbCount = DbCount + 1: RecordCount = RecordCount + 1
%>
<%
End If
Db.MoveNext
Wend
End If
Set Db = Nothing
%>
<% ElseIf CmdSelected = "month" Then %>
<%
If Session("UserID") = 0 Or Session("UserLevel") < 1000000 Then
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 ORDER BY StartDate ASC"
Else
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC"
End If
OpenMDB Db, SQLstr
RecordCount = 0 'temp
If Db.RecordCount > 0 Then
While Db.Eof = False
sRange = Db("StartDate"): eRange = Db("EndDate"): dRange = DateValue(DateSelected)
smm = Month(sRange): syy = Year(sRange)
dmm = Month(dRange): dyy = Year(dRange)
If dmm = smm And dyy = syy Or InDateRange(dRange, sRange, eRange) Then
DbCount = DbCount + 1: RecordCount = RecordCount + 1
%>
<%
End If
Db.MoveNext
Wend
End If
Set Db = Nothing
%>
<% ElseIf CmdSelected = "day" Then %>
<%
If Session("UserID") = 0 Or Session("UserLevel") < 1000000 Then
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' AND Enabled = 1 ORDER BY StartDate ASC"
Else
SQLstr = "SELECT * FROM EventsCalendar WHERE Category='" & EventCat & "' ORDER BY StartDate ASC"
End If
OpenMDB Db, SQLstr
RecordCount = 0 'temp
If Db.RecordCount > 0 Then
While Db.Eof = False
sRange = Db("StartDate"): eRange = Db("EndDate"): dRange = DateValue(DateSelected)
If dRange = sRange Or InDateRange(dRange, sRange, eRange) Then
DbCount = DbCount + 1: RecordCount = RecordCount + 1
%>
<%
End If
Db.MoveNext
Wend
End If
Set Db = Nothing
%>
<% End If %>
<% If DbCount = 0 Then %>
|
No
Events Found. |
<% If Session("UserID") > 0 And Session("UserLevel") >= 1000000 Then %>
<% End If %>
<% End If %>
|
| |
|
|
The Ticonderoga region draws
thousands of people during the spring, summer, and fall
months who come to enjoy the lakes and mountains...
Click Here for More Information... |
|
A broad selection of
lakes, ponds and streams in the Ticonderoga area makes
it an angler’s paradise. In fact Ticonderoga affords
access to two of the most beautiful fresh water inland
lakes in the United States..
Click Here for More Information... |
|
The name "Ticonderoga"
is one of the most significant and familiar in American
History.
Click Here for More Information... |
|
| |
| |
|
