|
<%
Dim lRole
If Len(fDecrypt(Request.Cookies(eUserRole))) < 1 Then
Response.Cookies(eUserRole).Domain = ".consusgroup.com"
Response.Cookies(eUserRole) = 0
lRole = 0
Else
lRole = fDecrypt(Request.Cookies(eUserRole))
End If
If lRole < 1 Then
response.Write "Sign In"
Else
response.Write "Sign Out"
End If
%>
|