<html><head>
<%PageTitle="Caching Items - Page 1"%>
<!-- #include virtual="/include/head.asp"-->
<a href="/include/code.asp?<%=Request.ServerVariables("url")%>" target=code><b>Show Code</b></a><br>
<div>This is a working page of a sample application. Please try submitting different data. See how errors are handled.</div>
<% on error resume next
Set User=server.CreateObject("DB3NF.Item")
set objSchema=User.SchemaObj 'Display functions from included display.asp need it to work
User.Class="user"
User.ID=2 'here we connect to existing item
%>
<h3>Properties in the database</h3>
<table class=PropertyTable width=550 cellspacing=0>
<%
for each Prop in User.Properties
Display Prop, true
next
%>
</table>
<h3>Updated Properties (First name)</h3>
<table class=PropertyTable width=550 cellspacing=0>
<%
User("FirstName")="New First Name not Saved to the Database"
for each Prop in User.Properties
Display Prop, true
next
User.Cache
%>
</table>
<h4><A HREF="cache2.asp">Go to cache2.asp</A><h4>
<%
if err then Response.Write "<p><b>Application error</b></p>"
%>
<!-- #include virtual="/include/footer.asp"-->