Test DTML Method for ZSession Sessions

Copy and paste this into a DTML Method to test ZSession Sessions.

<html>
<head>
</head>
<body bgcolor=white>
<HR>
Call ZSession:<dtml-var ZSession><BR>
<HR>
Set SESSION['Value1']:<dtml-call "SESSION.set('Key1','Value1')"><BR>
Set SESSION['Value2']:<dtml-call "SESSION.set('Key2','Value2')"><BR>
Set SESSION['Value3']:<dtml-call "SESSION.set('Key3','Value3')"><BR>
<HR>
Get SESSION['Value1']:<dtml-var "SESSION['Key1']"><BR>
Get SESSION['Value2']:<dtml-var "SESSION['Key2']"><BR>
Get SESSION['Value3']:<dtml-var "SESSION['Key3']"><BR>
<HR>
Has key SESSION['Key3']:<dtml-var "SESSION.has_key('Key3')"><BR>
<HR>
SESSION Keys:<BR>
<dtml-in "SESSION.keys()">
  <dtml-var sequence-item> = "<dtml-var "SESSION[_['sequence-item']]">"<br>
</dtml-in>
<HR>
Length SESSION:<dtml-var "SESSION.len()"><BR>
<HR>
Delete SESSION['Key3']:<dtml-var "SESSION.delete('Key3')"><BR>
<HR>
SESSION Keys Again:<BR>
<dtml-in "SESSION.keys()">
  <dtml-var sequence-item> = "<dtml-var "SESSION[_['sequence-item']]">"<br>
</dtml-in>
<HR>
Keys Items:<dtml-var "SESSION.items()">
<HR>
Keys Values:<dtml-var "SESSION.values()">
<HR>
Clear Keys:<dtml-call "SESSION.clear()">
<HR>
SESSION Keys Once More:<BR>
<dtml-in "SESSION.keys()">
  <dtml-var sequence-item> = "<dtml-var "SESSION[_['sequence-item']]">"<br>
</dtml-in>

</body>
</html>