1 files changed, 46 insertions, 0 deletions
diff --git a/src/OpenID/OpenIdRelyingPartyWebFormsVB/Code/State.vb b/src/OpenID/OpenIdRelyingPartyWebFormsVB/Code/State.vb
new file mode 100644
index 0000000..e00cb4f
--- /dev/null
+++ b/src/OpenID/OpenIdRelyingPartyWebFormsVB/Code/State.vb
@@ -0,0 +1,46 @@
+Imports DotNetOpenAuth.OpenId.Extensions.ProviderAuthenticationPolicy
+Imports DotNetOpenAuth.OpenId.Extensions.SimpleRegistration
+Imports DotNetOpenAuth.OpenId.Extensions.AttributeExchange
+
+Public Class State
+	Public Shared Property ProfileFields() As ClaimsResponse
+		Get
+			Return HttpContext.Current.Session("ProfileFields")
+		End Get
+		Set(ByVal value As ClaimsResponse)
+			HttpContext.Current.Session("ProfileFields") = value
+		End Set
+	End Property
+
+	Public Shared Property FetchResponse() As FetchResponse
+		Get
+			Return HttpContext.Current.Session("FetchResponse")
+		End Get
+		Set(ByVal value As FetchResponse)
+			HttpContext.Current.Session("FetchResponse") = value
+		End Set
+	End Property
+
+	Public Shared Property FriendlyLoginName() As String
+		Get
+			Return HttpContext.Current.Session("FriendlyLoginName")
+		End Get
+		Set(ByVal value As String)
+			HttpContext.Current.Session("FriendlyLoginName") = value
+		End Set
+	End Property
+
+	Public Shared Property PapePolicies() As PolicyResponse
+		Get
+			Return HttpContext.Current.Session("PapePolicies")
+		End Get
+		Set(ByVal value As PolicyResponse)
+			HttpContext.Current.Session("PapePolicies") = value
+		End Set
+	End Property
+
+	Public Shared Sub Clear()
+		FriendlyLoginName = Nothing
+	End Sub
+
+End Class