<% Response.Expires = -1 Set oMgr = Server.CreateObject("Passport.Manager.1") If oMgr.fromNetworkServer Then redirURL = "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME") Response.Redirect(redirURL) End If Function GetProperDate (strDate) getProperDate = Month(strDate) & "/" & Day(strDate) & "/" & Year(strDate) End Function %> Passport Simple Test <% If oMgr.IsAuthenticated(10000,FALSE) <> false Then Dim sEvFlag ' Email Validated Flag Dim sHaFlag ' Hotmail Activated Flag Dim sPrFlag ' Password Reset Flag Dim sWcuFlag ' Wallet Card Upload Flag Dim sHbFlag ' Hotmail Blocked Flag Dim sKcsFlag ' KIDS PP Consent Status Flag Dim sKctFlag ' KIDS PP Consent Type Flag If (oMgr.Profile("Flags") And 1) Then sEvFlag = "1" Else sEvFlag = "0" End If If (oMgr.Profile("Flags") And 2) Then sHaFlag = "1" Else sHaFlag = "0" End If If (oMgr.Profile("Flags") And 4) Then sPrFlag = "1" Else sPrFlag = "0" End If If (oMgr.Profile("Flags") And 8) Then sWcuFlag = "1" Else sWcuFlag = "0" End If If (oMgr.Profile("Flags") And 16) Then sHbFlag = "1" Else sHbFlag = "0" End If If (oMgr.Profile("Flags") And 32) Then sKcsFlag = "1" Else sKcsFlag = "0" End If If (oMgr.Profile("Flags") And 64) Then sKctFlag = "1" Else sKctFlag = "0" End If %> You are authenticated <%=Server.HTMLEncode(oMgr("nickname"))%>!!

            TicketAge 
      TimeSinceSignin 

        Accessibility "                          SIZE="50">
            Birthdate "                              SIZE="50">
  Birthdate Precision "                         SIZE="50">
                 City "                                   SIZE="50">
            Directory "                              SIZE="50">
                Flags "                                  SIZE="50">
               Gender "                                 SIZE="50">
  Language Preference "                        SIZE="50">
       Member ID High "                           SIZE="50">
        Member ID Low "                            SIZE="50">
          Member Name "                             SIZE="50">
            Nick Name "            SIZE="50">
      Preferred Email "      SIZE="50">
      Profile Version "                         SIZE="50">
               Wallet "                                 SIZE="50">
          Postal Code "                             SIZE="50">
              Country "                                SIZE="50">
               Region "                                 SIZE="50">
    

     Email Validated (bit #1) 
   Hotmail Activated (bit #2) 
      Password Reset (bit #3) 
  Wallet Card Upload (bit #4) 
     Hotmail Blocked (bit #5) 
  KPP Consent Status (bit #6) 
    KPP Consent Type (bit #7)
<% ElseIf oMgr.HasTicket Then %> Your ticket is stale. (<%=oMgr.TicketAge%> seconds old) ">refresh <%Else%> You are not authenticated. Click the logo to login.

<%End If%> <%=oMgr.logoTag(Server.URLEncode("http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME")),10000,FALSE,"nada",&H0409)%>