<%@ Page Language="VB" %>
<%

   response.write("<font face=verdana size=2>")

        '
        'SET VARIABLE
        '
        Dim I As String = "This is a variable"
    	Dim loopa As Integer
    
        response.write(I + " <br /><pre>I = This is a variable</pre><hr />")
    
        '
        'IF STATEMENT
        '
        response.write("<b>This is an if statement</b><br />")
        If I = "This is a variable" Then
        	response.write("The same!")
        Else
        	response.write("Not the same")
        End If
    
        '
        'LOOP
        '
        response.write("<hr /><b>This is a Loop</b><br />")

        For loopa = 0 to 10 Step 1
        	Response.Write("Row " & loopa & "<br />")
        Next loopa

   response.write("</font>")
%>