imports System
imports System.Web

Namespace ASPITALIA

  public class Time

    Public Function Now as string
      return DateTime.Now.ToLongDateString()
    End Function

  End Class

End Namespace

<%@ Import Namespace="ASPItalia.Time"%>
<script language="VB" runat="server">

Sub Page_Load()
try
  Dim ds = New aspitalia.time
  response.write (ds.now)
catch ex as exception

end try
End Sub
</script>