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)
 MOD: New Events Calendar for 3.4.03 beta
 New Topic  Reply to Topic
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 32

laser
Advanced Member

Australia
3859 Posts

Posted - 11 November 2002 :  03:20:54  Show Profile  Reply with Quote
No prob's red1, glad to promote such a great MOD. I have only really altered the constants file to make everything read as 'TV Guide' rather than 'Events', my next attempt is to actually duplicate the code to make a proper Event calendar ... but I have a long time to do that.<
Go to Top of Page

Jeepaholic
Average Member

USA
697 Posts

Posted - 11 November 2002 :  04:18:52  Show Profile  Visit Jeepaholic's Homepage  Reply with Quote
How dare you! <grin> I have to say, it's definitely solid...LOVE how it works compared to the older style event calendar. I don't recall having any issues at all. GREAT job, Red1!

I think I saw these recommendations posted, but I'll throw my votes in as well for later releases:
1) Ability to restrict which forums events can be posted to. I have this manually done in my forums, but would be nice if it was automated.
2) Ability for events to span more than one day (start and end dates)
3) Moderator/Admin/Poster ability to turn a topic into an event, and vice versa.

Thanks again for a great job on this!<

Al Bsharah
Aholics.com

Jeepaholics Anonymous
Broncoholics Anonymous
Network Insight
Go to Top of Page

AzureFlame
Starting Member

Australia
18 Posts

Posted - 12 November 2002 :  21:50:33  Show Profile  Reply with Quote
Love this mod, but I have the problem with the default day in the calendar not matching the server time (I am +14 hrs here in Australia!)
I read posts about this in this thread but it wasn't clear to me how I could fix this problem ... ?<

regards,
AzureFlame
Go to Top of Page

red1
Junior Member

355 Posts

Posted - 13 November 2002 :  03:51:13  Show Profile  Reply with Quote
AzureFlame can I see your website?<

My Mods:
New Events Calendar
New Non-database Active Users
Go to Top of Page

AzureFlame
Starting Member

Australia
18 Posts

Posted - 13 November 2002 :  05:22:43  Show Profile  Reply with Quote
Sure .. http://www.aneiki.com/forum<

regards,
AzureFlame
Go to Top of Page

red1
Junior Member

355 Posts

Posted - 13 November 2002 :  08:09:51  Show Profile  Reply with Quote
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=37445<

My Mods:
New Events Calendar
New Non-database Active Users
Go to Top of Page

Jeepers Ron
New Member

USA
95 Posts

Posted - 15 November 2002 :  19:49:24  Show Profile  Visit Jeepers Ron's Homepage  Reply with Quote
I love this mod, but I'm having a little trouble with the editing the ASP files. By working with the each file one by one uploading after every change, I narrowed it down to these file/changes.

I'm using
Snitz Forums 2000 Version 3.4.03
With mods made for version 3.4.03
Private messages
Poll mod

When I try to edit in the changes listed below, something goes wrong.

Post.asp
-------
* On line 815 find these lines:
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
" <br />" & vbNewLine & _
* Replace with these:
Response.Write " <tr>" & vbNewLine
if Request.QueryString("event")="1" or isevent="1" then
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & strCalEventDetails & "</b><br />" & vbNewLine
else
Response.Write " <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine
end if
Response.Write " <br />" & vbNewLine & _

-------------
Topic.asp
-------------
* On line 877 find these:
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(formatStr(Topic_Message))
* Insert these lines *ABOVE*:
if isevent="1" then
Response.Write "<DIV style=""float:left"">" & vbnewline
DrawMonth dateHolder, 1, 0, 1
Response.Write "</DIV>" & vbnewline & _
"<B>" & ChkString(Topic_Subject,"title") & "<BR />" & vbnewline & _
FormatDateTime(dateHolder, vbLongDate) & "</B><BR /><BR />" & vbnewline
end if
-------------
I got it working, but without some of the nice features.
Any ideas what I could be doing wrong?

<

Jeeper from Michigan

Go to Top of Page

red1
Junior Member

355 Posts

Posted - 15 November 2002 :  20:44:47  Show Profile  Reply with Quote
You guys having trouble installing the mod should really post on the Mod implementation forum instead. I wanted this thread for bug reports, comments and suggestions.

If you already have the poll mod it can get confusing because there are already a lot of changes to the code.


In post.asp the line that you're having trouble with simply replaces the words "Message:" with "Event Details:" if the user is posting an event. Just look for this:

Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Message:</b><br />" & vbNewLine & _
" <br />" & vbNewLine & _


and that's the line you should replace.


In topic.asp these lines

	if Request.QueryString("SearchTerms") <> "" then
		Response.Write	SearchHiLite(formatStr(Topic_Message))
	else
		Response.Write	formatStr(Topic_Message)
	end if

display the message of the topic. There are two of them if you have the poll mod. Just find both instances of them and insert the mod code above them.

If you're still having trouble you can save your files as .txt and post the links here so I can look at them.<

My Mods:
New Events Calendar
New Non-database Active Users
Go to Top of Page

Jeepers Ron
New Member

USA
95 Posts

Posted - 16 November 2002 :  01:05:15  Show Profile  Visit Jeepers Ron's Homepage  Reply with Quote
Okay thanks for your help Red1, I uploaded those APS files as TXT ones on my web page. I'll go to the Mod implementatioon forum for any other questions.

I think the topic.asp is ok now, although I had 4 instances of that line of code.

As for the Post.asp I couldn't find the word Message in that line of code at all.

Here is the address of both files in questions

http://www.ronsplace.net/TXT/topic-mod.txt

http://www.ronsplace.net/TXT/post-mod.txt

Thanks again.<

Jeeper from Michigan

Go to Top of Page

red1
Junior Member

355 Posts

Posted - 16 November 2002 :  02:15:02  Show Profile  Reply with Quote
In your topic-mod.txt, you only need to insert the mod code once. It's the one right before these lines (line 1148):

	if IsPoll = 1 then
		if Request.QueryString("results") = "1" or _
		(Request.QueryString("results") <> "1" and Voted = true) or Status < 3 or Poll_Status = 0 or Forum_Polls = "0" then

Delete all the other instances where you inserted the code (sorry about this).


And in post-mod.txt find these lines (949):

	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		else 
			Response.Write "Message:"
		end if 


Replace with this:

	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		elseif Request.Querystring("event") = "1" or isevent = "1" then
			Response.Write strCalEventDetails
		else 
			Response.Write "Message:"
		end if 
<

My Mods:
New Events Calendar
New Non-database Active Users
Go to Top of Page

MichaelA
Junior Member

USA
222 Posts

Posted - 16 November 2002 :  13:40:32  Show Profile  Reply with Quote
quote:
Originally posted by red1
And in post-mod.txt find these lines (949):

	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		else 
			Response.Write "Message:"
		end if 


Replace with this:

	if strRqMethod = "Topic" or strRqMethod = "EditTopic" then 
		if Request.QueryString("poll") = "1" then
			Response.Write "Poll Question:"
		elseif Request.Querystring("event") = "1" or isevent = "1" then
			Response.Write strCalEventDetails
		else 
			Response.Write "Message:"
		end if 




I was about to post the same question nd you've already answered it!

Thanks.

Mike
<
Go to Top of Page

Francodepaw
Junior Member

USA
111 Posts

Posted - 16 November 2002 :  15:20:19  Show Profile  Reply with Quote
quote:
Originally posted by Guru

Hi,

Maybe a little bug? When i select monthly view, i got an error.

Debugging the code I changed line 590 from asp.cal from

rs.open StrSql, My_conn

into

rs.open StrSql, My_conn, adOpenStatic

This seems to work fine now.....



Kewl and Thanx...

mine was actually on line 602

This fixed my month view problem as well. Monthly views with no events would crap out part way through the first week and display the ODBC error below in the cell that would be the first day of that month and would not display the rest of the month.

BTW: I am using MySql.

Error I was recieving was:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Function sequence error

/cal.asp, line 616

Sheesh, That was the last one...I even made it through with poll mod installed. Couldn't have done without the threads here on Snitz.

Awesome MOD Red1
<
Go to Top of Page

red1
Junior Member

355 Posts

Posted - 16 November 2002 :  21:33:43  Show Profile  Reply with Quote
Hey thanks for this info. I'll be sure to update the file, now that you've verified that this fix works.<

My Mods:
New Events Calendar
New Non-database Active Users
Go to Top of Page

Francodepaw
Junior Member

USA
111 Posts

Posted - 17 November 2002 :  12:27:29  Show Profile  Reply with Quote
Whoops...One last thing. Don't know if this is user inflicted, MySql or what. I did try a clean cal.asp with same results.

Click on Events List link
Page displays fine
cell where events list should be displayed is solid black with titles at the bottom of the text area.

Any thoughts?<
Go to Top of Page

Francodepaw
Junior Member

USA
111 Posts

Posted - 17 November 2002 :  14:46:52  Show Profile  Reply with Quote
quote:
Originally posted by Francodepaw

Whoops...One last thing. Don't know if this is user inflicted, MySql or what. I did try a clean cal.asp with same results.

Click on Events List link
Page displays fine
cell where events list should be displayed is solid black with titles at the bottom of the text area.

Any thoughts?



Ok upon further scrutiny.

View source of Cal.asp with Event List selected and I found at the bottom:

<TABLE width="80%" bgColor="black" cellSpacing="0" cellPadding="0">
<TR><TD>
<TABLE width="100%" cellSpacing="1" cellPadding="4">
<TD noWrap align=center bgColor="navy"> </TD>
<TD noWrap align=center bgColor="navy"><FONT face=Aria,Verdana,Helvetica size=2 color=white><B>Title</B></FONT></TD>
<TD noWrap align=center bgColor="navy"><FONT face=Aria,Verdana,Helvetica size=2 color=white><B>Date</B></FONT></TD>
<TD noWrap align=center bgColor="navy"> </TD>
<font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a01ca'</font>
<p>
<font face="Arial" size=2>Variable uses an Automation type not supported in VBScript</font>
<p>
<font face="Arial" size=2>/cal.asp</font><font face="Arial" size=2>, line 1044</font>

So it tried to tell me there was an error.

Line 1044 of cal.asp

if forumAccess and not(Moderation = "Y" and Topic_Status > 1 and Topic_Author <> MemberID) then
Response.Write "<TR class=""eventslist"">" & vbNewLine & _
"<TD>" & getCurrentIcon(strIconEvent,"","align=""absmiddle""") & "</TD>" & _
" <TD width=""100%""><SPAN class=""spnMessageText""><A href=""topic.asp?TOPIC_ID=" & Topic_ID & """>" & Topic_Subject & "</A></SPAN></TD>" & vbNewLine & _
" <TD noWrap><SPAN class=""spnMessageText""><A href=""cal.asp?date=" & Event_Date & """>" & FormatDateTime(Event_Date,vbLongdate) & "</A></SPAN></TD>" & vbNewLine & _
" <TD noWrap align=center>" & vbnewline

No Idea what to look for.<
Go to Top of Page
Page: of 32 Previous Topic Topic Next Topic  
Previous Page | Next Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.19 seconds. Powered By: Snitz Forums 2000 Version 3.4.07