Membership CreateUser
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="AddUser_aspx" %>
Untitled Page
File: Default.aspx.vb
Imports System.Web.Security
Partial Class AddUser_aspx
Inherits System.Web.UI.Page
Protected Sub btnAddUser_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) _
Handles btnAddUser.Click
Dim IsCreated As MembershipCreateStatus
If (txtPassword1.Text = txtPassword2.Text) Then
Membership.CreateUser(txtUserID.Text, txtPassword1.Text, _
txtEmail.Text, txtQn.Text, txtAns.Text, True, IsCreated)
Response.Write("Add user: " & IsCreated.ToString)
Else
Response.Write("Passwords do not match")
End If
End Sub
End Class