<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Application Object</title>
</head>
<body>
<%
Application("SiteName") = "www.ThaiCreate.Com"
Application("Version") = "2008"
Application("Creator") = "Mr.Weerachai Nukitram"
Dim List
For Each List In Application.Contents
Response.write(List &" = " & Application.Contents(List) & "<br>")
Next
Response.write("<hr>")
Application.Contents.RemoveAll
For Each List In Application.Contents
Response.write(List &" = " & Application.Contents(List) & "<br>")
Next
%>
</body>
</html>