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

<ASP:DROPDOWNLIST
id = ddlZipCode
runat = "server"
DataTextField = "ZipCode"
AutoPostBack =True
OnSelectedIndexChanged ="ddl_Change" > >/ASP:DROPDOWNLIST>

OnSelectedIndexdhanged= "ddl_Change"

<ASP:DATAGRID
id = "dgStores"
Width = "90%"
OnSortCmand="Sort_Grid"
AllowSorting = "true"
HeaderStyle-Font-Bold = "True"
HeaderStyle-BackColor = "burlywood"
ForeColor = "Black"
Cellspacing = "0"
CellPadding = "3"
ShowFooter= "false"
BorderColor = "black"
AlternatingltemStyle-BackColor= "cornsilk"
BackColor= "beige"
Font-Name = "Arial"
Font-Size= "8pt">
runat = " server "
</ASP:DATAGRID>

AllowSorting-"Vtrue"

OnSortCommand="Sort_Grid"

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
if Not IsPostBack Then
Dim DBConn as OleDbConnection
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 Distinct ZipCode "
& "From StoreLocations " _
& "Order By ZipCode", DBConn)
DBCommand.Fill(DSPageData, _ "ZipCodes") ddlZipCode.DataSource - _ DSPageData.Tables("ZipCodes").DefaultView ddlZipCode.DataBind()
End If
End Sub

if Hot IsPostBack Then

DBCommand = New OleDbDataAdapter _
("Select Distinct ZipCode " _
& "From StoreLocations " _
& "Order By ZipCode", DBConn)

DBCommand.Fill(DSPageData, _ "ZipCodes")

ddlZipCode.DataSource = _
DSPageData.Tables("ZipCodes").
DefaultView ddlZipCode.DataBind()