Clic bouton non pris en compte

Protected Sub btnEnregistrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnregistrer.Click
		lblAvertissement.Text = ""

		'If String.IsNullOrEmpty(txtDateDebut.Text) Then
		'	Dim strScript As String = "Alert('Vous devez spécidier une date de début.');"
		'	ScriptManager.RegisterStartupScript(Me.btnEnregistrer, Me.btnEnregistrer.GetType(), "alert", strScript, True)
		'	Exit Sub
		'End If
		'If String.IsNullOrEmpty(txtDateFin.Text) Then
		'	Dim strScript As String = "Alert('Vous devez spécidier une date de fin.');"
		'	ScriptManager.RegisterStartupScript(Me.btnEnregistrer, Me.btnEnregistrer.GetType(), "alert", strScript, True)
		'	Exit Sub
		'End If

		Dim sStartDate() As String = txtDateDebut.Text.Substring(0, 10).Split("/")
		Dim sEndDate() As String = txtDateFin.Text.Substring(0, 10).Split("/")
		Dim dateDebut As DateTime = New DateTime(Integer.Parse(sStartDate(2)), Integer.Parse(sStartDate(1)), Integer.Parse(sStartDate(0)))
		Dim dateFin As DateTime = New DateTime(Integer.Parse(sEndDate(2)), Integer.Parse(sEndDate(1)), Integer.Parse(sEndDate(0)))

		If DateTime.Compare(dateDebut, dateFin) >= 0 Then
			lblAvertissement.Text = "La date de fin ne doit pas être inférieure à la date de début."
			Exit Sub
		End If

		lblAvertissement.Text = dateDebut.ToString("dd/MM/yyyy") & " - " & dateFin.ToString("dd/MM/yyyy")

		If ddlSemaines.SelectedItem.Value = "-1" Then
			If verifDate(dateDebut, dateFin) Then
				Dim sql As String = ""
				sql = " INSERT INTO [dbo].[ARRIVAGES] "
				sql &= " ([ARR_DATE_DEBUT], [ARR_DATE_FIN], [ARR_CONTENT], [ARR_INDEX]) "
				sql &= " VALUES "
				sql &= " ( convert(datetime, '" & dateDebut.ToString("dd/MM/yyyy") & "', 103) "
				sql &= " , convert(datetime, '" & dateFin.ToString("dd/MM/yyyy") & "', 103) "
				sql &= " , '" & fckCreation.Value.Replace("'", "''").Trim() & "' "
				sql &= " ," & ddlPosition.SelectedValue & ") "
				Try
					Donnees.insere(sql)
					chargeSemaine()
				Catch ex As Exception
					lblAvertissement.Text = ex.Message
				End Try

				'lblAvertissement.Text &= "-[" & sql & "]-"

			Else
				lblAvertissement.Text = "Attention chevauchement avec une semaine existante, <br />ENREGISTREMENT INTERDIT."
			End If
		Else
			If compteEnregistrement() = 0 Then
				Dim sql As String = ""
				sql = " INSERT INTO [dbo].[ARRIVAGES] "
				sql &= " ([ARR_DATE_DEBUT], [ARR_DATE_FIN], [ARR_CONTENT], [ARR_INDEX]) "
				sql &= " VALUES "
				sql &= " ( convert(datetime, '" & dateDebut & "', 103) "
				sql &= " , convert(datetime, '" & dateFin & "', 103) "
				sql &= " , '" & fckCreation.Value.Replace("'", "''").Trim() & "' "
				sql &= " ," & ddlPosition.SelectedValue & ") "
				'lblAvertissement.Text &= "-[" & sql & "]-"
				Try
					Donnees.insere(sql)
					chargeSemaine()
				Catch ex As Exception
					lblAvertissement.Text = ex.Message
				End Try
			Else
				Dim sql As String = ""
				sql = " UPDATE [dbo].[ARRIVAGES] "
				sql &= " SET [ARR_CONTENT] = '" & fckCreation.Value.Replace("'", "''").Trim() & "' "
				sql &= " WHERE  ARR_DATE_DEBUT = convert(datetime, '" & dateDebut & "', 103) "
				sql &= " and ARR_DATE_FIN = convert(datetime, '" & dateFin & "', 103) "
				sql &= " and ARR_INDEX = " & ddlPosition.SelectedValue
				'lblAvertissement.Text &= "-[" & sql & "]-"
				Try
					Donnees.insere(sql)
					chargeSemaine()
				Catch ex As Exception
					lblAvertissement.Text = ex.Message
				End Try
			End If
			afficheArrivage()
		End If
	End Sub