ASP 101 - Active Server Pages 101 welcome.aspx
<%@ Page Language="VB" %>
<script language="VB" runat="server">
	Sub Page_Load(sender as Object, e as EventArgs)
		Dim dtNow As DateTime
		Dim iHour As Integer
		dtNow = Now()
		lblTime.Text = dtNow.ToLongTimeString
		lblDate.Text = dtNow.ToLongDateString _
			& " (" & dtNow.ToShortDateString & ")" 
		iHour = dtNow.Hour
		If iHour < 12 Then
			lblGreeting.Text = "Good morning!"
		ElseIf iHour < 17 Then
			lblGreeting.Text = "Good afternoon!"
			lblGreeting.Text = "Good evening!"
		End If
	End Sub
<title>ASP.NET Greeting Sample</title>
<asp:Label id="lblGreeting" runat="server" />
We hope you are enjoying our sample code.
If you are curious it is currently
<asp:Label id="lblTime" text=Time() runat="server" />
on <asp:Label id="lblDate" runat="server" />.
<hr />
Click <a href="">here</a>
to read about and download the source code.