Show event's on frontpage - Web Wiz Support and Community Forums

Does it possible show another calendar events like Today's Birthdays?

For example:

Today's Birthdays
	Cate (58)

Event's
	auto car show on 20.08.2007. motorsport user meeting on 21.08.2007. etc.

come on!!!

This has been moved to the mods forum.

If you upgrade to version 9 it will show the calender as a drop down on each and every page for quick access to upcoming events fro that month.

Also with version 9 it integrates with Web Wiz NewsPad which would show News Bulletins on the forum index page, You could use that to announce events.

Other than that you will have to look for a mod builder to build it for you as there are no plans on adding this as it would require quite a performance hit to get and process the data from the database.

Edited by -boRg- - 14 August 2007 at 8:04pm

Web Wiz Forums Hosting
ASP.NET Web Hosting

I have maked it with modify the rrs_calendar_feed.asp and insert an FeedReader in home page.

Cut & Paste

[code]

<% @ Language=VBScript %>
<% Option Explicit %>










<%
'****************************************************************************************
'** Copyright Notice
'**
'** Web Wiz Forums
'** http://www.webwizforums.com
'**
'** Copyright ©2001-2006 Web Wiz. All Rights Reserved.
'**
'** THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS UNDER LICENSE FROM 'WEB WIZ'.
'**
'** IF YOU DO NOT AGREE TO THE LICENSE AGREEMENT THEN 'WEB WIZ' IS UNWILLING TO LICENSE
'** THE SOFTWARE TO YOU, AND YOU SHOULD DESTROY ALL COPIES YOU HOLD OF 'WEB WIZ' SOFTWARE
'** AND DERIVATIVE WORKS IMMEDIATELY.
'**
'** If you have not received a copy of the license with this work then a copy of the latest
'** license contract can be found at:-
'**
'** http://www.webwiz.net/license
'**
'** For more information about this software and for licensing information please contact
'** 'Web Wiz' at the address and website below:-
'**
'** Web Wiz, Unit 10E, Dawkins Road Industrial Estate, Poole, Dorset, BH15 4JD, England
'** http://www.webwiz.net
'**
'** Removal or modification of this copyright notice will violate the license contract.
'**
'****************************************************************************************

'Set the response buffer to true as we maybe redirecting
Response.Buffer = True

'Open database connection
Call openDatabase(strCon)

'Load in configuration data
Call getForumConfigurationData()

'If RSS is not enabled send the user away
If blnRSS = False Then

'Clear server objects
Call closeDatabase()

'Redirect
Response.Redirect("default.asp")
End If

'Include the date time format hear, incase a database hit is required if the date and time data is not in the web servers memory
%><%

'Declare variables
Dim sarryRssTopics 'Holds the RSS Feed recordset
Dim intCurrentRecord 'Holds the current record in the array
Dim strForumName 'Holds the forum name
Dim lngTopicID  'Holds the topic ID
Dim strSubject  'Holds the subject
Dim lngMessageID 'Holds the message ID
Dim dtmMessageDate 'Holds the message date
Dim lngAuthorID  'Holds the author ID
Dim strUsername  'Holds sthe authros user name
Dim strMessage  'Holds the post
Dim intForumID  'Holds the forum we are viewing the posts from
Dim strRssChannelTitle 'Holds the channel name
Dim strTimeZone  'Holds the time zone for the feed
Dim dtmLastEntryDate 'Holds the date of the last message
Dim dtmEventDate 'Holds the date to get events from
Dim dtmNow  'Holds the now() date with off-set
Dim saryMemebrStats
Dim intBirtdayLoopCounter
Dim TestoCompleanno

'This is the number of posts to include in the feed
Const intMaxResults = 20

'This is the Time to Live value so that RSS News Readers know how often to update their feed,
'if this is set to low you may consume to much bandwidth, to high and the RSS News Reader may not be updated fast enough
Const intTimeToLive = 720

'Set this to the time zone you require
strTimeZone = "+0000" 'See http://www.sendmail.org/rfc/0822.html#5 for list of time zones

'Initliase variables
intForumID = 0
dtmNow = getNowDate()
strRssChannelTitle = strTxtCalendarEvents

'Set the content type for feed
Response.ContentType = "application/xml"

'Get the last x events from the database starting from previous month
strSQL = "" & _
"SELECT "
If strDatabaseType = "SQLServer" OR strDatabaseType = "Access" Then
strSQL = strSQL & " TOP " & intMaxResults & " "
End If
strSQL = strSQL & _
"" & 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 " & _
"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 ( tblTopic.Event_date >= now())"

'Check permissions
strSQL = strSQL & _
"AND (" & strDbTable & "Topic.Forum_ID " & _
  "IN (" & _
   "SELECT " & strDbTable & "Permissions.Forum_ID " & _
   "FROM " & strDbTable & "Permissions" & strDBNoLock & " " & _
   "WHERE (" & strDbTable & "Permissions.Group_ID = 2) " & _
    "AND " & strDbTable & "Permissions.View_Forum = " & strDBTrue & _
  ")" & _
")"

'Don't include password protected forums
strSQL = strSQL & "AND (" & strDbTable & "Forum.Password = '' OR " & strDbTable & "Forum.Password Is Null) "

strSQL = strSQL & "AND (" & strDbTable & "Topic.Hide = " & strDBFalse & " AND " & strDbTable & "Thread.Hide = " & strDBFalse & ") " & _
"ORDER BY " & strDbTable & "Topic.Event_date "

'mySQL limit operator
If strDatabaseType = "mySQL" Then
strSQL = strSQL & " LIMIT " & intMaxResults
End If
strSQL = strSQL & ";"

'Set error trapping
On Error Resume Next

'Query the database
rsCommon.Open strSQL, adoCon

'If an