<%@ 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") %>
<% 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 %> <% rs.moveNext loop else %> <% end if %>
<%=MonthName(cInt(lcMonth))%>  <%=lcYear%>
<% if NOT MyIsEmpty(rs("Fees")) then %> <% end if %>
Title:<%=rs("Title")%>
Details:<%=rs("Description")%>
Date(s):<%=iif(MyIsEmpty(rs("Date")), cStr(rs("StartDate")), rs("Date"))%>
Time:<%=rs("Time")%>
Location:<%=rs("Location")%>
Fee/Admission:<%=rs("Fees")%>
More Info & Signup: <%=iif(MyIsEmpty(rs("MoreInfo")), "", rs("MoreInfo") & "
")%> <%=iif(MyIsEmpty(rs("MoreEmail")), "", "" & rs("MoreEmail") & "
")%> <%=iif(MyIsEmpty(rs("MoreURL")), "", "" & rs("MoreURL") & "")%>
No Upcoming Notices or Events at this time, please check back soon.