nature
08-19-2004, 11:39 AM
How can I compile the following code into a DLL?
I've tried all kinds of things to no avail. Thanks for any help you can provide.
function IsAuthenticated() as boolean
Dim objUserIdentity As FormsIdentity
Dim objTicket As FormsAuthenticationTicket
'objUserIdentity = User.Identity
dim blnReturn as boolean
If page.User.Identity.IsAuthenticated Then
if page.User.Identity.name = session("strHostEmail") or session("strRole") = "A" then
blnReturn = true
else
blnReturn = false
end if
lblLoginError.visible = false
blnReturn = true
' response.write("session="&Session( "strSNRole" ) )
else
'response.write("not authenticated")
blnReturn = false
end if
return blnReturn
end function
I've tried all kinds of things to no avail. Thanks for any help you can provide.
function IsAuthenticated() as boolean
Dim objUserIdentity As FormsIdentity
Dim objTicket As FormsAuthenticationTicket
'objUserIdentity = User.Identity
dim blnReturn as boolean
If page.User.Identity.IsAuthenticated Then
if page.User.Identity.name = session("strHostEmail") or session("strRole") = "A" then
blnReturn = true
else
blnReturn = false
end if
lblLoginError.visible = false
blnReturn = true
' response.write("session="&Session( "strSNRole" ) )
else
'response.write("not authenticated")
blnReturn = false
end if
return blnReturn
end function