quote:

---

Aznknight tis a great mod...

I have been playing with it since you posted it... and made a few changes to the code myself.. One of them is to make the upcoming events actual order of the events.. (note, if you have more than 1 event on a upcoming day you will get the last event of that day then the prior event... I checked your version today and it had same issue)

This was a simple mod... just added a DESC and ASC for Event_id

Now, I am playing with trying to be able to show a week of events starting with the Sunday...

something on the other of this.

Events for the week of Sunday, January 14th 2001.

Monday, blah blah blah
Tuesdy, more blah blah
...
etc..
Thru Sat...

I have started this modification using code from your subroutine that is designed to display the upcoming events and then some of the event detail code...

Unfortunately I think I made a mess of the code.. and need to start over..

Is there anyone else that thinks something like this will improve this great mod?

-Tim

you can see my "work in progress" at http://www.nwcfonline.com/main/forum/events.asp

Thanks in Advance peoples!

*Graphics Withheld for Adminstrative reasons*
-Tim
System Admin

---

Tim, thanks.

Woops on forgot to about the sorting within a day for the upcoming events. That's for pointing it out...I would totally miss it.

changed (line 904):
strSql = "SELECT start_date, event_title, M_Name FROM FORUM_EVENTS Inner JOIN Forum_Members ON FORUM_EVENTS.added_by = Forum_Members.Member_ID WHERE start_date >= #" & date() & "# and start_date < #" & DateAdd("d",30,date()) & "# Order by start_date"

to

strSql = "SELECT start_date, event_title, M_Name FROM FORUM_EVENTS Inner JOIN Forum_Members ON FORUM_EVENTS.added_by = Forum_Members.Member_ID WHERE start_date >= #" & date() & "# and start_date < #" & DateAdd("d",30,date()) & "# Order BY start_date, event_id ASC"

Also, let me know when you have week view working.

- Alan


Edited by - aznknight on 15 January 2001 13:25:01

quote:

---

again is there ANY way around this? i have so many mods installed to upgrade is going to be a pain, but if i do upgrade what files do i need to change? im on 3.1 Service Release 2, what files need to be replaced ?

---

		strOnlineLocation = "Profile"
	End If
ElseIf lcase(Right(strOnlinePathInfo, 10)) = "events.asp" Then
	strOnlineLocation = "<a href=""events.asp"">Events Calendar</a>"
ElseIf lcase(Right(strOnlinePathInfo, 15)) = "classifieds.asp" Then
	strOnlineLocation = "<a href=""classifieds.asp"">Classifieds</a>"
ElseIf lcase(Right(strOnlinePathInfo, 11)) = "pm_view.asp" Then
	strOnlineLocation = "<a href=""pm_view.asp"">Private Message Inbox</a>"

quote:

---

Thanks Richard... Worked Great

My Demo Site
www.eastpasco.com

---

quote:

---

I haven´t had time to test the new version of this (very) cool mod yet...
Is it able to show only the admin and the particular users events by now?

---

<font face="<% =strDefaultFontFace %>" color="<% =strCategoryFontColor %>" size="<% =strDefaultFontSize %>"