codebehind

Imports System.Web.UI
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
Imports System.Web.UI.WebControls.Button


Partial Class Registration_Vb
    Inherits System.Web.UI.Page
    Dim WithEvents cmdSave As New Button
    Dim WithEvents btnSubmit As New Button

    Protected Sub cmdSave_Click(sender As Object, e As System.EventArgs) Handles cmdSave.Click
        Dim insertCmd As String = "INSERT INTO UserInformation (UserName,Password,FirstName,LastName,Email) VALUES (@Username,@Password,@Fname,@Lname,@Email)"
        Using conn As New SqlConnection(ConfigurationManager.ConnectionStrings("dbconnection").ConnectionString)
            conn.Open()
            Dim myCommand As New SqlCommand(insertCmd, conn)
            ' Create parameters for the SqlCommand object
            ' initialize with input-form field values
            myCommand.Parameters.AddWithValue("@Username", txtUserName.Text)
            myCommand.Parameters.AddWithValue("@Password", txtPWD.Text)
            myCommand.Parameters.AddWithValue("@Fname", txtFirstName.Text)
            myCommand.Parameters.AddWithValue("@Lname", txtLastName.Text)
            myCommand.Parameters.AddWithValue("@Email", txtEmail.Text)
            myCommand.ExecuteNonQuery()
            Response.Write("<script>alert('Successfully Registered');</script>");
        End Using
    End Sub


    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSubmit.Click
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("dbconnection").ConnectionString)
        con.Open()
        Dim cmd As New SqlCommand("select * from UserInformation where UserName =@username and Password=@password", con)
        cmd.Parameters.AddWithValue("@username", txtUser.Text)
        cmd.Parameters.AddWithValue("@password", txtPass.Text)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()
        da.Fill(dt)
        If dt.Rows.Count > 0 Then
            Response.Redirect("Home.aspx")
        Else
            ClientScript.RegisterStartupScript(Page.[GetType](), "validation", "<script language='javascript'>alert('Invalid Username and Password')</script>")
        End If
    End Sub

End Class