Function Traitement(model As TraitementViewModel, confirm_value As String) As ActionResult Try If (ModelState.IsValid) Then Dim exception As Exception = Nothing Dim mois As Integer = Mid(model.dateTraitement, 4, 2) Dim annee As Integer = Right(model.dateTraitement, 4) Session("mois") = mois Session("annee") = annee Dim extract As Extraction = New Extraction() Dim result As Integer = extract.Recherche(mois, annee).Rows.Count() If (result <> 0) Then OPEN POPUP Artciles Montant 1 100 2 200 Do you want continue YES NO IF(confirm_value = "yes") Then continue... Else Exit Function Else continue... End If End If End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)