Проект Конструктор
Проект Поиск решения
Проект Бронирование номеров

<asp:Image
id="imgStepPicture"
runat="server"
/>

<asp:dropdownlist
id="ddlResponses"
runat=server
DataTextField="ChoiceText"
DataValueField="ChoiceID">
</asp:dropdownlist>

<asp:button
text="flanee"
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server"4
/>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
If Not IsPostBack then
If LenfPage.Request.QueryString('OrderChoicelD")) = 0 Then
Response.Redirect("./index.aspx")
End If
Session ("CurrentOrderChoicelD") = _
Page.Request.QueryString("OrderChoicelD")
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSQuestion as DataSet
DBConn = New OleDbConnection("Provider-sqloledb;" _
& "server=localhost;" _
& "Initial Catalog-INETCIO;" _
& "User Id=sa;" _
& "<Password=yourpassword;")
DSQuestion = New DataSet0
DBCommand = New OleDbDataAdapter _
("Select ChoicelD from OrderChoices " _
& "Where OrderChoicelD = " _
& Session("CurrentOrderChoicelD"),DBConn)
DBCommand.Fill(DSQuestion, _
"CurrentChoicelD")
DBCommand = New OleDbDataAdapter _
("Select ObjectQuestionID from QuestionChoices " _
& "Where ChoicelD = " _
& DSQuestion.Tables("CurrentChoicelD").Rows(O).Item("ChoicelD")
,DBConn)
DBCommand.Fill(DSQuestion, _
"CurrentQuestionID") •
DBCommand = New OleDbDataAdapter _
("Select ObjectQuestionID, " _
& "ObjectQuestionText, PicPath, " _
& "PicAltText from ObjectQuestions " _
& "Where ObjectQuestionID = " _
& DSQuestion.Tables ("CurrentQuestiorjIp"), _
Rows(O).Item("ObjectQuestionID") _
,DBConn)
DBCommand.Fill(DSQuestion, _
"CurrentQuestion")
DBCommand = New OleDbDataAdapter _
("Select ChoicelD, ChoiceText " _
& "From QuestionChoices " _
& "Where ObjectQuestionID - " _
& DSQuestion.Tables("CurrentQuestion"). _
Rows(O) .Item("ObjectQuestior.ID") _
,DBConn)
DBCommand.Fill(DSQuestion, _
"CurrentResponses")
IblTitle.BorderWidth = New Unit("7px")
IblTitle.BorderStyle = 9
IblTitle.Width = New Unit("90%")
IblTitle.Font.Size = New FontUnit("25pt")
IblTitle.Font.Name = "Arial"
IblTitle.Text = Application("TitleText") _
& " - изменение"
imgStepPicture.AlternateText - _
DSQuestion.Tables("CurrentQuestion")_
.Rows(O) .ItemC'PicAltText")
imgStepPicture.ImageUrl = _
DSQuestion.Tables("CurrentQuestion").Rows(O).Item ("PicPath")
imgStepPicture.BorderWidth = New Unit("7px")
IblQuestion.Font.Size = New FontUnit("12pt")
IblQuestion.Font.Name = "Verdana"
IblQuestion.Text = _
DSQuestion.Tables("CurrentQuestion")_
.Rows(O).ItemC'ObjectQuestionText")
ddlResponses.DataSource = _
DSQuestion.Tables("CurrentResponses").DefaultView
ddlResponses.DataBind()
End If
End Sub