<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Application Object</title>
</head>
<body>
<%
Response.write Application.StaticObjects.Key("SmartUpload") & "<br>"
Response.write Application.StaticObjects.Key("Zip") & "<br>"
Response.write("<hr>")
Dim List
For Each List In Application.StaticObjects
Response.write(List & "<br>")
Next
Response.write("<hr>")
For List = 1 To Application.StaticObjects.Count
Response.write(Application.StaticObjects.Key(List)& "<br>")
Next
%>
</body>
</html>