<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>sample1</TITLE>
</HEAD>
<BODY>
<% Response.Write("Hello World<BR>") %>
</BODY>
</HTML>
<HTML> <HEAD> <TITLE>sample1</TITLE> </HEAD> <BODY> Hello World<BR> </BODY> </HTML>
<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>sample2</TITLE>
</HEAD>
<BODY>
<% For fsize = 1 To 6
Response.Write("<H" & fsize & ">Hello World</H" & fsize & "><BR>")
Next %>
</BODY>
</HTML>
<HTML> <HEAD> <TITLE>sample2</TITLE> </HEAD> <BODY> <H1>Hello World</H1><BR> <H2>Hello World</H2><BR> <H3>Hello World</H3><BR> <H4>Hello World</H4><BR> <H5>Hello World</H5><BR> <H6>Hello World</H6><BR> </BODY> </HTML>
<%@ LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>sample3</TITLE>
</HEAD>
<BODY>
The date and time: <%= Now %><P>
<% tm = DatePart("h", Now)
If tm < 6 Then
Response.Write "zzz... I'm sleeping<BR>"
ElseIf tm < 12 Then
Response.Write "Good morning!<BR>"
ElseIf tm < 18 Then
Response.Write "Good afternoon!<BR>"
ElseIf tm < 21 Then
Response.Write "Good evening!<BR>"
Else
Response.Write "I'm sleepy!<BR>"
End If
%>
</BODY>
</HTML>