01.<%@ Page Language="VB" %>
02.<script runat="server">
03.
04. Sub Page_Load(sender As Object, e As EventArgs)
05. IF Now.Day = 10 Then
06. Me.lblText1.Text = "Now Day = 10-11-2008 (DD-MM-YYY)"
07. ElseIF Now.Day = 11 Then
08. Me.lblText1.Text = "Now Day = 11-11-2008 (DD-MM-YYY)"
09. ElseIF Now.Day = 12 Then
10. Me.lblText1.Text = "Now Day = 12-11-2008 (DD-MM-YYY)"
11. ElseIF Now.Day = 13 Then
12. Me.lblText1.Text = "Now Day = 13-11-2008 (DD-MM-YYY)"
13. ElseIF Now.Day = 14 Then
14. Me.lblText1.Text = "Now Day = 14-11-2008 (DD-MM-YYY)"
15. Else
16. Me.lblText1.Text = "Now Day = " & Format(Now.Date,"dd-M-yyyy")
17. End IF
18. End Sub
19.
20.</script>
21.<html>
22.<head>
23.</head>
24.<body>
25. <form runat="server">
26. <asp:Label id="lblText1" runat="server"></asp:Label><br />
27. </form>
28.</body>
29.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
