Private Function CheckEmailExist As Boolean
CheckEmailExist = True
Try
Dim TSQL As String = "SELECT ISNULL(COUNT(Email),0) FROM Person"
(Dim Cmd As New SqlClient.SqlCommand(TSQL, Cn)
If Cn.State = ConnectionState.Closed Then Cn.Open()
Dim SqlRes As Integer = CInt(Cmd.ExecuteScalar)
Cn.Close()
Return SqlRes = 0
Catch ex As Exception
If Cn.State = ConnectionState.Open Then Cn.Close()
MsgBox(Err.Description _
, MsgBoxStyle.Critical, "خطا هنگام شناسايي رکورد جديد")
End Try
End Function
If CheckEmailExist = False Then
M.MyString = "كاربر گرامي اين ايميل قبلا ثبت شده آنرا اصلاح كنيد"
Msg("OKNP", 2, "اعلاميه")
Exit Sub
End If