Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Web.UI.WebControls
Imports System.Web.UI.Page
Imports System.Data.Sqlserver
Imports System.Data.Sql
Imports System.Data.SqlTypes



    Public Class sign_up : Inherits Page

    Public Result As Label
    Dim Conn As String = ConfigurationSettings.AppSettings("Conn")
    Dim MyCommand As SqlCommand
    Dim ch As String = "S"
    Dim myConnection As SqlConnection
    Public username_text, password_text, contact_name, postal_postcode, email, postal_suburb, postal_addr, mob_phone, home_phone, work_phone As System.Web.UI.WebControls.TextBox
    Public Message As System.Web.UI.WebControls.Label



    Function btnSignIn(ByVal username_text As String, ByVal password_text As String, ByVal contact_name As String, ByVal email As String, ByVal postal_postcode As String, ByVal postal_addr As String, ByVal postal_suburb As String, ByVal mob_phone As String, ByVal work_phone As String, ByVal home_phone As String) As Integer
        'Sub btnSignIn_Click(ByVal sender As Object, ByVal e As EventArgs)

        myConnection = New SqlConnection(Conn)

        Dim strSQLQuery As String = "Insert Into Seller( Username,Password,SellerName,Email,PostCode,Address,Suburb,MobilePhone,WorkPhone,HomePhone,Char) values ( @username_text, @password_text, @contact_name,@email,@postal_postcode,@postal_addr,@postal_suburb,@mob_phone,@work_phone,@home_phone,'S')"


        Dim SqlCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
        ' Dim SqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(strSQLQuery, myConnection)


        'SqlCommand.Parameters.Add("@username_text", System.Data.SqlDbType.Text).Value = username_text
        'SqlCommand.Parameters.Add("@password_text", System.Data.SqlDbType.Text).Value = password_text
        'SqlCommand.Parameters.Add("@contact_name", System.Data.SqlDbType.Text).Value = contact_name
        'SqlCommand.Parameters.Add("@email", System.Data.SqlDbType.Text).Value = email
        'SqlCommand.Parameters.Add("@postal_postcode", System.Data.SqlDbType.Text).Value = postal_postcode
        'SqlCommand.Parameters.Add("@postal_addr", System.Data.SqlDbType.Text).Value = postal_addr
        'SqlCommand.Parameters.Add("@postal_suburb", System.Data.SqlDbType.Text).Value = postal_suburb       
        'SqlCommand.Parameters.Add("@mob_phone", System.Data.SqlDbType.Text).Value = mob_phone
        'SqlCommand.Parameters.Add("@work_phone", System.Data.SqlDbType.Text).Value = work_phone
        'SqlCommand.Parameters.Add("@home_phone", System.Data.SqlDbType.Text).Value = home_phone







        SqlCommand.CommandText = strSQLQuery
        SqlCommand.Connection = myConnection

        '  Dim DbParam_username As IDataParameter = New SQLParameter

        Dim DbParam_username As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter()
        DbParam_username.ParameterName = "@username_text"
        DbParam_username.Value = Server.HtmlEncode(username_text)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_username)

        Dim DbParam_password As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@password_text"
        DbParam_username.Value = Server.HtmlEncode(password_text)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_password)

        Dim DbParam_contactname As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@contact_name"
        DbParam_username.Value = Server.HtmlEncode(contact_name)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_contactname)

        Dim DbParam_postcode As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@postal_postcode"
        DbParam_username.Value = Server.HtmlEncode(postal_postcode)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_postcode)

        Dim DbParam_email As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@email"
        DbParam_username.Value = Server.HtmlEncode(email)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_email)

        Dim DbParam_suburb As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@postal_suburb"
        DbParam_username.Value = Server.HtmlEncode(postal_suburb)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_suburb)

        Dim DbParam_addr As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@postal_addr"
        DbParam_username.Value = Server.HtmlEncode(postal_addr)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_addr)

        'Dim DbParam_ch As IDataParameter = New SQLParameter
        'DbParam_username.ParameterName = "@ch"
        'DbParam_username.Value = Server.HtmlEncode(ch)
        'DbParam_username.DbType = System.Data.DbType.StringFixedLength
        'SqlCommand.Parameters.Add(DbParam_ch)

        Dim DbParam_mob As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@mob_phone"
        DbParam_username.Value = Server.HtmlEncode(mob_phone)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_mob)

        Dim DbParam_home As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@work_phone"
        DbParam_username.Value = Server.HtmlEncode(work_phone)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_home)

        Dim DbParam_work As IDataParameter = New SQLParameter
        DbParam_username.ParameterName = "@home_phone"
        DbParam_username.Value = Server.HtmlEncode(home_phone)
        DbParam_username.DbType = System.Data.DbType.StringFixedLength
        SqlCommand.Parameters.Add(DbParam_work)





        Dim rowsAffected As Integer = 0


        myConnection.Open()


        Try

            rowsAffected = sqlCommand.ExecuteNonQuery
            Response.Redirect("add_confirm.aspx")

        Finally

            myConnection.Close()

        End Try


        Return rowsAffected
    End Function

    Sub btnSignIn_Click(ByVal sender As Object, ByVal e As EventArgs)

        If Page.IsValid Then
            btnSignIn(username_text.Text, password_text.Text, contact_name.Text, email.Text, postal_postcode.Text, postal_addr.Text, postal_suburb.Text, mob_phone.Text, work_phone.Text, home_phone.Text)
            Response.Redirect("add_confirm.aspx")
        End If

    End Sub




End Class