quote:

---

Hi guys!

Further to that thought, 'Kal Corp'....

This: sSql = "Select Member_ID from Forum_Members where " & strDBNTSQLName& " = '" & strDBNTUserName & "'"

Should [i]actually[/] be: sSql = "Select Member_ID from " & strTablePrefix & "Members where " & strDBNTSQLName& " = '" & strDBNTUserName & "'"

based on code in the rest of the forum...

---

quote:

---

Hi guys/gals...

been working on the event mod that AzKnight has started... and finished with the weekly display ... and started the private events and addition of times...

You can see the results here..

http://www.nwcfonline.com/main/forum/events.asp

I am having trouble with the showform() function ... it shows all the new fields I added but refuses to read the database and put the results into the form...

I have spent too much time on this.. and need to actually do some work at work.. so I am opening the half finished code up to the pro's .. ...

Let me know if you cant figure out my logic... but I think I documented it well enough...

-Tim

Event code (2 files) http://www.nwcfonline.com/public/events1b.zip

Also I added three columns to the Forum_Events Table

START_TIME [date/time]
END_TIME [date/time]
EVENT_TYPE [number] Event Type (0 = Public) (1=Private) (2=Personal)

I Created another table called.

[FORUM_EVENTS_ALLOW_PRIVATE] <-- unimplented due to forms not working yet.

MEMBER_ID [number] planned on using same logic as the forums are using.
EVENT_ID [number]

Okay thats bout it...

Let me know what you think of my work on it so far...
Have a great day.

-Tim


*Graphics Withheld for Adminstrative reasons*
-Tim
System Admin

---

function emitupcomingevents
	dim rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	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",120,date()) & "' Order by start_date"
		
	rs.Open strSql, my_Conn
	do until rs.EOF
		Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & "><a href=events.asp?date=" & rs("Start_Date") & "><acronym title='" & rs("Start_Date") & "'>" & rs("Event_Title") & "</acronym></a></font><br>"
		rs.MoveNext
	loop
	rs.Close
	set rs = nothing
end function

function emitpastEvents
	dim rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	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",-120,date()) & "' Order by start_date desc"
		
	rs.Open strSql, my_Conn
	do until rs.EOF
		Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & "><a href=events.asp?date=" & rs("Start_Date") & "><acronym title='" & rs("Start_Date") & "'>" & rs("Event_Title") & "</acronym></a></font><br>"
		rs.MoveNext
	loop
	rs.Close
	set rs = nothing
end function

quote:

---

Let me know what you think of my work on it so far...
Have a great day.

-Tim

---

quote:

---

Getting somewhere FAST here!...

stumbled across this calender/events thing ... mayby u can use itīs source for inspiration/understanding private events?

http://www.aspemporium.com/aspEmporium/examples/dayplanner/index.asp

Well godīs speed 2 all u coders!

MPH73

---

quote:

---

I've been working on this for the last week and still haven't been successful in getting this to work for me.

I know AznKnight you don't have it setup for SQL, but does anyone out there have this mod working on SQL Server 7??? If so can you please post the code so I can try it on my server.

Thanks.

I'm Beyond Help

---

quote:

---

Hi Aznknight,

I've added an acronym tag to display a "pop-up" of the start date when hovering over an "upcoming or recent event". See below...

---

Very Neat and useful idea! I'll implement it on nice version too .

quote:

---

Question: I'd like to do a similar thing on the "View Calendar" -- to display the event title when hovering over a date with an event (green). If you have a moment, could you point out either where this is or how I might find it? Thanks...

---

What would happen when a day has 2 or more events? which event title will the acronym tag point to?

In the EmitMonth and EmitMonth 2 look for this and then add the acronym around the intPrintDay.

if dtoday = date() then
     ' Print the date in a highlighted font
     Write_TD2 "<A HREF=events.asp?date="& Server.URLEncode(dToday) & "&month=" & month(dToday) & "&year=" & year(dToday) & " CLASS='EVENT'> " & intPrintDay & "</A>", "TODAY", dToday
else
     ' Print the date in a highlighted font
     Write_TD2 "<A HREF=events.asp?date="& Server.URLEncode(dToday) & "&month=" & month(dToday) & "&year=" & year(dToday) & " CLASS='EVENT'> " & intPrintDay & "</A>", "HL", dToday
end if

- Alan


- Alan

quote:

---

quote:

---

I've been working on this for the last week and still haven't been successful in getting this to work for me.

I know AznKnight you don't have it setup for SQL, but does anyone out there have this mod working on SQL Server 7??? If so can you please post the code so I can try it on my server.

Thanks.

I'm Beyond Help

---

Hey Crazy I know when one the reason why this mod didn't work on sql server db, pointed out by Kal Corp. I didn't use the strDBNTSQLNAME variable. I've working on a new release of this mod that will fix that. Hope it will make it work with sql. Just started on this yesterday.

- Alan

---

quote:

---

quote:

---

Hi guys!

Further to that thought, 'Kal Corp'....

This: sSql = "Select Member_ID from Forum_Members where " & strDBNTSQLName& " = '" & strDBNTUserName & "'"

Should [i]actually[/] be: sSql = "Select Member_ID from " & strTablePrefix & "Members where " & strDBNTSQLName& " = '" & strDBNTUserName & "'"

based on code in the rest of the forum...

---

Oh woops... Thanks rob for pointing that out. I need to change all the FORUM_ to strTablePrefix for this to work with people that have changed that varibable.

Thanks Kal Corp..Your right! I need to do the dbnt stuff for nt users and db modes. Sorry for not thinking of that.

Next service realise should have these changes. Time-permitting.


- Alan

---

quote:

---

quote:

---

Hi Aznknight,

I've added an acronym tag to display a "pop-up" of the start date when hovering over an "upcoming or recent event". See below...

---

Very Neat and useful idea! I'll implement it on nice version too .

quote:

---

Question: I'd like to do a similar thing on the "View Calendar" -- to display the event title when hovering over a date with an event (green). If you have a moment, could you point out either where this is or how I might find it? Thanks...

---

What would happen when a day has 2 or more events? which event title will the acronym tag point to?

In the EmitMonth and EmitMonth 2 look for this and then add the acronym around the intPrintDay.

if dtoday = date() then
     ' Print the date in a highlighted font
     Write_TD2 "<A HREF=events.asp?date="& Server.URLEncode(dToday) & "&month=" & month(dToday) & "&year=" & year(dToday) & " CLASS='EVENT'> " & intPrintDay & "</A>", "TODAY", dToday
else
     ' Print the date in a highlighted font
     Write_TD2 "<A HREF=events.asp?date="& Server.URLEncode(dToday) & "&month=" & month(dToday) & "&year=" & year(dToday) & " CLASS='EVENT'> " & intPrintDay & "</A>", "HL", dToday
end if

- Alan


- Alan

---

function emitupcomingevents
	dim rs
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "SELECT start_date, end_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",180,date()) & "' Order by start_date"
	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=" & strFooterFontSize & "><a href=events.asp?  date=" & rs("Start_Date") & "><acronym title='" & rs("Start_Date") & "'>" & Trim(rs("Event_Title")) & "</acronym></a></font><br>"
		ELSE 
			Response.Write "<font face=" & strDefaultFontFace & " size=" & strFooterFontSize & "><a href=events.asp?date=" & rs("Start_Date") & "><acronym title='" & rs("Start_Date") & " - " & rs("End_Date") & "'>" & Trim(rs("Event_Title")) & "</acronym></a></font><br>"
		END IF
		rs.MoveNext
	loop
	rs.Close
	set rs = nothing