Imports System.Data Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Net.Mail Imports System.Net Partial Class Register Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub create_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim dv As Data.DataView dv = DataSource1.Select(DataSourceSelectArguments.Empty) Dim UserId As Integer = 0 Dim connectionString As String = oledbConnectionStringBuilder() Dim connection As OleDb.OleDbConnection = New OleDb.OleDbConnection Dim con As OleDbConnection Using cmd As New OleDbCommand("Insert_User") Using sda As New OleDbDataAdapter cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@Username", txtUsername) cmd.Parameters.AddWithValue("@Password", txtPassword) cmd.Parameters.AddWithValue("@Email", txtEmail) cmd.Connection = con con.Open() UserId = Convert.ToInt32(cmd.ExecuteScalar()) con.Close() End Using End Using Dim message As String = String.Empty Select Case UserId Case -1 message = "Username already exists.\nPlease choose a different Username." Exit Select Case -2 message = "Supplied email address has already been used." Exit Select Case Else message = "Registration successful. Exit Select End Select ClientScript.RegisterStartupScript([GetType](), "alert", (Convert.ToString("alert('") & message) + "');", True) End Sub
Private Function oledbConnectionStringBuilder() As String Throw New NotImplementedException End Function End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)