Creating the page for viewing  events from the database  

The  file that should use the following format:

calendar.aspx



<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.Data.OleDb.OleDbException" %>
<script runat="server">

    Public Structure MyDates
    
                           Dim EventDate as Date
                           Dim EventTitle as String
    
                   End Structure
    
                   Public MyCollection As Collection
                   Public tempDate As Date
    
                   Public Sub Page_Load()
                           tempDate = Calendar1.TodaysDate
                           If Not (Page.IsPostBack) Then
                               Get_DBItems()
                           End if
    
    
    
                   End Sub
    
    
    
    
    
                   Public Sub  Get_DBItems()
    
                   dim sSQL as string
    
                   sSQL = "SELECT * FROM Events  ; "
    
                    CreateStoredProc(sSQL)
    
    
    
                  End Sub
    
    
    
                   Private Sub CreateStoredProc(ByVal sSQL As String)
    
    
                           Dim myConnection As OleDbConnection
                           Dim myCommand As OleDbCommand
    
                         myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="  & Server.MapPath("database/eventcalendar.mdb")  & ";")
    
                           myCommand = New OleDbCommand()
                            myCommand.Connection = myConnection
                           myCommand.CommandText = sSQL
    
                           Dim myDataReader As OleDbDataReader
                           myConnection.Open()
    
                        Dim temp As MyDates
                            MyCollection = New Collection()
                       myDataReader=myCommand.ExecuteReader(system.data.CommandBehavior.CloseConnection)
    
    
                             While(myDataReader.Read())
                             temp = New MyDates()
                             temp.EventTitle= myDataReader.Item("Event")
                              temp.EventDate= myDataReader.Item("EventDate")
    
    
    
                               MyCollection.Add(temp)
    
    
                           End While
                           myDataReader.Close()
    
                           myConnection.Close()
    
    
    
                   End Sub
    
    
    
         Private Sub Calendar1_DayRender(sender As Object, e As DayRenderEventArgs)
          Dim Item as MyDates
           Dim TextColor as String
    
            Dim DayHold as Date = "01/01/1900"
    
           Dim MultipleItemDay as Boolean = False
    
    
           Dim DayTextHasChanged As Boolean = False
    
          Dim temp as StringBuilder
    
          If IsNothing(MyCollection) = True then
                Get_DBItems()
           End if
    
        For Each Item In MyCollection
                 If DayHold <> Item.EventDate Then
                    If DayTextHasChanged = True
                        Exit for
                    End if
                    MultipleItemDay = False
                    DayHold = Item.EventDate
             Else
                    MultipleItemDay = True
                End if
    
    
                If e.Day.Date = Item.EventDate.ToString("d") Then
                    Select Case Item.EventTitle
                        Case 1:TextColor="Blue"
                        Case 2:TextColor="Red"
                        Case 3:TextColor="Orange"
                        Case 4:TextColor="Green"
                        Case 5:TextColor="Brown"
                        Case 6:TextColor="Gray"
                        Case Else : TextColor="Black"
                    End Select
                    If MultipleItemDay = False Then
                        temp = New StringBuilder() '
                    Else
                        temp.Append("<br>") '
                    End If
                    temp.Append("<span style=""font-family:BELL MT; font-size:4px; color:#0033ff")
                    temp.Append(TextColor)
                    temp.Append("""><br>")
                    temp.Append(Item.EventTitle.ToString())
                    temp.Append("</span>")
                    DayTextHasChanged = True '
            Next
    
    
            If DayTextHasChanged = True then
                e.Cell.Controls.Add(New LiteralControl(temp.ToString()))
            End If
    
    End Sub
    
    Private Sub Calendar1_SelectionChanged(sender As Object, e As EventArgs)
    
    
        DateOfSubmission.Text=Calendar1.SelectedDate
             dim sSQL as string
              sSQL = "SELECT *  FROM Events  where  EventDate ='" & DateOfSubmission.text & "'   "
    
                           Dim myConnection As OleDbConnection
                           Dim myCommand As OleDbCommand
    
    
                            myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="  & Server.MapPath("database/eventcalendar.mdb")  & ";")
    
                           myCommand = New OleDbCommand(sSQL,myConnection)
                            myCommand.Connection = myConnection
                           myCommand.CommandText = sSQL
    
                           Dim myDataReader As OleDbDataReader
                           myConnection.Open()
                        myDataReader=myCommand.ExecuteReader(system.data.CommandBehavior.CloseConnection)
    
    
             Dim temp As String = ""
    
           Dim CategoryDate as String
            While(myDataReader.Read())
    
             temp &= " Event :" & myDataReader.Item("Event") & "<br>Date : " &  myDataReader.Item("EventDate") & "<br><br>"
    
    
    
    
    
    
    
    
            End While
    
    
            daydetail.Visible = True
            daydetail_render.InnerHTML = temp
            myDataReader.Close()
            myConnection.Close()
    
    
    
    
    
              Get_DBItems()
                 End Sub
    
    
    
    
                   Private Sub MonthChanged(source As Object, e As MonthChangedEventArgs)
    
                           tempDate = e.NewDate
    
                           '//Reload the collection
                           Get_DBItems()
                   End Sub
    
    
    ' Insert page code here
    '

</script>
<html>
<head>
    <title>WebSolutions4Success- Calendar Events</title>
</head>
<body leftmargin="0" topmargin="0">
    <form runat="server">
        <table cellspacing="0" cellpadding="0" width="100%" border="0">
            <tbody>
                <tr>
                    <td align="middle" colspan="3" height="21">
                        <asp:Label id="Label1" runat="server" font-names="Verdana" font-bold="True" forecolor="Gray" font-size="XX-Small">Event
                        Calendar</asp:Label></td>
                </tr>
                <tr>
                    <td align="middle" colspan="3" height="21">
<asp:Calendar id="Calendar1" runat="server" Calendar="Calendar" DayStyle-HorizontalAlign="Left" DayStyle-verticalalign="Top" DayStyle-Font-Name="Arial" DayStyle-Font-Size="6" NextPrevFormat="ShortMonth" TitleStyle-Font-Name="Verdana" BorderColor="#FFE0C0" Runat="server" SelectedDayStyle-ForeColor="#000000" DayStyle-BorderStyle="Solid" DayStyle-BorderWidth="1" TodayDayStyle-ForeColor="Black" DayHeaderStyle-Font-Name="Verdana" CellPadding="0" OnDayRender="Calendar1_DayRender" OnSelectionChanged="Calendar1_SelectionChanged" OnVisibleMonthChanged="MonthChanged" BorderStyle="Solid" BorderWidth="1px" Font-Size="XX-Small" Width="200px" Height="200px" SelectorStyle-BackColor="#bdf76b" TodayDayStyle-BackColor="gainsboro" DayHeaderStyle-BackColor="#ebffce" OtherMonthDayStyle-ForeColor="#C0C0C0" TitleStyle-BackColor="gray" TitleStyle-Font-Bold="False" TitleStyle-Font-Size="6" SelectedDayStyle-BackColor="#faebd7" SelectedDayStyle-Font-Bold="True" BackColor="White" ForeColor="#FF8000" Font-Names="Verdana">
                            <TodayDayStyle font-size="XX-Small" font-names="Verdana" font-bold="True" forecolor="#FF8000" backcolor="#FFE0C0"></TodayDayStyle>
                            <SelectorStyle forecolor="#E3FDB6" backcolor="#BEF76C"></SelectorStyle>
                            <DayStyle font-size="XX-Small" font-names="Arial" horizontalalign="Left" borderwidth="1px" borderstyle="Solid" verticalalign="Top"></DayStyle>
                            <DayHeaderStyle font-size="XX-Small" font-names="Verdana" backcolor="White"></DayHeaderStyle>
                            <SelectedDayStyle font-size="XX-Small" font-names="Verdana" font-bold="True" forecolor="White" backcolor="#FF8000"></SelectedDayStyle>
                            <TitleStyle font-size="XX-Small" font-names="Verdana" font-bold="True" backcolor="#FFE0C0"></TitleStyle>
                            <OtherMonthDayStyle forecolor="Silver"></OtherMonthDayStyle>
                        </asp:Calendar>                    </td>
                </tr>
                <tr>
                    <td align="middle">
                        <br />
                        <asp:TextBox id="DateOfSubmission" runat="server" Visible="False"></asp:TextBox>
                        <div id="daydetail" style="BORDER-RIGHT: #e0e0e0 thin dotted; BORDER-TOP: #e0e0e0 thin dotted; Z-INDEX: 102; BORDER-LEFT: #e0e0e0 thin dotted; WIDTH: 428px; BORDER-BOTTOM: #e0e0e0 thin dotted; HEIGHT: 57px" runat="server" border="0" width="300" font-names="Verdana"><b><font class="bodytxt" face="Verdana" color="#ff8000" size="1">Click
                            on the Calender to view the details of Schedule </font></b>
                            <br />
                            <b><font face="verdana" color="dimgray" size="1"><span class="bodytext" id="daydetail_render" runat="server"></span></font></b>
                        </div>
                    </td>
                </tr>
            </tbody>
        </table>
    </form>
</body>
</html>