E
Elmo Watson
I'm using a database to enter calendar items, using the ASP.Net calendar -
I've got it working with one item per date, using code on the net - - it's
using a datareader to read the items, then split them up into an array:
sDate=objDR("CalDate")
sItem = objDR("Title")
DateSplit=sDate.Split("/")
intMonth=DateSplit(0)
intDate=DateSplit(1)
intYear =DateSplit(2)
DateItems(intMonth,intDate,intYear) = sItem
then -
Sub Calendar_DayRender(sender As Object, e As DayRenderEventArgs)
Dim d as CalendarDay
Dim c as TableCell
d = e.Day
c = e.Cell
Dim Hol As String = DateItems(d.Date.Month,d.Date.Day,
d.Date.Year)
If Hol <> "" Then
c.Controls.Add(new LiteralControl("<br><span
style=""font-size:7pt;color:blue"">" + Hol +"</span>" ))
End If
End Sub
however, what I'd like, is to enter different times/events for certain
dates - then the titles/events (no matter how many, appear in the calendar
day - - I'm kind of stuck - - since I don't
I'm using VB.Net - any ideas?
I've got it working with one item per date, using code on the net - - it's
using a datareader to read the items, then split them up into an array:
sDate=objDR("CalDate")
sItem = objDR("Title")
DateSplit=sDate.Split("/")
intMonth=DateSplit(0)
intDate=DateSplit(1)
intYear =DateSplit(2)
DateItems(intMonth,intDate,intYear) = sItem
then -
Sub Calendar_DayRender(sender As Object, e As DayRenderEventArgs)
Dim d as CalendarDay
Dim c as TableCell
d = e.Day
c = e.Cell
Dim Hol As String = DateItems(d.Date.Month,d.Date.Day,
d.Date.Year)
If Hol <> "" Then
c.Controls.Add(new LiteralControl("<br><span
style=""font-size:7pt;color:blue"">" + Hol +"</span>" ))
End If
End Sub
however, what I'd like, is to enter different times/events for certain
dates - then the titles/events (no matter how many, appear in the calendar
day - - I'm kind of stuck - - since I don't
I'm using VB.Net - any ideas?