Проект Управление баннерами
Проект Отправка файлов
Проект Доска сообщений

<asp:button
id="butUpdateThread"
text=''Добавить сообщение"
Type="Submit"
OnClic)c="UpdateThread_Click"
runat=" server"
/>

<asp:TextBox
id="txtAddMame"
Columns="25"
MaxLength="50"
runat=-server
/>

<asp: TextBox
id="txtAddTitle"
Columns="25"
MaxLength="50"
runat=server
/>

<asp: TextBox
id="txtAddMessage"
Columns=" 60"
Rows="5"
runat=server
TextMode="MultiLine"
/>

<asp:button
id="butAddThread"
text=''Добавить дискуссию"
Туре=" Submit"
OnClick="AddThread_Click"
runat=" server"

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=INETC7;" _
& "User Id=sa;'" _'
& "Password=yourpassword; ")
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle, "
& "MessageText From Messages " _
& "Where MessagelD = (Select Min (MessagelD) From "
& "Messages)", DBConn)
DBCommand.Fill(DSPageData, _
"CurrentMessage")
Session (''CurrentMessagelD") •• _
DSPageData.Tables("CurrentMessage"). _
Rows(O).Item("MessageID")
IblTitle.Text = "Доска сообщений = " _
& DSPageData.Tables("CurrentMessage") . _
Rows(O).Item("MessageTitle")
IblMessage.Text = DSPageData.Tables("CurrentMessage"). _
Rows(O) .ItemC'MessageText")
DBCommand = New OleDbDataAdapter _
("SELECT MessagelD, MessageTitle " _
& "from Messages " _
& "Order By MessageTitle", DBConn)
DBCoiranand.Fill(DSPageData, _
"Messages")
ddlMessages.DataSource = _
DSPageData.Tables("Messages").DefaultView
ddlMessages.DataBind()
End If
End Sub