Partial Class new_user
    Inherits System.Web.UI.Page



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Dim i As Integer
        'Dim drop(85) As Integer
        'For i = 0 To 85
        'drop(i) = 1300 + i
        'Next i
        'DropDownListsal.DataSource = drop
        'DropDownListsal.DataBind()

        'Dim j As Integer
        'Dim drop1(30) As Integer
        '
        '       For j = 0 To 30
        'drop1(j) = 1 + j
        'Next j
        'DropDownListruz.DataSource = drop1
        'DropDownListruz.DataBind()
    End Sub

   

    
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim securityDr As Data.SqlClient.SqlDataReader
        Dim securityConn As Data.SqlClient.SqlConnection
        Dim securityCmd As Data.SqlClient.SqlCommand

        Dim strUsername As String = TextBox5.Text
        Dim Conn As String = "Data Source=r-shiya;Initial Catalog=sportstore;Integrated Security=True"
        Dim SQL As String = "SELECT username FROM userpass WHERE username = '" & strUsername & "'"

        securityConn = New Data.SqlClient.SqlConnection(Conn)
        securityCmd = New Data.SqlClient.SqlCommand(SQL, securityConn)
        securityConn.Open()
        securityDr = securityCmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
        If securityDr.Read() Then
            securityDr.Close()
            MsgBox("شناسه شما موجود می باشد لطفا آن را عوض کنید", MsgBoxStyle.OkOnly, "sport store")
        Else
            securityDr.Close()
            SqlDataSource1.Insert()
            SqlDataSource2.Insert()
            SqlDataSource3.Insert()
            Response.Redirect("registered.aspx")

        End If
      
    End Sub

   
End Class