I am trying to implement a "Try Catch" block to generate a custom error message for a SQL Server error. I cannot get it to work.

Here is the code:

Sub btnInsert_Click(Sender As Object, E As EventArgs)

  Dim dsProjectSummary As New DataSet()
  Dim strConnection As String = ConfigurationSettings.AppSettings("BURS")
  Dim objConnection As New SqlConnection(strConnection)
  Dim objCommand As New SqlCommand("ap_ProjectSummaryInsert", objConnection)

  Dim strProjectID As String = CType(FindControl("txtProjectID"), TextBox).Text
  Dim strProjectName As String = CType(FindControl("txtProjectName"), TextBox).Text
  Dim strProjectDescription As String = CType(FindControl("txtProjectDescription"), TextBox).Text
  Dim strPhase As String = CType(FindControl("txtPhase"), TextBox).Text
  Dim strEstDeployDate As String = CType(FindControl("txtEstimatedDeploy"), TextBox).Text
  Dim strRecentAccomplishments As String = CType(FindControl("txtRecentAccomplishments"), TextBox).Text
  Dim strFocusItems As String = CType(FindControl("txtFocusItems"), TextBox).Text
  Dim strEstBenefits As String = CType(FindControl("txtEstBenefits"), TextBox).Text
  Dim strISCost As String = CType(FindControl("txtISCost"), TextBox).Text
  Dim strCorporateISLead As String = CType(FindControl("txtCorporateISLead"), TextBox).Text
  Dim strBusinessLead As String = CType(FindControl("txtBusinessLead"), TextBox).Text

  objCommand.CommandType=CommandType.StoredProcedure

  Dim objParameter As New SqlParameter("@ProjectID", SqlDbType.VarChar, 8)
  objCommand.Parameters.Add(objParameter)
  objParameter.Direction=ParameterDirection.Input
  objParameter.Value=strProjectID

  Dim objParameter1 As New SqlParameter("@ProjectName", SqlDbType.VarChar, 100)
  objCommand.Parameters.Add(objParameter1)
  objParameter1.Direction=ParameterDirection.Input
  objParameter1.Value=strProjectName

  Dim objParameter2 As New SqlParameter("@ProjectDescription", SqlDbType.VarChar, 2000)
  objCommand.Parameters.Add(objParameter2)
  objParameter2.Direction=ParameterDirection.Input
  objParameter2.Value=strProjectDescription

  Dim objParameter3 As New SqlParameter("@Phase", SqlDbType.VarChar, 30)
  objCommand.Parameters.Add(objParameter3)
  objParameter3.Direction=ParameterDirection.Input
  objParameter3.Value=strPhase

  Dim objParameter4 As New SqlParameter("@EstimatedDeploy", SqlDbType.DateTime)
  objCommand.Parameters.Add(objParameter4)
  objParameter4.Direction=ParameterDirection.Input
  objParameter4.Value=Convert.ToDateTime(strEstDeplo yDate)

  Dim objParameter5 As New SqlParameter("@RecentAccomplishments", SqlDbType.VarChar, 2000)
  objCommand.Parameters.Add(objParameter5)
  objParameter5.Direction=ParameterDirection.Input
  objParameter5.Value=strRecentAccomplishments

  Dim objParameter6 As New SqlParameter("@FocusItems", SqlDbType.VarChar, 2000)
  objCommand.Parameters.Add(objParameter6)
  objParameter6.Direction=ParameterDirection.Input
  objParameter6.Value=strFocusItems

  Dim objParameter7 As New SqlParameter("@EstBenefits", SqlDbType.VarChar, 200)
  objCommand.Parameters.Add(objParameter7)
  objParameter7.Direction=ParameterDirection.Input
  objParameter7.Value=strEstBenefits

  Dim objParameter8 As New SqlParameter("@ISCost", SqlDbType.VarChar, 15)
  objCommand.Parameters.Add(objParameter8)
  objParameter8.Direction=ParameterDirection.Input
  objParameter8.Value=strISCost

  Dim objParameter9 As New SqlParameter("@CorporateISLead", SqlDbType.VarChar, 50)
  objCommand.Parameters.Add(objParameter9)
  objParameter9.Direction=ParameterDirection.Input
  objParameter9.Value=strCorporateISLead

  Dim objParameter10 As New SqlParameter("@BusinessLead", SqlDbType.VarChar, 50)
  objCommand.Parameters.Add(objParameter10)
  objParameter10.Direction=ParameterDirection.Input
  objParameter10.Value=strBusinessLead

Try
  objConnection.Open()
    objCommand.ExecuteNonQuery()
    DataBind()
  objConnection.Close()
Catch SQLEx As SQLException
  If SQLEx.Number = 2627 then
    <script language='javascript'>alert('The ProjectID you entered is already used in the database. Please try a different Project ID.');</script>
  Else
    <script language='javascript'>alert('A SQL Server Error Occurred.')</script>
  End If
Finally

End Try

End Sub

When I try to load the web page, I get the following error message:

BC30441: 'Catch' must end with a matching 'End Try'.

Why can't the compiler see the End Try in my code?

It doesn't understand:
1) <script language='javascript'>alert('The ProjectID you entered is already used in the database. Please try a different Project ID.');</script>
2) <script language='javascript'>alert('A SQL Server Error Occurred.')</script>

Try this:
Catch SQLEx As SQLException
  Response.Write(SQLEx.Message)
Catch ex as Exception
  Response.Write("general exception")
Finally

You have placed javascript in regular code. The compiler doesn't like it.

You can wrap your javascript tags inside a call to the method that will drop it in the page's HTML:

RegisterStartupScript("<script...>...</script>")

Thanks for the suggestion. Sorry I couldn't respond sooner, I was out of the office all last week.

I inserted the following lines of code after the code for Parameter10:

<code>
Dim strScript1 As String
Dim strScript2 As String

strScript1 = "<script language='javascript'>" & _
           "alert('The ProjectID you entered is already used in the database. Please try a different Project ID.');" & _
           "& chr(60) & "</script>"

strScript2 = "<script language='javascript'>" & _
           "alert('A SQL Server Error Occurred.');" & _
           "& chr(60) & "/script>"

Page.RegisterStartupScript("strScript1", strScript1)
Page.RegisterStartupScript("strScript2", strScript2)
</code>

Now I have a different error:

Compiler Error Message: BC30289: Statement cannot appear within a method body. End of method assumed.

Source Error:

Line 293: #End ExternalSource
Line 294:
Line 295: Public Sub New()
Line 296: MyBase.New
Line 297: Dim dependencies As System.Collections.ArrayList

Source File: C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Tempo rary ASP.NET Files\burs\06db06a6\5c2ffd47\a43u_k4r.0.vb Line: 295

Any suggestions on this error?

Looks like it's telling you that the code can't be there. Where is that code snippit living? It's in a method I assume, but that almost seems to be the problem. Strange...