<ul class="tree {if $isDhtml}dhtml{/if}">
		{foreach from=$blockCategTree.children item=child name=blockCategTree}
			{if $smarty.foreach.blockCategTree.last}
				{include file="$branche_tpl_path" node=$child last='true'}
			{else}
				{include file="$branche_tpl_path" node=$child}
			{/if}								
		{/foreach}	
		</ul>

<ul class="tree {if $isDhtml}dhtml{/if}">
		{include file="X:\Fuentes\prestashop\modules\blockcategories\prob.php"}	
		</ul>

<?
echo("<li>Probando PHP</li>");
?>
<li>Probando HTML</li>
 

<ul style="display: block;" class="tree dynamized">
		<!--?
echo("<li-->Probando PHP");
?&gt;
<li class="last">Probando HTML</li>	
		</ul>

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session.Item("usuario") Is Nothing Then
            Response.Redirect("error.aspx", True)
        ElseIf Session.Item("usuario").ToString.Trim.Equals(String.Empty) Then
            Response.Redirect("error.aspx", True)
        Else
            lblUsuario.Text = Session.Item("usuario") & " - Área Económica"
 
            dsEconomica.ReadXml(Server.MapPath("economica.xml"))
 
            grdEconomica.DataSource = dsEconomica.Tables(0).DefaultView
            grdEconomica.DataBind()
 
            crtGrafica.DataSource = dsEconomica.Tables(0).DefaultView
            crtGrafica.DataBind()            
        End If
    End Sub
 

        MessageBox.Show("Errores en los datos. Revise lo siguiente por favor: " & vbCrLf & _
                         " -El valor de 'stor_id' no se puede repetir." & vbCrLf & _
                         " -Longitud de 'stor_id' de entre 1 y 4 caracteres." & vbCrLf & _
                         " -Longitud de 'state' de entre  1 y 2 caracteres." & vbCrLf & _
                         " -Longitud de 'city' de entre 1 y 19 caracteres.")
    End Sub

Public Class principal
    Public Shared Sub main()
        Application.EnableVisualStyles()
 
        System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("es-ES")
 
        Dim formulario As New frmMenu()
        Application.Run(formulario)
 
        Application.ExitThread()
        Application.Exit()
    End Sub
End Class

Public Class principal
    Public Shared Sub main()
        Dim formulario As New frmMenu()
        formulario.show()
    End Sub
End Class

grdTiendas.DataSource = datos.DefaultView

Public Class frmAutores
    Sub New()
        InitializeComponent()
        Dim conexion As String = "server=server; user id=user; Password=pass; Initial Catalog=library;"
        Dim cnn As New Data.SqlClient.SqlConnection(conexion)
        Dim cmd As New Data.SqlClient.SqlCommand("select au_id, au_fname, au_lname, city from authors", cnn)
        'Dim dt As New Data.DataTable
        Dim dRead As Data.SqlClient.SqlDataReader = Nothing
        Try
            cnn.Open()
            dRead = cmd.ExecuteReader
            While dRead.Read
 
            End While
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If Not dRead Is Nothing Then
                dRead.Close()
            End If
            cnn.Close()
            cnn.Dispose()
            cmd.Dispose()
        End Try
    End Sub
End Class