Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Portal Mod add-on (events calendar)
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 3

choppermc
New Member

Australia
80 Posts

Posted - 26 October 2003 :  15:50:55  Show Profile  Send choppermc an AOL message
Yeah the older version of cal_style.asp does not have includes, the new one does.
new_events_calendar_-34-Recurr_b3.zip

Oh....Is that it?

Edited by - choppermc on 26 October 2003 15:57:19
Go to Top of Page

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 26 October 2003 :  16:47:24  Show Profile
Ah, this mod uses the old version of the calendar then, i'll have to take a look at the new version

The UK MkIVs Forum
Go to Top of Page

pokemon
Junior Member

151 Posts

Posted - 27 October 2003 :  14:24:16  Show Profile
Thanks David

Would you please take a look at new mod. I'm using new mod from Red1.

and i'm having this error:

Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'T.FORUM_ID IN () AND E.EVENT_DATE BETWEEN '20031001000000' AND '20031031000000''.
/news/cal_functions.asp, line 70


when i try to do exactly what you told me.
Go to Top of Page

pokemon
Junior Member

151 Posts

Posted - 29 October 2003 :  16:55:05  Show Profile
any update?
Go to Top of Page

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 29 October 2003 :  18:30:58  Show Profile
Pokemon, you have mofified portal.asp, without knowing what you have done, I can't help you, sorry

The UK MkIVs Forum
Go to Top of Page

pokemon
Junior Member

151 Posts

Posted - 30 October 2003 :  13:30:45  Show Profile
Thanks David,
I thought you are making a new add mod to portal for a new event calendar. Which i'm using now from author RED1. His mod is new for snitz 3.4.03 and i'm not sure how is work relate to your old mod from above. I notice there is something not work right.

FYI: I'm not changing anything with your portal.asp beside adding some links in there. Everything i added is working well, but not a event calendar. Would you please take a look at new event calendar mod and how to add it to portal.asp ?
Go to Top of Page

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 30 October 2003 :  15:16:08  Show Profile
Yep, I will do.
Have you got a link to this new events calendar so I know i'm working from the same one

The UK MkIVs Forum
Go to Top of Page

pokemon
Junior Member

151 Posts

Posted - 30 October 2003 :  15:50:03  Show Profile
this is a link i used to download from snitznitz

http://www.snitzbitz.com/mods/details.asp?Version=All&mid=66

version 3.4 RED1 Would you please take a look. Thanks David
Go to Top of Page

soxc
New Member

53 Posts

Posted - 01 November 2003 :  11:02:37  Show Profile
Not related to the Portal Mod but you might see this problem.
I added a little piece of code in cal_functions.asp to show the "no events" message when an event is in a private forum and the user does not have access.

Basically I just added a bol to check if the function actually writes out any events if it does not then I write the message.

Below is the code that I have added in red:

Around 259 in cal_functions.asp

'*****************************************************************
Sub WriteUpcomingEvents
'*****************************************************************

Dim bEvent
bEvent = false


<...body of function....>

if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then
bEvent = true
Response.Write "<DIV class=""listitem"">" & MonthName(Month(Event_Date)) & " " & Day(Event_Date) & "<DIV>" & vbnewline & _
"<DIV class=""indented""><SPAN class=""spnMessageText""><A href=""topic.asp?TOPIC_ID=" & Topic_ID & """>" & Topic_Subject & "</A></SPAN></DIV>"
end if
rs.movenext
loop
If bEvent = false then Response.Write "<DIV class=""listitem"">" & strCalNoUpcoming & "</DIV>" & vbnewline
end if

rs.close
set rs = nothing
End Sub 'WriteUpcomingEvents

Edited by - soxc on 01 November 2003 11:03:43
Go to Top of Page

pokemon
Junior Member

151 Posts

Posted - 10 November 2003 :  13:55:57  Show Profile
any update on this David?
Go to Top of Page

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 11 November 2003 :  04:25:41  Show Profile
Sorry, hadn't had much spare, will try and look asap

The UK MkIVs Forum
Go to Top of Page

dhutten
New Member

Netherlands
66 Posts

Posted - 30 November 2003 :  16:09:21  Show Profile
hi david

i get this error when i add the eventlist.asp file

Active Server Pages error 'ASP 0126'

Include file not found

/portal.asp, line 44

The include file 'cal_functions.asp' was not found.

also cal_style.asp was not found
Go to Top of Page

DavidRhodes
Senior Member

United Kingdom
1222 Posts

Posted - 01 December 2003 :  08:20:07  Show Profile
Do you have the events calendar mod installed?

The UK MkIVs Forum
Go to Top of Page

Beano_ie
Junior Member

Ireland
328 Posts

Posted - 06 February 2004 :  04:24:55  Show Profile  Visit Beano_ie's Homepage  Send Beano_ie an ICQ Message
quote:
Originally posted by soxc

I think that you need to add the sub TableSpacer.



I've read through the topic but can't seem to find an answer to this or am i misisng something.

Great Mod

Steve
Drogheda, Ireland @ www.droghedatown.com
Go to Top of Page

Beano_ie
Junior Member

Ireland
328 Posts

Posted - 07 February 2004 :  11:18:19  Show Profile  Visit Beano_ie's Homepage  Send Beano_ie an ICQ Message
I just removed the call TableSpacer in the end;

sub DisplayCalender(byval Width)

dateHolder = dateValue(strForumTimeAdjust)
call DrawMonth(dateHolder,1,1,1)
' call TableSpacer(TABLE_SPACER_WIDTH, TABLE_SPACER_HEIGHT)
call StartTable(Width, "Upcoming Events")
call WriteUpcomingEvents()
call EndTable()
' call TableSpacer(TABLE_SPACER_WIDTH, TABLE_SPACER_HEIGHT)

end sub

Steve
Drogheda, Ireland @ www.droghedatown.com
Go to Top of Page
Page: of 3 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.21 seconds. Powered By: Snitz Forums 2000 Version 3.4.07