Проект Анкета
Проект Подробности
Проект Поиск магазина

Страница Результаты опроса

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

<asp:Label
id="lblMessage"
Font-Bold="True"
runat=" server"
Тех="Результаты опроса приведены ниже."
/>

<asp:Panel
id="pnlQuestions"
Width="90%"
runat="server"
/>
</asp:Panel>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
Dim I as Integer
Dim J as Integer
Dim TempID as String
Application("SurveylD") = 1
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC3;" _
& "User Id=sa;" _
& "Password=yourpassword;")
DBCommand = New OleDbDataAdapter _
("Select SurveyName " _
& "From Surveys Where SurveylD ="_
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _
"Surveylnfo")
IblTitle.Text =
& DSPageData.Tables("Surveylnfo"). _
Rows(0).ItemC'SurveyName") &"</center>"
DBCommand - New OleDbDataAdapter _
("Select SurveyQuestionID, .SurveyQuestionShort " _
& "From SurveyQuestions Where SurveylD = " _
& Application("SurveylD"), DBConn)
DBCommand.Fill(DSPageData, _
"SurveyQuestions")
For I - 0 to DSPageData.Tables("SurveyQuestions"). _
Rows.Count - 1
Dim IcHTML = New LiteralControl
IcHTML.Text = "<b>" _
& DSPageData.Tables("SurveyQuestions"). _
Rows(I).Item("SurveyQuestionShort")&"</b><br>"
pnlQuestions.Controls.Add(IcHTML)
TempID = DSPageData.Tables("SurveyQuestions") . _
Rows (I) . Item'C'SurveyQuestionID")
DBCoiranand = New OleDbDataAdapter _
("Select SurveyResponse, " _
& "Count(SurveyResponselD) as TheCount " _
& "From SurveyResponses Where SurveyQuestionID = " _
& TempID & " Group By SurveyResponse " _
& "Order By Count(SurveyResponselD) DESC" _
, DBConn)
DBCommand.Fill(DSPageData, _
TempID)
For J - 0 to DSPageData.Tables(TempID). _
Rows.Count - 1
Dim lcHTML2 - New LiteralControl
lcHTML2.Text = DSPageData.Tables(TempID). _
Rows(J).Item("SurveyResponse") & ": " _
$ DSPageData.Tables(TempID). _
Rows(J).Item("TheCount") &"<br>"
pnlQuestions.Controls.Add(1CHTML2)
Next
Dim IcHTML3 - New LiteralControl
lcHTML3.Text-"<br><br>" pnlQuestions.Controls.Add(IcHTMLS)
Next
End Sub