Show event's on frontpage
Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=24166
Printed Date: 29 March 2026 at 10:53am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com
Topic: Show event's on frontpage
Posted By: raiciks
Subject: Show event's on frontpage
Date Posted: 13 August 2007 at 9:19pm
|
Does it possible show another calendar events like Today's Birthdays? For example:
|
||||||||
Replies:
Posted By: billd3
Date Posted: 13 August 2007 at 9:46pm
|
Great idea!! Would love to include that on our intro/index page
------------- BillD http://theamcpages.com http://theamcforum.com |
Posted By: raiciks
Date Posted: 14 August 2007 at 7:58pm
come on!!!
|
Posted By: raiciks
Date Posted: 14 August 2007 at 8:00pm
i would like made something:
|
||||||
Upcoming Events for the Next 30 Day(s) 
Posted By: WebWiz-Bruce
Date Posted: 14 August 2007 at 8:00pm
|
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. ------------- https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting |
Posted By: raiciks
Date Posted: 14 August 2007 at 8:18pm
|
|
mod builder?Posted By: sarto
Date Posted: 10 April 2008 at 2:17pm
|
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 %> <!-- #include file="includes/global_variables_inc.asp" --> <!-- #include file="includes/setup_options_inc.asp" --> <!-- #include file="includes/version_inc.asp" --> <!-- #include file="database/database_connection.asp" --> <!-- #include file="functions/functions_common.asp" --> <!-- #include file="functions/functions_filters.asp" --> <!-- #include file="functions/functions_format_post.asp" --> <!-- #include file="language_files/language_file_inc.asp" --> <!-- #include file="language_files/RTE_language_file_inc.asp" --> <!-- #include file="language_files/calendar_language_file_inc.asp" --> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Forums '** http://www.webwizforums.com - 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 - 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 - 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 %><!-- #include file="functions/functions_date_time_format.asp" --><% '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 - 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 |