Simple User Registration Page and Log-in Page with Database Table in ASP.Net using VB.Net

WebSite3/CustomerRegister.aspx.vb

Imports System Imports System.Linq Imports System.Web Imports System.Web.UI Imports Microsoft.SqlServer Imports System.Data Imports System.Configuration Imports System.Data.SqlClient Partial Public Class CustomerRegister Inherits System.Web.UI.Page Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim ID As Integer = 0 Dim constr As String = ConfigurationManager.ConnectionStrings("DefaultConnection").ConnectionString Using con As New SqlConnection(constr) Using cmd As New SqlCommand("Insert_User") Using sda As New SqlDataAdapter() cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@Email", TextBox1.Text.Trim()) cmd.Parameters.AddWithValue("@Password", TextBox2.Text.Trim()) cmd.Connection = con con.Open() ID = Convert.ToInt32(cmd.ExecuteScalar()) con.Close() End Using End Using Dim message As String = String.Empty Select Case ID Case -1 message = "Email address already exists.\nPlease use different Email address." Exit Select Case Else message = "Registration successful.\nUser Id: " + ID.ToString() Exit Select End Select ClientScript.RegisterStartupScript([GetType](), "alert", (Convert.ToString("alert('") & message) + "');", True) End Using End Sub Public Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged End Sub End Class