<%@ Page Language="vb"%>
<%@ import Namespace = "System" %>
<%@ import Namespace = "System.Web.UI" %>
<%@ import Namespace = "System.Web" %>
<script runat="server">
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Request.ServerVariables("REQUEST_METHOD").ToString() = "POST" Then
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("Test.mdb")
Dim cn As New System.Data.OleDb.OleDbConnection(connstr)
Dim strSQL As String = "INSERT INTO TestTable (Title,Description) VALUES('" _
+ Request.Form("Title").ToString() + "','" + Request.Form("Desc").ToString() + "')"
cn.Open()
Dim cmd As New System.Data.OleDb.OleDbCommand(strSQL, cn)
cmd.ExecuteNonQuery()
cn.Close()
cn.Dispose()
cmd.Dispose()
End If
End Sub
</script>