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>