cat_id = Request.QueryString("cat_id")
Dim myConnection As MySqlConnection = New MySqlConnection(ConfigurationSettings.AppSettings( "ConnectionString"))
Dim myCommand As MySqlCommand = New MySqlCommand("SELECT id_categoria, nome_categoria, parent_categoria FROM T_categorie WHERE parent_categoria=0 ORDER BY nome_categoria ", myConnection)
myConnection.Open()
Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConne ction)
Do While result.Read
Me.Lblmenu.Text += "
" & result("nome_categoria") & "
"
If result("id_categoria") = cat_id Then
Dim myConnection1 As MySqlConnection = New MySqlConnection(ConfigurationSettings.AppSettings( "ConnectionString"))
Dim myCommand1 As MySqlCommand = New MySqlCommand("SELECT id_categoria, nome_categoria, parent_categoria FROM T_categorie WHERE parent_categoria=" & cat_id & " ORDER BY nome_categoria ", myConnection1)
myConnection1.Open()
Dim result1 As MySqlDataReader = myCommand1.ExecuteReader(CommandBehavior.CloseConn ection)
Do While result1.Read
Me.Lblmenu.Text += "
" & result1("nome_categoria") & "
"
Loop
End If
Loop