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

DataTextField ="MoreInfoCategory"

DataValueField= "MoreInfoEmailAddress"

< ASP:TEXTBOX id=
"txtName" MaxLength =
"100" Columns ="25"
runat = "server" >

< ASP:TEXTBOX id = "txtEmailAddress"
MaxLength = "100"
Columns = "25"
runat ="server" >

< ASP:REQUIREDFIELDVALIDATOR id="rfvEmailAddress"
Display ="Dynamic"
ControlToValidate= "txtEmailAddress"
runat="server"
Font-Name = "Arial"
Font-Size= "10pt">

</ASP:REQUIREDFIELDVALIDATOR>

<ASP:TEXTBOX
id="txtComment"
Rows="5"
runat="server"
Columns="40"
TextMode="MultiLine">

<ASP:BUTTON
id="butOK"
text=" OK "
Type="Submit"
OnClick="SubmitBtn_Click"
runat="server" />

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
if Not IsPostBack Then
Dim DBConn as OleDbCohnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC3;"
& "User Id=sa;"
& "Password=yourpassword;")
DBCommand - New OleDbDataAdapter _
("Select MorelnfoCategory, MorelnfoEmailAddcess " _
& "From MorelnfoCategories " _
& "Order By MorelnfoCategory", DBConn)
DBCommand.Fill(DSPageData, _
"Categories")
ddlTopics.DataSource = _
DSPageData.Tables("Categories").DefaultView
ddlTopics.DataBind()
End If
End Sub