// define insert command parameters
myCmd.CommandText = "INSERT INTO aspx_messages " + 
   " ( MessageDate, MessageFrom, Email, MessageSubject, MessageBody ) " + 
   "VALUES ( @Date, @From, @Mail, @Subject, @Body ) " + 
   "SET @Identity = @@Identity";

myCmd.Parameters.Add ( "@Date", SqlDbType.SmallDateTime );
myCmd.Parameters [ "@Date" ].Value = DateTime.Now.ToString ( );
myCmd.Parameters.Add ( "@From", SqlDbType.NVarChar );
myCmd.Parameters [ "@From" ].Value = msgFrom.Value;
myCmd.Parameters.Add ( "@Mail", SqlDbType.NVarChar );
myCmd.Parameters [ "@Mail" ].Value = msgEmail.Value;
myCmd.Parameters.Add ( "@Subject", SqlDbType.NVarChar );
myCmd.Parameters [ "@Subject" ].Value = msgSubject.Value;
myCmd.Parameters.Add ( "@Body", SqlDbType.NText );
myCmd.Parameters [ "@Body" ].Value = msgBody.Value;

// used for getting new record ID
myCmd.Parameters.Add ( "@Identity", SqlDbType.Int );
myCmd.Parameters [ "@Identity" ].Direction = ParameterDirection.Output;

myCmd.Connection.Open ( );
myCmd.ExecuteNonQuery ( );
myCmd.Connection.Close ( );

' define insert command parameters
myCmd.CommandText = "INSERT INTO aspx_messages " + 
   " ( MessageDate, MessageFrom, Email, MessageSubject, MessageBody ) " + 
   "VALUES ( @Date, @From, @Mail, @Subject, @Body ) " + 
   "SET @Identity = @@Identity"

myCmd.Parameters.Add ( "@Date", SqlDbType.SmallDateTime )
myCmd.Parameters [ "@Date" ].Value = DateTime.Now.ToString ( )
myCmd.Parameters.Add ( "@From", SqlDbType.NVarChar )
myCmd.Parameters [ "@From" ].Value = msgFrom.Value
myCmd.Parameters.Add ( "@Mail", SqlDbType.NVarChar )
myCmd.Parameters [ "@Mail" ].Value = msgEmail.Value
myCmd.Parameters.Add ( "@Subject", SqlDbType.NVarChar )
myCmd.Parameters [ "@Subject" ].Value = msgSubject.Value
myCmd.Parameters.Add ( "@Body", SqlDbType.NText )
myCmd.Parameters [ "@Body" ].Value = msgBody.Value

' used for getting new record ID
myCmd.Parameters.Add ( "@Identity", SqlDbType.Int )
myCmd.Parameters [ "@Identity" ].Direction = ParameterDirection.Output

myCmd.Connection.Open ( )
myCmd.ExecuteNonQuery ( )
myCmd.Connection.Close ( )