Snitz Forums 2000 - how to display event calendar mod on portal page

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

how to display event calendar mod on portal page

New Topic

Topic Locked

Printer Friendly

Author

Topic

pokemon
Junior Member

151 Posts

Posted - 23 October 2003 : 13:29:55

How do i implement and place an event calendar to my portal site just like this?

or look like at this website : http://www.shnforum.com/forum/sitenews.asp

thanks for any help

dayve
Forum Moderator

USA
5820 Posts

Posted - 23 October 2003 : 13:41:21

you might want to ask this question at their forum

pokemon
Junior Member

151 Posts

Posted - 23 October 2003 : 13:47:49

Thanks dayve,

the problem is i'm using snitz 3.4.03 and i recently install event calendar mod from snitzbiz. The mod is woking well for me, but i want to move event calendar mod out side of the forum and the format should look like a picture above. Thanks

dayve
Forum Moderator

USA
5820 Posts

Posted - 23 October 2003 : 13:53:33

I thought you were using SHN Forums. I have done something similar to this in the past. I don't think it was hard to do and I'm sure others have discussed this process here at Snitz. Check the search feature here at Snitz and see what you can come up with. During this time maybe someone will chime in and assist. I can not look at it until I get home from work this evening, but would gladly help out then.

Reinsnitz
Snitz Forums Admin

USA
3545 Posts

Posted - 23 October 2003 : 13:53:50

If you have the forum include files in your front page, you should be able to insert the calendar display on that page.

Reinsnitz (Mike)

pokemon
Junior Member

151 Posts

Posted - 24 October 2003 : 10:04:57

thanks dayve and reinsnitz,

i inserted an event calendar mod in default page and it's working find. All i want to do it, to re-format the look and make it look like with an image above, and put it in my portal page. i'm trying several ways, but i'm not good at ASP then i'll stuck here.. Dayve, when you have a chance would you please help me. I'll need it badly. Thanks.

here all the files i have downloaded from snitzbiz
event calendar mod:

cal.asp
cal_config.asp
cal_datepicker.asp
cal_default.asp
cal_delete.asp
cal_functions.asp
cal_post.asp
cal_post_info1.asp
cal_post_info2.asp
cal_style.asp
cal_topic.asp

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 24 October 2003 : 10:18:46

What portal are you using?

The UK MkIVs Forum

pokemon
Junior Member

151 Posts

Posted - 24 October 2003 : 11:24:29

i'm using portal integration 3

this is my portal code:

sub Main()

	dim lContentID, lCategoryID, sMode, sSearchTerm

	lContentID		=	CInt(Request.QueryString("ContentID"))
	lCategoryID		=	CInt(Request.QueryString("CategoryID"))
	sMode			=	Request.QueryString("Mode")
	sSearchTerm		=	Trim(Request.Form("txtSearch"))
	
	if strCMSTitleDisplay = "1" then
	
		Response.Write	"      <table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
				"          " & getCurrentIcon(strIconFolderOpen,"All Forums","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
				"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,strCMSPageTitle,"") & " "& strCMSPageTitle &"<br /></font></td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine
	
	end if
	
	Response.Write  "		<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" &vbCrLf &_
			"		<tr>" &vbCrLf 
	'###########################################################################################
	'###########################################################################################
	'LEFT NAVIGATION
	if strCMSLeftNavDisplay = "1" then
		Response.Write	"			<td width="""& strCMSLeftNavWidth &""" valign=""top"">" &vbCrLf
		'call DisplayCategories(1, strCMSLeftNavWidth)
		%>
		<!--#INCLUDE FILE="inc_login.asp" -->
		
		<%
		
		Response.Write	"			</td>" & vbNewLine &_		
				"			<td style=""width: "& TABLE_SPACER_WIDTH &"px""><img src="""& strImageUrl &"clear.gif"" width="""& TABLE_SPACER_WIDTH &""" height=""1""></td>" & vbNewLine
	end if
	
	'###########################################################################################
	'###########################################################################################
	'###########################################################################################
	'CENTRE CONTENT
	Response.Write	"			<td width=""100%"" valign=""top"">"
	if lContentID > 0 and lCategoryID > 0 then
	
		call DisplayContentItem(lContentID, lCategoryID)
		

	elseif lCategoryID > 0 then
		call ListCategoryItems(lCategoryID)
	elseif lContentID > 0 then
		call DisplayContentItem(lContentID, "")
	elseif Request.Form("Method_Type") = "Search" then 
		call SearchResults(sSearchTerm)
	else 'must be home page so show default text
		if IsNumeric(strCMSDefaultCID) then
			call DisplayContentItem(strCMSDefaultCID, "")
			%><!--#INCLUDE FILE="includes/virus_scan.asp" -->
			
			<%
			call DisplayContent (0, 0, 2, 3, 0, 10, 200, 0, 0, 1, 1, 0, "10 B#224;i M#7899;i", 420, "topic.asp")
			
				else
			call NoContent()
		end if
	end if
	
	Response.Write  "			</td>"
	'###########################################################################################
	'###########################################################################################
	'###########################################################################################
	'RIGHT NAVIGATION
	if strCMSRightNavDisplay = "1" then
		Response.Write	"			<td style=""width: "& TABLE_SPACER_WIDTH &"px""><img src="""& strImageUrl &"clear.gif"" width="""& TABLE_SPACER_WIDTH &""" height=""1""></td>" & vbNewLine &_
				"			<td width="""& strCMSRightNavWidth &""" valign=""top"">" &vbCrLf
		if strCMSLMInstalled = "1" then call DisplayLinks(strCMSRightNavWidth)
		if strCMSEnableSearch = "1" then 
			call DisplaySearch(strCMSRightNavWidth)
			call DisplayForumSearch(strCMSRightNavWidth)
		end if
		call DisplayCategories(0, strCMSRightNavWidth)
		%>
		<!--#INCLUDE FILE="includes/member_spotlight.asp" -->
		<!--#INCLUDE FILE="includes/inc_top_posters.asp" -->
		
		
		<%
	
		
			Response.Write	"			</td>"
			
	end if
	'###########################################################################################

	Response.Write  "		</tr>" &vbCrLf &_
			"		</table>" 
			
	call WriteFooter()

end sub

The cal_default.asp is the page to display the event calendar.
when i insert the code at right navigation and i'm ended up with an error

Microsoft VBScript compilation (0x800A03EA)
Syntax error
/news/cal_functions.asp, line 12
Sub DrawMonth(dateToDraw, enableHiLite, enableArrows, enableYearDisplay)

Have you ever do have this problem occur please advise me. Thanks

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 24 October 2003 : 11:39:59

That's my portal mod!
I have the code at home to add the calendar, i have it on my site (see link below) but i've removed the actual calendar, just showing event links at the moment, i'll find the code for you over the weekend

The UK MkIVs Forum

pokemon
Junior Member

151 Posts

Posted - 24 October 2003 : 12:52:05

Thanks DavidRhodes,

i will looking forward to hearing from you. thanks

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 24 October 2003 : 16:41:31

Here you go
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=48682

The UK MkIVs Forum

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.39 seconds.