<%@ 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(ConfigurationManager.ConnectionStrings("ConnectionString2").ConnectionString)

Dim UpdateCommand As SqlCommand = New SqlCommand() 
UpdateCommand.Connection = cnn

sql ="Update tbl_users Set status_id=1 WHERE id_user = 1"

UpdateCommand.CommandText = sql

Try cnn.Open() 
UpdateCommand.ExecuteNonQuery()


Catch ex As Exception Response.Write(ex.ToString()) 

Finally cnn.Close() 

End Try 
End Sub

</script>