http://blog.tanist.co.uk/files/unserialize/

$AAA = 'ไม่มี';
$AAA = ($BBB['bbb'])? 'มี B' : $AAA;
$AAA = ($CCC['ccc'])? 'มี C' : $AAA;
$AAA = ($BBB['bbb'] && $CCC['ccc']) ? 'มี BC' : $AAA;

echo $AAA;

http://codex.wordpress.org/Function_Reference/get_query_var

        Dim strArr() As String
        Dim count As Integer

        For count = 0 To TextBox1.Lines.Count - 1
            strArr = TextBox1.Lines(count).Split(",")

            Dim part1 As String = strArr(0)
            Dim part2 As String = strArr(1)
            Dim part3 As String = strArr(2)
            Dim part4 As String = strArr(3)

            MessageBox.Show(part1)
            MessageBox.Show(part2)
            MessageBox.Show(part3)
            MessageBox.Show(part4)
        Next

<%@ Import Namespace="System.Data"%>

<% %>