01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP Application Object</title>
05.</head>
06.<body>
07.<%
08. Application("SiteName") = "www.ThaiCreate.Com"
09. Application("Version") = "2008"
10. Application("Creator") = "Mr.Weerachai Nukitram"
11.
12. Dim List
13. For Each List In Application.Contents
14. Response.write(List &" = " & Application.Contents(List) & "<br>")
15. Next
16.
17. Response.write("<hr>")
18. Application.Contents.Remove("Creator")
19. For Each List In Application.Contents
20. Response.write(List &" = " & Application.Contents(List) & "<br>")
21. Next
22.%>
23.</body>
24.</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
