quote:

---

Richard... Find 2 small problems with the Calendar.. First it's setup like yours blue/black.

when you add a event the "Day" turns white as is the background so you can't see the "Date"

Also when you add a event then mouse over it the event link turns white and blends in with the white background.

Is there anyway to just change those on the Calendar?


BTW... AWESOME JOB on the Calendar!!


Thanks
Rick

---

quote:

---

Can someone help me with this one?

I try to add a new event on SR4 with SQL Server:

Microsoft OLE DB Provider for ODBC Drivers error '80040e57'

[Microsoft][ODBC SQL Server Driver][SQL Server]String or binary data would be truncated.

/forum/events.asp, line 526

=====
Here's line 526 and the Previous 5 lines:

If sUpdateMode = "edit" Then
sSQL = "UPDATE FORUM_EVENTS SET Start_Date = '" & cDate(Request.Form("START_DATE")) & "', End_Date = '" & enddate & "', Event_Title = '" & fixquote(Request.Form("EVENT_TITLE")) & "', Event_Details = '" & fixquote(Request.Form("EVENT_Details")) & "', date_added = '" & now() & "' WHERE Event_ID=" & Request.Form("Event_ID")
my_Conn.Execute sSQL
Else
sSQL = "INSERT INTO FORUM_EVENTS (Start_Date, End_Date, Event_Title, Event_Details, Date_Added, Added_by) Values ('" & cDate(Request.Form("START_DATE")) & "', '" & enddate & "',' " & fixquote(Request.Form("EVENT_TITLE")) & "', '" & fixquote(Request.Form("EVENT_Details")) & "', '" & now() & "', '" & memberid & "')"
my_Conn.Execute sSQL




« Nokturnal.Net »
Seize The Night

---

quote:

---

quote:

---

Richard... Find 2 small problems with the Calendar.. First it's setup like yours blue/black.

when you add a event the "Day" turns white as is the background so you can't see the "Date"

Also when you add a event then mouse over it the event link turns white and blends in with the white background.

Is there anyway to just change those on the Calendar?


BTW... AWESOME JOB on the Calendar!!


Thanks
Rick

---

Hey Rick they way the dates with events or without events are handled by the styles on the top of the page. Look and feel especially the colors and hover stuff are changed up their.

Richard customized it for his site so styles might look different on yours.

---

quote:

---

Can anyone help i'm comming up with this error on the events.asp page:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Line 1: Incorrect syntax near '#'.

/board/events.asp, line 625


which deals with this part of the code:
"ORDER BY Start_Date"
'Response.Write sSQL
'Open the RecordSet with a static cursor. This cursor provides bi-directional navigation
'Rs.Open sSQL, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
dim rs
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql, my_Conn <--- This line of code is 625


to view the error go to
Click here to view events.asp

Edited by - need300z on 11 January 2001 23:14:32

---

quote:

---

I agree with need300z, there needs to be a few mor characters allowed in the calendar view. Where in the code can it be modified to change the fonts size smaller and show more text?

---

	'-------------------------------------------------------------------------
	' This routine prints the individual table divisions for days of the month
	'-------------------------------------------------------------------------
	Sub Write_TD2(sValue, sClass, dDate)
		dim rsEvents, sETitle
		set rsevents = server.CreateObject("adodb.recordset")
		Response.Write "		<TD HEIGHT='80' WIDTH='14%' ALIGN='left' VALIGN='top' CLASS='" & sClass & "'> " & sValue 
		sSQL = 	"SELECT event_id, start_date, end_date, event_title FROM FORUM_EVENTS " & _
				"WHERE Start_Date <= #" & dDate & "# AND End_date >= #" & dDate & "# ORDER BY Event_ID "
		
		rsEvents.Open sSQL, my_Conn
		do while not(rsevents.EOF)
			sETitle = rsEvents("event_title")
			if len(sETitle) > 8 then
				sETitle = mid(sETitle,1,9) 
			end if
			Response.Write "<br><A HREF=events.asp?date="& Server.URLEncode(dToday) & ">" & sETitle & "</a>"
			rsEvents.MoveNext
		loop
		Response.Write "</TD>" & vbCrLf
		rsEvents.Close
		set rsevents = nothing
	End Sub

quote:

---

Great mod. Just a couple questions. Has anyone fixed the problem with when 2 ppl post a event on the same day it always shows the poster as the first person who posted? I tried Hoppers fix but it didn't work. On the main calender when you add a event and it shows up on the day which part allows me to change the link color?

Matt
If everything seems to be going your way, you have obviously overlooked something.

---