<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ASPTestDB %>"
        DeleteCommand="DeleteRow" DeleteCommandType="StoredProcedure" InsertCommand="InsertRow"
        InsertCommandType="StoredProcedure" ProviderName="<%$ ConnectionStrings:ASPTestDB.ProviderName %>"
        SelectCommand="SelectFromTable" SelectCommandType="StoredProcedure" OnSelected="SqlDataSource1_Selected">
        <DeleteParameters>
            <asp:ControlParameter ControlID="GridView1" Name="InsertTime" Type="DateTime" />
        </DeleteParameters>
        <SelectParameters>
            <asp:Parameter Name="UserName" Type="String" />
        </SelectParameters>
        <InsertParameters>
            <asp:ControlParameter ControlID="TextBox1" Name="LinkName" PropertyName="Text" Type="String" />
            <asp:ControlParameter ControlID="TextBox2" Name="LinkValue" PropertyName="Text" Type="String" />
            <asp:Parameter Name="UserName" Type="String" />
        </InsertParameters>
    </asp:SqlDataSource>

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            SqlDataSource1.InsertParameters( 2 ).DefaultValue = User.Identity.Name
            SqlDataSource1.Insert()
           
        Catch ex As System.Data.SqlClient.SqlException
            
            Dim err As String
            
            If ex.Number =  2627  Then
                err = "* Извините, такая запись уже существует."
            Else
                err = "* При добавлении записи произошла ошибка."
            End If
                        
            except.InnerText = err
            
            Dim cs As ClientScriptManager = Page.ClientScript
            Dim cstext As String
            Dim csname As String
                     
            csname = "ShowClientResult"
            If (Not cs.IsStartupScriptRegistered(Me.GetType(), csname)) Then
                cstext = "setTimeout(setHidden, 10000);"
                cs.RegisterStartupScript(Me.GetType(), csname, cstext, True)
            End If
            
        End Try
    End Sub

CType(Me.Master.FindControl("lastUpdate"), System.Web.UI.HtmlControls.HtmlGenericControl).InnerText = WorkingClass.WorkingProc.GetLastUpdate(MapPath("Links.aspx"))
        
        If Not Me.IsPostBack Then
            SqlDataSource1.SelectParameters( 0 ).DefaultValue = User.Identity.Name
            'SqlDataSource1.Select(New System.Web.UI.DataSourceSelectArguments).GetEnumerator().MoveNext()
            GridView1.DataBind()
        End If
               
        except.InnerText = ""
        
    End Sub