public class UserProperties : SecurityBase

Public Class UserProperties
	Inherits SecurityBase

Try
   Dim upo As New UserProperties()
   'The user's start document is stored in the built-in system application
   If upo.ExistsProperty(CS_ConnectionId, CS_UserSessionId, UserProperties.CS_APPLICATION, "startdoc") Then
      Response.Write("Your start document is: " & upo.GetApplicationProperties(CS_ConnectionId, _
                                                                                   CS_UserSessionId, _
                                                                                   UserProperties.CS_APPLICATION)("startdoc"))
   Else
      Response.Write("Your start document is not defined")
   End If
Catch ex As Exception
   Response.Write(Server.HtmlEncode(ex.Message))
End Try

try
{
   UserProperties upo = new UserProperties();
   //The user's start document is stored in the built-in system application
   if(upo.ExistsProperty(CS_ConnectionId, CS_UserSessionId, UserProperties.CS_APPLICATION, "startdoc"))
   {
      Response.Write("Your start document is: " + upo.GetApplicationProperties(CS_ConnectionId, 
                                                                               CS_UserSessionId, 
                                                                               UserProperties.CS_APPLICATION)["startdoc"]);
   }
   else
      Response.Write("Your start document is not defined.");
}
catch(Exception ex)
{
    Response.Write(Server.HtmlEncode(ex.Message));
}

try
{
    //Add some properties in the a custom application called MyApp
    Dictionary<string, string> dic = new Dictionary<string, string>();
    dic.Add("MyApp.Data1", "Value 1"); 
    dic.Add("MyApp.Data2", "Value 2");
    UserProperties upo = new UserProperties();
    upo.SetProperty(CS_ConnectionId, CS_UserSessionId, dic);
    dic = upo.GetApplicationProperties(CS_ConnectionId, CS_UserSessionId, "MyApp");
    Response.Write("MyApp.Data1 value " + Server.HtmlEncode(dic["Data1"]) + "<br /> + Environment.NewLine);
    Response.Write("MyApp.Data2 value " + Server.HtmlEncode(dic["Data2"]) + "<br /> + Environment.NewLine);
}
catch (Exception ex)
{
    Response.Write(Server.HtmlEncode(ex.Message));
}

Try
    'Add some properties in the a custom application called MyApp
    Dim dic As New Dictionary(Of String,String)()
    dic.Add("MyApp.Data1", "Value 1")
    dic.Add("MyApp.Data2", "Value 2")
    Dim upo As New UserProperties()
    upo.SetProperty(CS_ConnectionId, CS_UserSessionId, dic)
    dic = upo.GetApplicationProperties(CS_ConnectionId, CS_UserSessionId, "MyApp")
    Response.Write("MyApp.Data1 value " & Server.HtmlEncode(dic("Data1")) & "<br /> & Environment.NewLine)
    Response.Write("MyApp.Data2 value " & Server.HtmlEncode(dic("Data2")) & "<br /> & Environment.NewLine)

Catch ex As Exception
    Response.Write(Server.HtmlEncode(ex.Message))
End Try

try
{
    //Add the properties in the a custom application called MyApp
    Dictionary<string, string> dic = new Dictionary<string, string>();
    dic.Add("MyApp.Data1", "Value 1"); 
    dic.Add("MyApp.Data2", "Value 2");
    UserProperties upo = new UserProperties();
    upo.SetProperty(CS_ConnectionId, CS_UserSessionId, "", Trustee.UserIdentifiers.None, dic);
    string data1 = "";
    using (StringReader sr = new StringReader(upo.GetProperty(CS_ConnectionId, 
                                                              CS_UserSessionId, 
                                                              "", 
                                                              Trustee.UserIdentifiers.None,
                                                              "MyApp.Data1")))
    {
        XmlReader XReader = XmlReader.Create(sr);
        if (XReader.ReadToFollowing("value"))
        {
            data1 = XReader.ReadElementContentAsString();
        }
    }
    string data2 = "";
    using (StringReader sr = new StringReader(upo.GetProperty(CS_ConnectionId, 
                                                              CS_UserSessionId, 
                                                              "", 
                                                              Trustee.UserIdentifiers.None,
                                                              "MyApp.Data2")))
    {
        XmlReader XReader = XmlReader.Create(sr);
        if (XReader.ReadToFollowing("value"))
        {
            data2 = XReader.ReadElementContentAsString();
        }
    }
    Response.Write("MyApp.Data1 value " + Server.HtmlEncode(data1) + "<br /> + Environment.NewLine);
    Response.Write("MyApp.Data2 value " + Server.HtmlEncode(data2) + "<br /> + Environment.NewLine);
}
catch (Exception ex)
{
    Response.Write(Server.HtmlEncode(ex.Message));
}

Try
    'Add the properties in the a custom application called MyApp
    Dim dic As New Dictionary(Of String,String)()
    dic.Add("MyApp.Data1", "Value 1")
    dic.Add("MyApp.Data2", "Value 2")
    Dim upo As New UserProperties()
    upo.SetProperty(CS_ConnectionId, CS_UserSessionId, "", Trustee.UserIdentifiers.None, dic)
    Dim data1 As String = ""
    Using sr As New StringReader(upo.GetProperty(CS_ConnectionId, _
                                                 CS_UserSessionId, _ 
                                                 "", _
                                                 Trustee.UserIdentifiers.None, _
                                                 "MyApp.Data1"))

        XmlReader XReader = XmlReader.Create(sr)
        If (XReader.ReadToFollowing("value") Then
            data1 = XReader.ReadElementContentAsString()
        End If
    End Using
    Dim data2 As String = ""
    Using sr as New StringReader(upo.GetProperty(CS_ConnectionId, _
                                                 CS_UserSessionId, _
                                                 "", _
                                                 Trustee.UserIdentifiers.None _
                                                 "MyApp.Data2")) 

        XmlReader XReader = XmlReader.Create(sr)
        If XReader.ReadToFollowing("value") Then
            data2 = XReader.ReadElementContentAsString()
        End If
    End Using
    Response.Write("MyApp.Data1 value " & Server.HtmlEncode(data1) & "<br /> & Environment.NewLine)
    Response.Write("MyApp.Data2 value " & Server.HtmlEncode(data2) & "<br /> & Environment.NewLine)

Catch ex As Exception
    Response.Write(Server.HtmlEncode(ex.Message))
End Try