MarkupInCodeBlock.vb

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:N.N.NNNNN.N
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System

Namespace TestOutput
Public Class MarkupInCodeBlock
Public Sub New()
MyBase.New
End Sub
Public Overrides Sub Execute()

#ExternalSource("MarkupInCodeBlock.vbhtml",1)
     
    For i = 1 To 10


#End ExternalSource
WriteLiteral("        ")

WriteLiteral("<p>Hello from VB.Net, #")


#ExternalSource("MarkupInCodeBlock.vbhtml",3)
                            Write(i.ToString())


#End ExternalSource
WriteLiteral("</p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))


#ExternalSource("MarkupInCodeBlock.vbhtml",4)
    Next i


#End ExternalSource
WriteLiteral(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10))

End Sub
End Class
End Namespace