If Len(Session("StudentID")) = 0 Then

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

IblTitle.Text = "<center>CTyfleHT " __
& Session("StudentName") & "</center>"

DBCommand = New OleDbDataAdapter _
("Select Courses.CourselD, CourseName From Courses " _
& "Inner Join StudentsCourses on " _
& "Courses.CourselD = StudentsCourses.CourselD " _
& "Where StudentID = " & Session("StudentID")
, DBConn)

DBCommand.Fi11(DS PageData, _
"CoursesEnrolled")

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

IblMessage.Text = "Вы не числитесь " _
& " ни на одном курсе."

ddlCours esEnrolled.Visible = False
butOK.Visible = False

IblMessage.Text = "Выверите курс, " _
& "который хотите изучать."

ddlCoursesEnrolled.DataSource = _
DSPageData.Tables("CoursesEnrolled").DefaultView
ddlCoursesEnrolled.DataBind()

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Session("CourselD") = ddlCoursesEnrolled.Selectedltem.Value
Response.Redirect("./course.aspx")
End Sub

Session ("Coursellb")' = ddlCoursesEnrolled. Selectedltem.Value

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

Страница Запись содержит список всех курсов. Здесь пользователь может поступить на интересующий его курс.

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

<asp:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
Text="Выберите курс, который хотите изучать."