มีการเช็คค่าจากdb แล้วมานับค่าที่ได้ว่ามีตรงตามเงื่อนไขรึป่าว แล้วให้โชว์msg box แจ้งค่ะ ปัญหาคือ ค่ามันวนกลับมาเช็คซ้ำค่ะ รบกวนด้วยค่ะ

   If dt.Rows.Count <> 0 Then
            Me.ClientScript.RegisterStartupScript(Me.GetType, "", "alert('Seat no." & Session("seat") & " booked. Please select seat no. again');location.href='AirBusMenu.aspx';", True)
            'Session.Remove("seat")
            'txtSeat.Value = ""
            Exit Sub

        Else 'If dt.Rows.Count = 0 Then
            InsertData(CnInsert)
            InsertSeat(CnSeat)
            Me.ClientScript.RegisterStartupScript(Me.GetType, "", "alert('Booking complete K." & Session("name") & " at seat no." & Session("seat") & "');location.href='AirBusMenu.aspx';", True)
            Exit Sub

        End If

       Dim StrsqlChk As String
        Dim CnChk As New OleDb.OleDbConnection(StrConn)
        CnChk.Open()
        StrsqlChk = ""

        '---- Sql statement ----
        'Session("UserId") = Session("UserId").toUpper
        StrsqlChk = "SELECT A2STPT FROM WEBAPPD.ABK020P WHERE A2STPT = '" & Session("Seat") & "' AND A2EMNO <> ''"
        '---- End Sql statement ----

        Dim DA As New OleDbDataAdapter(StrsqlChk, CnChk)
        Dim dt As New DataTable()

        DA.Fill(dt)
        If dt.Rows.Count <> 0 Then
            Me.ClientScript.RegisterStartupScript(Me.GetType, "", "alert('Seat no." & Session("seat") & " booked. Please select seat no. again');location.href='AirBusMenu.aspx';", True)
            'Session.Remove("seat")
            'txtSeat.Value = ""
            Exit Sub

        Else 'If dt.Rows.Count = 0 Then
            InsertData(CnInsert)
            InsertSeat(CnSeat)
            Me.ClientScript.RegisterStartupScript(Me.GetType, "", "alert('Booking complete K." & Session("name") & " at seat no." & Session("seat") & "');location.href='AirBusMenu.aspx';", True)
            Exit Sub

        End If

        CnChk.Close()