How to make registration system in ASP using VB code

Whatsapp

https://www.fundaofwebit.com/post/registration-in-asp-using-vb-code

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.

© Copyright - 2018 - 2022 | All rights reserved at Funda of Web IT