<% If Session("bLoggedIn") <> true and Session("bStatusCheck") <> true Then
'S.moseley - 12/15/2009 - added this code back - if "remember me" is checked on iMIS login then
'go to this page which has a meta refresh to come back here after saving the cookie we can read
'and log them in - the next block of code
Session("bStatusCheck") = true
Session("KCUrlReferrer") = Request.Url.AbsolutePath + "?" + Request.QueryString.ToString()
Response.redirect ("/knowledgecenter/Login/StatusCheck.asp")
End If %>
<% If not Session("bLoggedIn") Then
'iMIS public saves domain cookie - if cookie is there then they are logged in
Response.Write (" ")
Dim strKey
Dim strSubKey
For Each strKey In Request.Cookies
'Response.Write(strKey + " = " + Request.Cookies(strKey).Value.ToString() + "
")
If strKey = "ID" Then
Session("userID") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "EmailAddress" Then
Session("Email") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "FirstName" Then
Session("first_name") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "Lastname" Then
Session("last_name") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "CustomerTypeCode" Then
Session("Record_Type") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "InstID" Then
Session("InstID") = Request.Cookies(strKey).Value.ToString()
ElseIf strKey = "HRComplyID" Then
Session("HRComplyID") = Request.Cookies(strKey).Value.ToString()
End If
Next
if Session("userID") is nothing Then
Session("bLoggedIn") = false
Else
Session("bLoggedIn") = true
Session("password") = "cup@1999"
If Session("Record_Type") = "RK" Then
Session("instPassword") = "cup@1999"
End If
Response.redirect ("/knowledgecenter/index.aspx")
End If
End If %>
<% If Session("bLoggedIn") Then %>
KC Search
Search the Knowledge Center
<% Else %>
<% End If %>
Corporate Sponsors
<% If Session("bLoggedIn") = true Then %>
Help with a Search?
<% Else %>
<% End If %>