Author |
Topic |
laser
Advanced Member
Australia
3859 Posts |
Posted - 11 November 2002 : 03:20:54
|
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.< |
|
|
Jeepaholic
Average Member
USA
697 Posts |
Posted - 11 November 2002 : 04:18:52
|
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
|
|
|
AzureFlame
Starting Member
Australia
18 Posts |
Posted - 12 November 2002 : 21:50:33
|
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 |
|
|
red1
Junior Member
355 Posts |
|
AzureFlame
Starting Member
Australia
18 Posts |
|
red1
Junior Member
355 Posts |
|
Jeepers Ron
New Member
USA
95 Posts |
Posted - 15 November 2002 : 19:49:24
|
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
|
|
|
red1
Junior Member
355 Posts |
Posted - 15 November 2002 : 20:44:47
|
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 |
|
|
Jeepers Ron
New Member
USA
95 Posts |
Posted - 16 November 2002 : 01:05:15
|
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
|
|
|
red1
Junior Member
355 Posts |
Posted - 16 November 2002 : 02:15:02
|
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 |
|
|
MichaelA
Junior Member
USA
222 Posts |
Posted - 16 November 2002 : 13:40:32
|
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 < |
|
|
Francodepaw
Junior Member
USA
111 Posts |
Posted - 16 November 2002 : 15:20:19
|
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 < |
|
|
red1
Junior Member
355 Posts |
|
Francodepaw
Junior Member
USA
111 Posts |
Posted - 17 November 2002 : 12:27:29
|
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?< |
|
|
Francodepaw
Junior Member
USA
111 Posts |
Posted - 17 November 2002 : 14:46:52
|
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.< |
|
|
Topic |
|