Mod: List your events on other pages

Ok, I like the event/calendar feature of the forum, but wanted users to have an easier way to find and promote their events, rather than scrolling through posts or pages of a calendar.

The mod creates a way for you to have a list of your events in a div on any other page of your site.  Check out my main page www.swvhc.com, you'll see a frame (css) on the right side that has a list of events, actively generated from the database, filtered to start with current date (no old events) and run one year.  Hyperlinks take you to the appriate forum.

<!-- #include file="database/database_connection.asp" -->
<!-- #include file="language_files/language_file_inc.asp" -->
<!-- #include file="functions/functions_common.asp" -->
<!-- #include file="includes/setup_options_inc.asp" -->
<!-- #include file="includes/global_variables_inc.asp" -->

<%
'Open database connection and load configuration
Call openDatabase(strCon)
Call getForumConfigurationData()

'Declare variables
Dim sarryRssTopics 'Holds the RSS Feed recordset
Dim intCurrentRecord 'Holds the current record in the array

Dim lngTopicID  'Holds the topic ID
Dim lngMessageID 'Holds the message ID
Dim strSubject  'Holds the subject
Dim dtmEventMonth 'Holds the event month
Dim dtmEventDay  'Holds the event day
Dim dtmEventYear 'Holds the event year

Dim dtmDbStartDate 'Holds the database search start date
Dim dtmDbEndDate 'Holds the database search end date

dtmDbStartDate = internationalDateTime(Now())
dtmDbEndDate = internationalDateTime(DateAdd("yyyy", 1, Now()))

'Place the date in SQL safe # or '
If strDatabaseType = "Access" Then
 dtmDbStartDate = "#" & dtmDbStartDate & "#"
 dtmDbEndDate = "#" & dtmDbEndDate & "#"
Else
 dtmDbStartDate = "'" & dtmDbStartDate & "'"
 dtmDbEndDate = "'" & dtmDbEndDate & "'"
End If

strSQL = "SELECT " & strDbTable & "Forum.Forum_name, " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Topic.Subject, " & strDbTable & "Thread.Thread_ID, " & strDbTable & "Thread.Message_date, " & strDbTable & "Author.Author_ID, " & strDbTable & "Author.Username, " & strDbTable & "Thread.Message, " & strDbTable & "Topic.Event_date, " & strDbTable & "Topic.Event_date_end " & _
"FROM " & strDbTable & "Forum, " & strDbTable & "Topic, " & strDbTable & "Author, " & strDbTable & "Thread " & _
"WHERE " & strDbTable & "Forum.Forum_ID = " & strDbTable & "Topic.Forum_ID " & _
 "AND " & strDbTable & "Topic.Start_Thread_ID = " & strDbTable & "Thread.Thread_ID " & _
 "AND " & strDbTable & "Author.Author_ID = " & strDbTable & "Thread.Author_ID " & _
 "AND " & strDbTable & "Topic.Event_date BETWEEN " & dtmDbStartDate & " AND " & dtmDbEndDate & _
 "ORDER BY " & strDbTable & "Topic.Event_date " & "ASC;"

'Query the database
rsCommon.Open strSQL, adoCon

'Read in db results
If NOT rsCommon.EOF Then
 'Place the db results into an array
 sarryRssTopics = rsCommon.GetRows()
End If

'Close and clear
rsCommon.Close
Call closeDatabase()

'Loop through recordset, read data, and display all events in the next year

   intCurrentRecord = intCurrentRecord + 1
Loop
%>