quote:

---

if it relates to MEMBERS, you should change it to strMemberTablePrefix

'Resistance is futile'

---

quote:

---

Thanks Allan for the info -- I was able to get what I wanted done...

Yes, of course you are right about days with more than 1 event -- it looks like it would be difficult to show all events for a day within the acronym tag. Forunately for me, most of my dates are an event over a period of days, so this is just fine -- for others maybe not so fine! (I still think it's usefull)

Anyway, I "tweaked" the acronym pop-up over the "Upcoming/Recent Events", if you're interested -- here's the code just for the upcooming function:

Perhaps someone might find this useful...

Cheers!



Edited by - Rob Poretti on 20 January 2001 00:52:20

---

function EmitUpcomingEvents
	dim rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT TOP 20 start_date, end_date, event_title, " & strDBNTSQLName& " FROM " & _
		strTablePrefix & "EVENTS Inner JOIN " & strMemberTablePrefix & "Members ON " & strTablePrefix & "EVENTS.added_by = " & strMemberTablePrefix & "Members.Member_ID WHERE " & _
		"start_date >= #" & date() & "# and start_date < #" & DateAdd("d",30,date()) & "# Order by start_date, event_id ASC"
		
	rs.Open strSql, my_Conn
	do until rs.EOF
		IF FormatDateTime(rs("Start_Date"), 2)=FormatDateTime(rs("End_Date"), 2) THEN
			Response.Write "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & "><a href=" & sScript & ".asp?  date=" & rs("Start_Date") & "><acronym title='" & formatdatetime(rs("Start_Date"),1) & "'>" & left(rs("Event_Title"),25) & "</acronym></a></font><br>"
		ELSE 
			Response.Write "<font face=" & strDefaultFontFace & " size=" & strDefaultFontSize & "><a href=" & sScript & ".asp?date=" & rs("Start_Date") & "><acronym title='" & rs("Start_Date") & " - " & rs("End_Date") & "'>" & left(rs("Event_Title"),25) & "</acronym></a></font><br>"
		END IF		
		rs.MoveNext
	loop
	rs.Close
	set rs = nothing
end function

quote:

---

just in case if anyone only wants the administrator have full control of posting events on calender, change this line 267:

<%if mlev >= 1 then%>

to this

<% if (mlev = 4) or (lcase(strNoCookies) = "1") then %>

---

quote:

---

quote:

---

just in case if anyone only wants the administrator have full control of posting events on calender, change this line 267:

<%if mlev >= 1 then%>

to this

<% if (mlev = 4) or (lcase(strNoCookies) = "1") then %>

---

Actually changing this line will only hide the add an event link. Someone can still manipulate the query string and add events.

Need to change the mlev manually at some other points as well if you to make it admin only.

- Alan

---

quote:

---

Azknight,

hope you don't mind, I have changed your code so that on my site it does not store the dates as dates, but stores them as strings as the forum does. I have also added a private event marker.

here is the file if you want to check it out
events.asp
db setup script

Obviously, it won't work if you already have the events table set up with dates.

'Resistance is futile'

Fixed the broken link

Edited by - huwr on 20 January 2001 13:52:04

---

Hey Huwr, I don't mind at all .

I tried it originally using dates as string but was a bit uncomfortable doing that so I use normal dates instead. But if you can pull it off when date as strings...all the better!

Cool I want to see how you would do the private events thingy.

Too bad both the links aren't working right now.

- Alan

quote:

---

here is the file if you want to check it out
events.asp
db setup script

Obviously, it won't work if you already have the events table set up with dates.

'Resistance is futile'

Fixed the broken link

Edited by - huwr on 20 January 2001 13:52:04

---