DBCommand = New OleDbbataAdapter _
("Select StudentCourselD from StudentsCourses " _
& "Where StudentID = " & Session("StudentID") _
& " and CourselD = " & ddlCourses.Selectedltem.Value _
, DBConn)
DBCommand.Fill(DSPageOata, _
"StudentCourse")

If DSPageData.Tables("StudentCourse").Rows.Count = 0 Then

DBInsert.CommandText = "Insert Into StudentsCourses " _
& "(StudentID, CourselD, DateEnrolled) Values ("
& Session("StudentID") & ", "
& ddlCourses.Selectedltem.Value & ", " _
& "GetDateO)"
DBInsert.Connection = DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()

Response.Redirect("./home_room.aspx")

На странице Курс учащийся выбирает раздел для изучения или тему для тестирования. Здесь также отображаются результаты прохождения всех тестов, выполненных учащимся на данном курсе.

Ознакомимся с элементами управления, содержащимися на странице Курс.

<asp:Label
id="lblTitle"
BorderWidth="7px"
Borderstyle=7
Width="90%"
Font-Size="25pt"
Font-Name="Tahoma"
runat="server"
/>

<asp:dropdownlist
id="ddlSectionsl"
runat="server"
DataTextField=SectionName"
DataValueField="CourseSectionID">
</asp:dropdownlist>

<asp:button
id="butOKContent"
text=" OK "
Type="Submit"
OnClick="SubmitBtnContent_Cliclc"
runat="server"
/>

<asp:dropdownlist
id="ddlSections2"
runat="server"
DataTextField="SectionName"
DataValueField="CourseSectionID">
</asp:dropdownlist>

<asp:button
id="butOKQuiz"
text=" OK "
Type="Submit"
OnClick="SubmitBtnQuiz_Click"
runat="server"
/>

<asp:DataGrid id-"dgQuizResults" runat="server"
Width="90%"
BackColor="beige"
AlternatingltemStyle-BackColor="Vcornsilk"
BorderColor="black"
CellPadding=3
Cellspacing="0"
Font-Name="Trebuchet MS"
Font-Size="8pt"
ForeColor="Black"
HeaderStyle-BackColor="burlywood"
Headerstyle-Font-Bold="True"
/>