%@ LANGUAGE="VBSCRIPT" %>
<%
Dim oDB
Dim rs
Dim aRS
Dim lRec
Dim sSQL
Dim lcMonth
Dim lcYear
Err.Clear
on error resume next
Set oDB = new clsDatabase
Set rsM = createobject("adodb.recordset")
sSQL = "SELECT top 1 * FROM [TM_ContactUs] order by ID desc"
Call oDB.Execute ( sSQL, aRS, true, nothing )
Set rsM = aRS(1)
rsM.MoveFirst
%>
Please join us at our regular meeting.
Everyone Welcome!
<%
cMonth = Month(Now())
cYear = Year(Now())
cMonth1 = iif(cMonth = 12, 1, cMonth + 1)
cYear1 = iif(cMonth = 12, cYear + 1, cYear)
if cMonth = 11 then
cMonth2 = 1
cYear2 = cYear + 1
elseif cMonth = 12 then
cMonth2 = 2
cYear2 = cYear + 1
else
cMonth2 = cMonth + 2
cYear2 = cYear
end if
%>
<%=MonthName(cMonth)%>
|
<%=MonthName(cMonth1)%>
|
<%=MonthName(cMonth2)%>
<%
' Get command line parameters
pMonth = cInt(CleanString(Request("Month")))
pYear = cInt(CleanString(Request("Year")))
lcMonth = iif(MyIsEmpty(pMonth), Trim(cStr(Month(Date()))), pMonth)
lcYear = iif(MyIsEmpty(pYear), Trim(cStr(Year(Date()))), pYear)
lcDate = lcYear & "-" & Right("00" & lcMonth, 2) & "-01" 'cStr(Date())
'Init
lRec = 0
Set rs = createobject("adodb.recordset")
%>
<%=MonthName(cInt(lcMonth))%> <%=lcYear%> |
<%
lRec = 0
Err.Clear
'Get Event Details
sSQL = "SELECT * "
sSQL = sSQL & "FROM TM_Events "
sSQL = sSQL & "WHERE [ExpireDate] >= '" & lcDate & "' "
'sSQL = sSQL & "AND [StartDate] >= '" & lcYear & "-" & right("0" & lcMonth,2) & "-01' "
'sSQL = sSQL & "AND [StartDate] < '" & iif(lcMonth="12", cStr(cInt(lcYear) + 1), lcYear) & "-" & iif(lcMonth="12", "01", right("0" & cStr(cInt(lcMonth) + 1),2)) & "-01' "
'sSQL = sSQL & "AND [StartDate] < '" & iif(lcMonth="12", cStr(cInt(lcYear) + 1), lcYear) & "-" & iif(lcMonth="12", "01", right("0" & cStr(cInt(lcMonth) + 1),2)) & "-01' "
sSQL = sSQL & "ORDER BY [StartDate] "
'Response.Write(sSQL)
Call oDB.Execute ( sSQL, aRS, true, nothing )
Set rs = aRS(1)
if err.number <> 0 then
Call LogError("Error executing SQL: " & sSQL & " Error: " & Err.Description, "Events.asp" )
Err.Clear
end if
lRec = (rs.RecordCount > 0)
if lRec then
rs.movefirst
do while NOT rs.EOF
%>
Title: | <%=rs("Title")%> |
Details: | <%=rs("Description")%> |
Date(s): | <%=iif(MyIsEmpty(rs("Date")), cStr(rs("StartDate")), rs("Date"))%> |
Time: | <%=rs("Time")%> |
Location: | <%=rs("Location")%> |
<% if NOT MyIsEmpty(rs("Fees")) then %>
Fee/Admission: | <%=rs("Fees")%> |
<% end if %>
More Info & Signup: |
<%=iif(MyIsEmpty(rs("MoreInfo")), "", rs("MoreInfo") & " ")%>
<%=iif(MyIsEmpty(rs("MoreEmail")), "", "" & rs("MoreEmail") & " ")%>
<%=iif(MyIsEmpty(rs("MoreURL")), "", "" & rs("MoreURL") & "")%>
|
|
<%
rs.moveNext
loop
else
%>
No Upcoming Notices or Events at this time, please check back soon. |
<%
end if
%>