ALTER PROCEDURE dbo.Insertmembers

    (
        @ItemID                     int,
        @FK_UserID                 int,
        @MemberPreferredName                 varchar    (50),
        @MemberSex                 tinyint,
        @MemberMarried                 tinyint,
        @MemberProfileSlogan                 varchar    (60),
        @MemberMaleName                 varchar    (50)
    )

AS
    Insert members
    (
        ItemID,
        FK_UserID,
        MemberPreferredName,
        MemberSex,
        MemberMarried,
        MemberProfileSlogan,
        MemberMaleName
    ) Values    (
        @ItemID,
        @FK_UserID,
        @MemberPreferredName,
        @MemberSex,
        @MemberMarried,
        @MemberProfileSlogan,
        @MemberMaleName
    )

Imports System.Data.SqlClient
Imports System.Web
Imports System
Imports System.Web.UI.WebControls
Imports System.Web.UI


Namespace DotNetNuke

    Public MustInherit Class members
        Inherits DotNetNuke.PortalModuleControl


#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
            Me.SqlCommand1 = New System.Data.SqlClient.SqlCommand
            '
            'SqlConnection1
            '
            Me.SqlConnection1.ConnectionString = "workstation id=MEDIA21;packet size=4096;integrated security=SSPI;data source=""MED" & _
            "IA21\NetSDK"";persist security info=False;initial catalog=dnnTests"
            '
            'SqlCommand1
            '
            Me.SqlCommand1.CommandText = "dbo.[Insertmembers]"
            Me.SqlCommand1.CommandType = System.Data.CommandType.StoredProcedure
            Me.SqlCommand1.Connection = Me.SqlConnection1
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ItemID", System.Data.SqlDbType.Int, 4))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@FK_UserID", System.Data.SqlDbType.Int, 4))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MemberPreferredName", System.Data.SqlDbType.VarChar, 50))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MemberSex", System.Data.SqlDbType.TinyInt, 1))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MemberMarried", System.Data.SqlDbType.TinyInt, 1))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MemberProfileSlogan", System.Data.SqlDbType.VarChar, 60))
            Me.SqlCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@MemberMaleName", System.Data.SqlDbType.VarChar, 50))
        End Sub
        Protected WithEvents pnlModuleContent As System.Web.UI.WebControls.Panel
        Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
        Protected WithEvents txtMemberPreferredName As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtMemberProfileSlogan As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtMemberMaleName As System.Web.UI.WebControls.TextBox
        Protected WithEvents rad1MemberSex As System.Web.UI.WebControls.RadioButtonList
        Protected WithEvents rad2MemberMarried As System.Web.UI.WebControls.RadioButtonList
        Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
        Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
        Protected WithEvents SqlCommand1 As System.Data.SqlClient.SqlCommand

        'NOTE: The following placeholder declaration is required by the Web Form Designer.
        'Do not delete or move it.
        Private designerPlaceholderDeclaration As System.Object

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub


    Private Sub RadioButtonList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs)

    End Sub

        Private Sub SqlConnection1_InfoMessage_1(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs)

        End Sub
        Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

        End Sub
    End Class
End Namespace