<%@ Page Language="VB" EnableEventValidation="false" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ Register TagPrefix="uc0" TagName="GetSess" Src="GetSESS.ascx" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Public StaffCode As String
Public Age As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim NetworkUser As String
NetworkUser = Page.User.Identity.Name
Dim CurrUser As String
CurrUser = Right(NetworkUser, 8)
Dim dbConn As OleDbConnection
Dim myConnectionString As String = ConfigurationManager.ConnectionStrings("MyDBConnection").ToString
dbConn = New OleDbConnection(myConnectionString)
dbConn.Open()
Dim myCommand As New OleDbCommand("SELECT [Name] FROM [ActiveCPAdmins] WHERE [Username] = @Username", dbConn)
myCommand.Parameters.Add("@Username", OleDbType.VarChar, 10)
myCommand.Parameters("@Username").Value = CurrUser
Dim myReader As OleDbDataReader = myCommand.ExecuteReader()
myReader.Read()
If myReader.HasRows = True Then
If Not IsPostBack Then
drpAgeList.ClearSelection()
drpAgeList.Items.Add("Young")
drpAgeList.Items.Add("Adult")
Dim myCommand1 As New OleDbCommand("SELECT [PM], [StaffCode] FROM [PeopleUsingWithCoursesRolled]", dbConn)
Dim myReader1 As OleDbDataReader = myCommand1.ExecuteReader()
While myReader1.Read()
drpPMList.ClearSelection()
Dim newListItem As New ListItem()
newListItem.Text = myReader1.GetString(0)
newListItem.Value = myReader1.GetString(1)
drpPMList.Items.Add(newListItem)
End While
End If
Else
Response.Redirect("GenError.aspx?ErrorCode=1")
End If
myReader.Close()
dbConn.Close()
End Sub
Sub rpCPDetail_ItemCommand(ByVal sender As Object, ByVal e As RepeaterCommandEventArgs)
End Sub
Private Function IsEntered(ByVal yoItsAParam As Boolean) As String
Dim WriteBack As String
If yoItsAParam = True Then
WriteBack = "<img src='Images/greenTick.gif' />"
Else
WriteBack = "<img src='Images/redX.gif' />"
End If
Return (WriteBack)
End Function
Protected Sub cmdView_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim dbConn As OleDbConnection
Dim myConnectionString As String = ConfigurationManager.ConnectionStrings("MyDBConnection").ToString
dbConn = New OleDbConnection(myConnectionString)
dbConn.Open()
Dim TempTable As New DataTable()
Dim Row As DataRow
Dim da As OleDbDataAdapter
TempTable.Columns.Add("aos_code", Type.GetType("System.String"))
TempTable.Columns.Add("Groups", Type.GetType("System.String"))
TempTable.Columns.Add("YOS", Type.GetType("System.String"))
TempTable.Columns.Add("Term", Type.GetType("System.String"))
TempTable.Columns.Add("Starts", Type.GetType("System.String"))
TempTable.Columns.Add("Retained", Type.GetType("System.String"))
TempTable.Columns.Add("Achieved", Type.GetType("System.String"))
TempTable.Columns.Add("Keyed", Type.GetType("System.Boolean"))
TempTable.Columns.Add("FullDesc", Type.GetType("System.String"))
StaffCode = drpPMList.SelectedItem.Value
Age = drpAgeList.SelectedItem.Value
Dim strSQLQuery As String
strSQLQuery = "SELECT [0002A].AosCode, [0002A].Groups, [0002A].YOS, [0002A].Term, [0002A].Starts, [0002A].Retention, [0002A].Achievement, [0002A].MaxOfKeyed, dbo_stcstatd.full_desc FROM 0002A INNER JOIN dbo_stcstatd ON [0002A].AosCode = dbo_stcstatd.aos_code WHERE [0002A].StaffCode=@staffcode AND [0002A].Age=@Age;"
da = New OleDbDataAdapter(strSQLQuery, dbConn)
da.SelectCommand.Parameters.Add("@staffcode", OleDbType.VarChar, 10)
da.SelectCommand.Parameters.Add("@Age", OleDbType.VarChar, 10)
da.SelectCommand.Parameters("@staffcode").Value = StaffCode
da.SelectCommand.Parameters("@Age").Value = Age
Dim dtSearch As DataTable = New DataTable
da.Fill(dtSearch)
Dim dr As DataRow
For Each dr In dtSearch.Rows
Row = TempTable.NewRow()
Row.BeginEdit()
Row("aos_code") = dr("aoscode")
Row("Groups") = dr("Groups")
Row("YOS") = dr("YOS")
Row("Term") = dr("Term")
Row("Starts") = dr("Starts")
Row("Retained") = dr("Retention")
Row("Achieved") = dr("Achievement")
Row("Keyed") = dr("MaxOfKeyed")
Row("FullDesc") = dr("full_desc")
Row.EndEdit()
TempTable.Rows.Add(Row)
Next
TempTable.AcceptChanges()
rpCPDetail.DataSource = TempTable
rpCPDetail.DataBind()
dbConn.Close()
End Sub
</script>
<html>
<head>
<link href="CSS/CPlan.css" rel="stylesheet" type="text/css" />
<meta http-equiv="expires" content="Wed, 19 Feb 2003 08:00:00 GMT">
<title>Curriculum Planning Software</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0">
<div style="border: solid 1px gainsboro; background-color: gainsboro;">
Proposed Course File for Programme Managers split down by Young and Adult
</div>
<form id="Form1" runat="server">
<div class="container">
<div class="topbar">
<img src="Images/Curriculum-planning-banner.jpg" alt="CP Banner" />
<asp:Label ID="lblPMWelcome" runat="server"></asp:Label>
</div>
<div class="content">
<div class="middle">
PM List
<asp:DropDownList ID="drpPMList" runat="server">
</asp:DropDownList>
Age Group
<asp:DropDownList ID="drpAgeList" runat="server">
</asp:DropDownList>
<asp:Button ID="cmdView" runat="server" Text="View" OnClick="cmdView_Click" />
<asp:Repeater ID="rpCPDetail" runat="server" OnItemCommand="rpCPDetail_ItemCommand">
<HeaderTemplate>
<table width="100%" border="1" bordercolor="white">
<tr>
<td>
<p>
<b>Session</b></p>
</td>
<td>
<p>
<b>Session Description</b></p>
</td>
<td>
<p>
<b>Location</b></p>
</td>
<td>
<p>
<b>Start Date</b></p>
</td>
<td>
<p>
<b>End Date</b></p>
</td>
<td>
<p>
<b>Day</b></p>
</td>
<td>
<p>
<b>Times</b></p>
</td>
<td>
<p>
<b>Post Code</b></p>
</td>
<td>
<p>
<b>Qual Aim</b></p>
</td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td class="detColDesc" colspan="9">
<p>
<%#Container.DataItem("aos_code") %>
(Year
<%#Container.DataItem("YOS")%>
& Term
<%#Container.dataitem("Term") %>
) -
<%#Container.DataItem("FullDesc") %>
- TARGETS - STARTS=<%#Container.DataItem("Starts")%>
RET=<%#Container.dataitem("Retained") %>
ACH=<%#Container.DataItem("Achieved")%></p>
<uc0:GetSess runat="server" GetAos='<%#Container.dataitem("aos_code")%>' GetYOS='<%#Container.dataitem("YOS")%>'
GetTerm='<%#Container.dataitem("Term")%>' />
</td>
</tr>
</ItemTemplate>
</asp:Repeater>
</div>
</div>
</div>
</form>
</body>
</html>