Anonymous

<%@ Control Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>

<script runat="server">
    
    Public aosCode As String
    Public YOS As String
    Public Term As String
    
    Public Property GetAos() As String
        Get
            Return aosCode
        End Get

        Set(ByVal Value As String)
            aosCode = Value
        End Set
    End Property
    
    Public Property GetYOS() As String
        Get
            Return YOS
        End Get

        Set(ByVal Value As String)
            YOS = Value
        End Set
    End Property
    
    Public Property GetTerm() As String
        Get
            Return Term
        End Get

        Set(ByVal Value As String)
            Term = Value
        End Set
    End Property
      
    
    Sub Page_Load(ByVal sender As Object, ByVal E As EventArgs)
           
        Dim dbConn As OleDbConnection
        Dim myConnectionString As String = ConfigurationManager.ConnectionStrings("MyDBConnection").ToString
        dbConn = New OleDbConnection(myConnectionString)
        dbConn.Open()
        Dim da As OleDbDataAdapter
        Dim dSet As DataSet
        Dim strSQLQuery As String
        strSQLQuery = "SELECT [CPFileSess], [AosPeriod], [QSDate], [QEDate], [ASDate], [AEDate], [Weeks], [HoursPerWeek], [Site], [Day], [StartTime], [EndTime], [IncILR], [PostCode], [QualAimRef], [Waiver], [TuitionFees], [Keyed] FROM [CPFile_Sess] WHERE [AosCode] = @AosCode AND [YOS] = @YOS AND [Term] = @Term ORDER BY [AosPeriod] ASC;"
        da = New OleDbDataAdapter(strSQLQuery, dbConn)
        da.SelectCommand.Parameters.Add("@AosCode", OleDbType.VarChar, 10)
        da.SelectCommand.Parameters.Add("@YOS", OleDbType.VarChar, 10)
        da.SelectCommand.Parameters.Add("@Term", OleDbType.VarChar, 10)
        da.SelectCommand.Parameters("@AosCode").Value = aosCode
        da.SelectCommand.Parameters("@YOS").Value = YOS
        da.SelectCommand.Parameters("@Term").Value = Term
        dSet = New DataSet
        da.Fill(dSet)
        dbConn.Close()
    End Sub
    
    Sub rpCPDetail_ItemCommand(ByVal sender As Object, ByVal e As RepeaterCommandEventArgs)
    
    End Sub

</script>

<asp:Panel ID="Panel1" runat="server" class="Sessions">
    <asp:Repeater ID="rpCPDetail" runat="server" OnItemCommand="rpCPDetail_ItemCommand">
        <HeaderTemplate>
        </HeaderTemplate>
        <ItemTemplate>
            <tr>
                <td>
                    <%#Container.dataitem("AosPeriod")%>
                </td>
                <td>
                    <%#Container.dataitem("Site") %>
                </td>
                <td>
                    <%#Container.dataitem("ASDate") %>
                </td>
                <td>
                    <%#Container.dataitem("AEDate") %>
                </td>
                <td>
                    <%# Container.DataItem("Day") %>
                </td>
                <td>
                    <%#DataBinder.Eval(Container.DataItem, "StartTime", "{0:t}") %>
                    -
                    <%#DataBinder.Eval(Container.DataItem, "EndTime", "{0:t}") %>
                </td>
                <td>
                    <%#Container.dataitem("IncILR")%>
                </td>
                <td>
                    <%#Container.dataitem("PostCode") %>
                </td>
                <td>
                    <%#Container.dataitem("QualAimRef") %>
                </td>
            </tr>
        </ItemTemplate>
    </asp:Repeater>
</asp:Panel>