Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
Imports System.Data.SqlDbType
Public Class UserRegistration
    Private Fname, Lname, Number As String
    Private Skypestr, Emailstr, VKstr, ImgUrlstr As String
    Public Property FirstName As String

        Set(Value As String)
            Fname = Value
        End Set
        Get
            Return Fname
        End Get
    End Property
    Public Property LastName As String

        Set(Value As String)
            Lname = Value
        End Set
        Get
            Return Lname
        End Get
    End Property
    Public Property TelNumber As String

        Set(Value As String)
            Number = Value
        End Set
        Get
            Return Number
        End Get
    End Property
    Public Property Skype As String

        Set(Value As String)
            Skypestr = Value
        End Set
        Get
            Return Skypestr
        End Get
    End Property
    Public Property Email As String

        Set(Value As String)
            Emailstr = Value
        End Set
        Get
            Return Emailstr
        End Get
    End Property
    Public Property VK As String

        Set(Value As String)
            VKstr = Value
        End Set
        Get
            Return VKstr
        End Get
    End Property

    Public Property ImgURL As String

        Set(Value As String)
            ImgUrlstr = Value
        End Set
        Get
            Return ImgUrlstr
        End Get
    End Property
    Public Sub registrate()
        Dim con As New SqlConnection
        con.ConnectionString = ConfigurationManager.ConnectionStrings("(local)").ConnectionString

        Dim comand As New SqlCommand
        comand.CommandType = Data.CommandType.StoredProcedure
        comand.Connection = con
        comand.Parameters.Add("@FirstName", VarChar, 20, FirstName)
        comand.Parameters.Add("@LastName", VarChar, 20, LastName)
        comand.Parameters.Add("@TelNumber", VarChar, 30, TelNumber)
        comand.Parameters.Add("@Email", VarChar, 50, Email)
        comand.Parameters.Add("@Skype", VarChar, 50, Skype)
        comand.Parameters.Add("@VK", VarChar, 50, VK)
        comand.CommandText = "[UserRegistration]"
        con.Open()
        comand.ExecuteNonQuery()
        comand.Dispose()



    End Sub

End Class

Imports System.Data
Imports System.Data.SqlClient
Imports UserRegistration
Partial Class _Default
    Inherits System.Web.UI.Page
    
    Protected Sub Confirm_Click(sender As Object, e As EventArgs) Handles Confirm.Click
        FirstName = "text"
        LastName = ""
        registrate()

    End Sub
End Class