HI,
I need to inform users that they can't delete a record using a New Window or Message Box; which isn't working very well for me, yet.
I have tried two processes, a) redirect to the same page which stops the processing-works wells; but the user does not see the error message. Then, I have option b) which use of the message box; which continues the processing and deletes the record-no good.
 Goal: Provide user with an error message and stop the processing, remain on the same page.

Me snippet code :

If recordbedeleted = False Then
'Option B:
                        Dim strMessage As String
                        strMessage = "The Division ID number you are attempting to delete has employee records associated to it."
                        strMessage += " Please try again."
                        'finishes server processing, returns to client.
                        Dim strScript As String = "<script language=JavaScript>"
                        strScript += "alert(""" & strMessage & """);"
                        strScript += "</script>"

                        If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
                            ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
                        End If
'Option A
                        'Response.Redirect("http://localhost:2082/Inform/samepage.aspx")
                        'lblErrorMessage.Text = " The division you are attempting to delete is in use."

                    End If

You need a Return statement in there somewhere to stop execution of your code.

If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
Return 'Execution for this method stops here.
End If

hth.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

Can you give me an example of the correct Return statement to use?

Thank you.

...It is in my code example above.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

I used "Return" as you have it in your example, but it did not stop the execution of the code.

Then there is more to the situation then you are showing. For example

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim i As Integer = 0
        If i = 0 Then
            Response.Write(i)
            Return
        End If
        i = 5
        Response.Write(i)
    End Sub

The value Zero is wrote the browser and the final two statements are never hit.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

This is my code in its entirety:
 If e.CommandName = "Delete" Then
            Dim DivisionCode2 As Label = CType(dvNewDivision.FindControl("DivisionCode"), Label)
            Dim Description2 As Label = CType(dvNewDivision.FindControl("Description"), Label)


            'Establish connection to the database connection
            Dim sqlcon As New SqlClient.SqlConnection(ConfigurationManager.Conne ctionStrings("AttendanceConnectionString").ToStrin g)

            sqlcon.Open()

            Using cmd As New System.Data.SqlClient.SqlCommand("SELECT DISTINCT ATTDivision.DivisionCode, ATTDivision.DivisionDescription, ATTEmployee.DivisionCode " & _
                          "FROM ATTDivision INNER JOIN " & _
                           "ATTEmployee ON ATTDivision.DivisionCode = ATTEmployee.DivisionCode " & _
                          "WHERE (ATTDivision.DivisionCode = '" & DivisionCode2.Text & " ') " & _
                          "ORDER BY ATTDivision.DivisionDescription")

                cmd.Connection = sqlcon

                Dim recordbedeleted As Boolean = cmd.ExecuteScalar Is Nothing

                If recordbedeleted = True Then
                    Using cmd2 As New System.Data.SqlClient.SqlCommand("DELETE FROM ATTDivision WHERE DivisionCode = '" & DivisionCode2.Text & " ' ")
                        cmd2.Connection = sqlcon
                        cmd2.ExecuteNonQuery()
                    End Using
                Else

                    If recordbedeleted = False Then
                        Dim strMessage As String
                        strMessage = "The Division ID number you are attempting to delete has employee records associated to it."
                        strMessage += " Please try again."
                        'finishes server processing, returns to client.
                        Dim strScript As String = "<script language=JavaScript>"
                        strScript += "alert(""" & strMessage & """);"
                        strScript += "</script>"

                        If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
                            ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
                            Return
                        End If

                    End If
                    sqlcon.Close()
                End If


            End Using
            sqlcon.Close()
        End If

Your logic seems to be a bit off. Based on the code you have here I assume that execution never gets into your else statement. Also, this statement is redundant:

If recordbedeleted = False Then

It stands to reason that unless this boolean value is true you do not want to execute the delete statement. I would write that statement something like:
                Dim recordbedeleted As Boolean = cmd.ExecuteScalar Is Nothing

                If recordbedeleted = True Then
                    Using cmd2 As New System.Data.SqlClient.SqlCommand("DELETE FROM ATTDivision WHERE DivisionCode = '" & DivisionCode2.Text & " ' ")
                        cmd2.Connection = sqlcon
                        cmd2.ExecuteNonQuery()
                    End Using
                Else

                        Dim strMessage As String
                        strMessage = "The Division ID number you are attempting to delete has employee records associated to it."
                        strMessage += " Please try again."
                        'finishes server processing, returns to client.
                        Dim strScript As String = "<script language=JavaScript>"
                        strScript += "alert(""" & strMessage & """);"
                        strScript += "</script>"

                        If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
                            ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
                            Return
                        End If
                End If
sqlcon.Close()

Also, I would change your first SQL Statement to something like:
"SELECT DISTINCT Count(ATTDivision.DivisionCode) " & _
                          "FROM ATTDivision INNER JOIN " & _
                           "ATTEmployee ON ATTDivision.DivisionCode = ATTEmployee.DivisionCode " & _
                          "WHERE (ATTDivision.DivisionCode = '" & DivisionCode2.Text & " ') " & _
                          "ORDER BY ATTDivision.DivisionDescription")

And then change your boolean equation to something like
Dim recordbedeleted As Boolean = (Convert.ToInt32(cmd.ExecuteScalar) = 0)

hth

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========

I copied the code, ran the page and received the following error;
*ORDER BY items must appear in the select list if SELECT DISTINCT is specified.

This is the code that is being used:
If e.CommandName = "Delete" Then
            Dim DivisionCode2 As Label = CType(dvNewDivision.FindControl("DivisionCode"), Label)
            Dim Description2 As Label = CType(dvNewDivision.FindControl("Description"), Label)


            'Establish connection to the database connection
            Dim sqlcon As New SqlClient.SqlConnection(ConfigurationManager.Conne ctionStrings("AttendanceConnectionString").ToStrin g)

            sqlcon.Open()

            Using cmd As New System.Data.SqlClient.SqlCommand("SELECT DISTINCT Count(ATTDivision.DivisionCode) " & _
                          "FROM ATTDivision INNER JOIN " & _
                           "ATTEmployee ON ATTDivision.DivisionCode = ATTEmployee.DivisionCode " & _
                          "WHERE (ATTDivision.DivisionCode = '" & DivisionCode2.Text & " ') " & _
                          "ORDER BY ATTDivision.DivisionDescription")

                cmd.Connection = sqlcon

                Dim recordbedeleted As Boolean = (Convert.ToInt32(cmd.ExecuteScalar) = 0)<<==*It blows up on this line

                If recordbedeleted = True Then
                    Using cmd2 As New System.Data.SqlClient.SqlCommand("DELETE FROM ATTDivision WHERE DivisionCode = '" & DivisionCode2.Text & " ' ")
                        cmd2.Connection = sqlcon
                        cmd2.ExecuteNonQuery()
                    End Using
                Else

                    Dim strMessage As String
                    strMessage = "The Division ID number you are attempting to delete has employee records associated to it."
                    strMessage += " Please try again."
                    'finishes server processing, returns to client.
                    Dim strScript As String = "<script language=JavaScript>"
                    strScript += "alert(""" & strMessage & """);"
                    strScript += "</script>"

                    If (Not ClientScript.IsStartupScriptRegistered("clientScri pt")) Then
                        ClientScript.RegisterClientScriptBlock(Me.GetType( ), "clientScript", strScript)
                        Return
                    End If
                End If
            End Using
            sqlcon.Close()
        End If

**It blows up when the record needs to be deleted and when it does not.

Remove the OrderBy statement, you don't need it. Count() is an aggregate and will only return 1 record, an integer value. Also, "It blows up on this line" doesn't tell me anything.

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
================================================== =========
.: Wrox Technical Editor / Author :.
Wrox Books 24 x 7
================================================== =========