Viewing source for recipe1611vb.aspx

<%@ Page %>
<script language="vb" runat="server">
	Sub Page_Load(sender As Object, e As EventArgs)
		Dim ticks As Long
		ticks=DateTime.Now.Ticks-DateTime.Today.Ticks
		Dim ts As New TimeSpan(ticks)
		Hours.Text=ts.Hours.ToString()
		Minutes.Text=ts.Minutes.ToString()
		Seconds.Text=ts.Seconds.ToString()
	End Sub
</script>
<html>
	<body>
		<form id="form1" method="post" runat="server">
			Since the start of the day
			<asp:Label ID="Hours" Runat="server" />
			hours,
			<asp:Label ID="Minutes" Runat="server" />
			minutes and
			<asp:Label ID="Seconds" Runat="server" />
			seconds have passed.
		</form>
	</body>
</html>