![]() |
#2
jxnuwy042007-09-23 13:27
|

<script language=\"vb\" runat=\"server\">
Dim myconnection As OleDbConnection
Dim mycommand As OleDbCommand
Sub submit_onclick(ByVal sender As Object, ByVal e As EventArgs)
myconnection = New OleDbConnection(\"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=\" & \"h:\asp.net\information.mdb\")
mycommand = New OleDbCommand(\"insert into information (name,home,relationship,message) values(name,home,relationship,message)\", myconnection)
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
End Sub
</script>
Dim myconnection As OleDbConnection
Dim mycommand As OleDbCommand
Sub submit_onclick(ByVal sender As Object, ByVal e As EventArgs)
myconnection = New OleDbConnection(\"PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=\" & \"h:\asp.net\information.mdb\")
mycommand = New OleDbCommand(\"insert into information (name,home,relationship,message) values(name,home,relationship,message)\", myconnection)
myconnection.Open()
mycommand.ExecuteNonQuery()
myconnection.Close()
End Sub
</script>