ASP.NET. Учебный курс (Г.Бучек.)

& "CourseSectionID • " ft Session("CourseSectionID") _ , DBConn)

и помещается в объект DataSet:

DBCommand.Fill(DSPageData, _ "SectionName")

Свойству Text элемента Label, предназначенного для вывода заголовка, присваивается строка, включающая название раздела:

lblTitle.Text - "<СЕИТЕЯ>Раздел " _

& DSPageData.Tables("SectionName"). _ Rows(0).Item("SectionName") _ ft "</CENTER>"

Далее извлекаются все вопросы теста:

DBCommand » New OleDbDataAdapter _

("Select SectionQuestionID, QuestionText " _ ft "From SectionQuestions Where CourseSectionID - " _ ft Session("CourseSectionID"), DBConn) DBCommand.Fill(DSPageData, "QuizQuestions")

После этого начинается внешний цикл, в котором обрабатывается каждый вопрос теста:

For I - 0 to DSPageData.Tables("QuizQuestions"). _ Rows.Count - 1

Нам понадобится объект LiteralControl для размещения HTML-текста в элементе управления Panel:

Dim IcHTML - New LiteralControl

Текст вопроса, а также HTML-тег помещаются в объект LiteralControl:

IcHTML.Text - "<В>" _

ft DSPageData.Tables("QuizQuestions"). Rows(I).Item("QuestionText") ft "</B><BR>"

В свою очередь, объект LiteralControl помещается в элемент Panel:pnlQuestions.Controls.Add(IcHTML)

Для размещения вариантов ответа надлежит создать элемент управления DropDownList:

Dim MyDDL - New DropDownList

Сохраняем идентификатор вопроса

TempID - DSPageData.Tables("QuizQuestions"). _ Rows(I).Item("SectionQuestionID")

и добавляем к нему букву ^MQ'\ что послужит именем элемента DropDownList:MyDDL.ID - "Q" ft TempID

После этого извлекаются все ответы на текущий вопрос:

DBCommand - New OleDbDataAdapter _

("Select AnswerText * .т ? .ая- . • .*» • i.-г ь- /j-^ -uv