DBCommand = New OleDbDataAdapter __
("Select StudentID from " _
& "Students Where " _
& "StudentName = '" & txtStudentName.Text _
? "' and Password » '" & txtPassword.Text _
& "'", DBConn)
DBCommand.Fill(DSLogin, _
"Studentlnfo")

If DSLogin.Tables("Studentlnfо").
Rows.Count = 0 Then

IblMessage.Text = "Имя студента и пароль не обнаружены." _
& "Введите данные.еще раз."

Session("StudentID") = DSLogin.Tables("Studentlnfo").
Rows(Q).Item("StudentID")

Session("StudentName") = txtStudentName.Text

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

На странице студента специальный, код выводит на экран список курсов, на которые зачислен пользователь.

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

<азр:Label
id="lblMessage"
Font-Size="12pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
/>

<asp:dropdownlist
id="ddlCoursesEnrolled"
runat="server"
DataTextField="CourseName"
DataValueField="CourseID">
</asp:dropdownlist>

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

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Len(Session("StudentID")) =0 Then
Response.Redirect("./index.aspx")
End If
If Not IsPostBack Then
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
IblTitle.Text = "<center>Студент " _
& Session("StudentName") & "</center>"
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" ^
& "Initial Catalog=INETC9;" _
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter
("Select Courses.CourselD, CourseName From Courses " _
& "Inner Join StudentsCourses on " _
& "Courses.CourselD = StudentsCourses.CourselD " _
& "Where StudentID = " & Session("StudentID") _
, DBConn)
DBCommand.Fill(DSPageData, _
"CoursesEnrolled")
If DSPageData.Tables("CoursesEnrolled").Rows.Count = 0 Then
IblMessage.Text = "Вы не числитесь" _
& "ни на одном курсе."
ddlCoursesEnrolled.Visible = False
butOK.Visible = False
Else
IblMessage.Text = "Выберите курс, " _
& "который хотите изучать."
ddlCoursesEnrolled.DataSource = _
DSPageData.Tables("CoursesEnrolled").DefaultView
ddlCoursesEnrolled.DataBind()
End If
End If
End Sub