<%@ Page Language="VB" %>
<%@ Import namespace="System.Globalization" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim dt As DateTime = DateTime.Now
Dim format As String() = New String() { _
"d", "D", "f", "F", "g", "G", "m", "r", "s", _
"t", "T", "u", "U", "y", "dddd, MMMM dd yyyy", _
"dddd, MMMM dd", "M/yy", "dd-MM-yy" _
}
Dim myDate As String
Dim i As Integer
For i = 0 To format.Length - 1
myDate = dt.ToString(format(i))
Response.Write(format(i) + " : " & myDate & "<br>")
Next i
End Sub
</script>
<body>
<form id="Form1" method="post" runat="server">
</form>
</body>
</HTML>