Проект Чат
Проект Запрос SQL
Проект Совет дня
Проект Полезные ссылки

<asp:RequiredFieldValidator
id="rfvLinkLink"
ControlToValidate="txtLinkLink"
Display="Dynamic"
Font-Name="Trebuchet MS"
Font-Size="10pt"
ForeColor="Yellow"
runat=server>
Необходимо ввести URL!
</asp:RequiredFieldValidator

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

<asp:RequiredFieldValidator
id="rfvLinkDescription"
ControlToValidate="txtLinkDescription"
Display="Dynamic"
Font-Name="Trebuchet MS"
Font-Size="10pt"
ForeColor="Yellow"
runat=server>
<BR>Heo6xoдимо ввести описание!
</asp:RequiredFieldValidator>

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

Sub SubmitBtn_Click(Sender As Object, E As EventArgs)
Dim DBConn as OleDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DBInsert As New OleDbCommand
DBConn = New OleDbConnection("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC13; User Id=sa;" _
& "Password=yourpassword;")
DBInsert.CommandText = "Insert Into Links " _
& "(LinkName, LinkLink, LinkDescription) values (" _
S "'" & Replace (txtLinkName.text, "'", "''") & "', " _
S, "'" s Replace (txtLinkLink. text, "'", "''") & '", "
& "'" & Replace(txtLinkDescription.text, "'", '"'") & '")"
DBInsert.Connection - DBConn
DBInsert.Connection.Open
DBInsert.ExecuteNonQuery()
Response.Redirect("./index.aspx")
End Sub

DBInsert.CommanandText = "Insert Into Links " _
& "(LinkName, LinkLink/ LinkDescription) " _
& "values (" _
& "'" & Replace (txtLinkName. text, ""', "'"•) & "', " _
& "'" & Replace(txtLinkLink.text, '"'") & "', " _
& "'" & Replace(txtLinkDescription.text, "'", "'"') "')"

DBInsert.Connection = DBConn
DBInsert.Connection.Open
Выполняется запрос
DBInsert.ExecuteNonQuery()

Response.Redirect("./index.aspx")

Изменение кода для Access

Если необходимо, чтобы данная программа обращалась к базе данных Access, а не к базе SQL-сервера, нужно изменить строку связи

DBConn = New OleDbConneetion("Provider=sqloledb;" _
& "server=localhost;" _
& "Initial Catalog=INETC13;"
& "User Id=sa;" _
& "Password=yourpassword;")

DBConn = New OleDbConneetion("Provider=Microsoft.Jet.OLEDB.4.О," _
& "DATA SOURCE="
& Server.MapPath("/InetBook/C13/LinkList/" _
& "Access/C!$Links.mdb;"))