<% set daltable_siteusers = server.CreateObject("Scripting.Dictionary") daltable_siteusers.Add "UserCode",server.CreateObject("Scripting.Dictionary") daltable_siteusers("UserCode")("nType")=3 daltable_siteusers("UserCode")("varname")="UserCode" daltable_siteusers.Add "UserName",server.CreateObject("Scripting.Dictionary") daltable_siteusers("UserName")("nType")=200 daltable_siteusers("UserName")("varname")="UserName" daltable_siteusers.Add "Password",server.CreateObject("Scripting.Dictionary") daltable_siteusers("Password")("nType")=200 daltable_siteusers("Password")("varname")="Password" daltable_siteusers.Add "UserEmailAddress",server.CreateObject("Scripting.Dictionary") daltable_siteusers("UserEmailAddress")("nType")=200 daltable_siteusers("UserEmailAddress")("varname")="UserEmailAddress" dalTable_siteusers("UserCode")("key")=true dal_info.Add "siteusers",dalTable_siteusers %>