<%@ Page Language="VB" %> <script runat="server"> sub Page_Load(obj as object, e as eventargs) dim i as integer Response.Write("This is an example") Response.Write("<HR width=100%\>") for i = 1 to 5 Response.Write("<font size=" & i & ">Hi!<br></font>") next end sub </script> <html><body> </body></hhtml>