<%@ Page Language=" VB" Debug=" true" %>
<%@ Import Namespace=" System.Data" %>
<%@ Import Namespace=" System.Data.SQLClient" %>
<script language=" VB" runat=" server" >
Sub Page_Load(Source as Object, E as EventArgs)
Dim cnn As New SQLConnection(" server=DBSERVER;User id=USER;password=PASSWORD;database=DB" )
Dim InsertCommand As SqlCommand = New SqlCommand()
InsertCommand.Connection = cnn
Dim sql As String
sql = " INSERT INTO TABELLA (campo) VALUES (' valore' )"
InsertCommand.CommandText = sql
Try
cnn.Open()
InsertCommand.ExecuteNonQuery()
Catch ex As Exception
response.Write(ex.ToString())
Finally
cnn.Close()
End Try
end sub
</script>
