Visual Basic

Dim val As Label = DirectCast((GridView1.Rows(e.RowIndex).FindControl("NTN")), Label)

Dim lblNTN As New Label
lblNTN = DirectCast((GridView1.Rows(e.RowIndex).FindControl("NTN")), Label)

cmd1.CommandText = "insert into uu.record_backup(ntn, name, status, enf, aud, sector, delete_user) select ntn, name, status, enf, aud, sector" _
 & ",'" & Label5.Text & "'" & " from uu.total_cases where trim(ntn)='" _
 & GridView1.Rows(e.RowIndex).Cells("NTN").Value & "'"

DataTable dataTable = dataSet.Tables[0];<br />
foreach(DataRow dataRow in dataTable.Rows)<br />
{<br />
Response.Write(dataRow["column_name"].ToString());<br />
}

B = 100<br />
For A = 1 To 100<br />
If "Condition" = True Then<br />
B = B - 1<br />
End If<br />
Next

B = 100<br />
C = 100<br />
For A = 1 To C<br />
If "Condition" = True Then<br />
B = B - 1<br />
End If<br />
Next

B = 100<br />
C = 100<br />
For A = 1 To C<br />
If "Condition" = True Then<br />
B = B - 1<br />
End If<br />
Next

Public Sub Main()
    Dim inArr1() As String = {"Brachiosaurus", "Amargasaurus", "Mamenchisaurus"}
    Dim inArr2() As String = {"Tyrannosaurus", "Amargasaurus", "Brontosaurus"}

    Dim arr1 As New List(Of String)(inArr1)
    Dim arr2 As New List(Of String)(inArr2)

    Dim msg As String = "List 2 contains dupes: "

    For i = 0 To arr1.Count - 1
        If arr2.Contains(arr1.Item(i)) Then
            msg &= ", " & arr1.Item(i)
        End If
    Next

    MsgBox(msg)
End Sub