How to make registration system in ASP using VB code
By Guest |
Nov 11, 2021 |
ASP NET
How to make registration system in ASP using VB code
We will design the registration form using bootstrap v5. Code given below:
<div class="container">
<div class="row justify-content-center">
<div class="col-md-8 mt-5">
<div class="card">
<div class="card-header text-white bg-primary">
<h4>Register</h4>
</div>
<div class="card-body">
<div class="row">
<div class="col-md-6">
<div class="mb-3">
<label class="form-label">First Name</label>
<asp:TextBox ID="fname" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="col-md-6">
<div class="mb-3">
<label class="form-label">Last Name</label>
<asp:TextBox ID="lname" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="col-md-6">
<div class="mb-3">
<label class="form-label">Phone</label>
<asp:TextBox ID="phone" CssClass="form-control" runat="server"></asp:TextBox>
</div>
</div>
<div class="col-md-12">
<div class="mb-3">
<label class="form-label">Email address</label>
<asp:TextBox ID="email" CssClass="form-control" runat="server" TextMode="Email"></asp:TextBox>
</div>
</div>
<div class="col-md-6">
<div class="mb-3">
<label for="exampleInputPassword1" class="form-label">Password</label>
<asp:TextBox ID="password" CssClass="form-control" TextMode="Password" runat="server"></asp:TextBox>
</div>
</div>
<div class="col-md-6">
<div class="mb-3">
<label class="form-label">Confirm Password</label>
<asp:TextBox ID="cpassword" CssClass="form-control" TextMode="Password" runat="server"></asp:TextBox>
</div>
</div>
</div>
<asp:Button ID="register_btn" CssClass="btn btn-primary float-end me-2" runat="server" Text="Register" />
</div>
</div>
</div>
</div>
</div>
On button click, we will be inserting the data into our users table using the below code.
Protected Sub register_btn_Click(sender As Object, e As EventArgs) Handles register_btn.Click
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
con.ConnectionString = "YOUR_CONNECTION_STRING_HERE"
con.Open()
cmd.Connection = con
cmd.CommandText = "SELECT * FROM users WHERE email='" & email.Text & "' "
dr = cmd.ExecuteReader
If dr.HasRows Then
MsgBox("Email Already Registered", MsgBoxStyle.Critical)
con.Close()
Else
con.Close()
con.Open()
cmd = New SqlCommand("INSERT INTO users (fname, lname, email, phone, password) values('" & fname.Text & "','" & lname.Text & "','" & email.Text & "','" & phone.Text & "','" & password.Text & "')", con)
If (fname.Text = "" Or lname.Text = "" Or email.Text = "" Or password.Text = "") Then
Response.Write("All fields are mandatory")
ElseIf (Not String.Equals(password.Text, cpassword.Text)) Then
MsgBox("Password and Confirm password does not match", MsgBoxStyle.Critical)
Else
cmd.ExecuteNonQuery()
MsgBox("Registered successfully", MsgBoxStyle.Information, "Success")
Response.Redirect("login.aspx")
End If
con.Close()
End If
con.Close()
End Sub
Thank you.