<%
Dim firstName
firstName = authenticateFirstName
If (firstName = "") or IsNull(firstName) or IsEmpty(firstName) Then
firstName = Request.Form("firstName")
End If
If (firstName = "") or IsNull(firstName) or IsEmpty(firstName) Then
firstName = Request.QueryString("firstName")
End If
'Response.Write("Registered email is :" & registeredEmail & "
")
'Check to see if passwords or emails are fine, redirect, otherwise...
If (registeredEmail<>"") AND (DateDiff("d",passwordUpdate,Now) <90) Then
'********* Route User Acording To Role ************
If UCase(Session("UserRoleID")) = "HR" Then
Response.Redirect("HRManager/start_hrm.asp")
ElseIf UCase(Session("UserRoleID")) = "AM" Then
Response.Redirect("AccountManager/start_am.asp")
ElseIf UCase(Session("UserRoleID")) = "BC" Then
Response.Redirect("BeneficiaryCorp/start_bc.asp")
ElseIf UCase(Session("UserRoleID")) = "ADMIN" Then
Response.Redirect("Admin/start_admin.asp")
ElseIf UCase(Session("UserRoleID")) = "BENEF" Then
Response.Redirect("Benef/start_benef.asp")
Else
%>
emvisa.com
Invalid Role
You have been given an invalid role. Please contact your E&M representative.
Logout
<%
End If
Else
%>
emvisa.com
<%
If ((registeredEmail="") OR IsNull(registeredEmail)) AND (DateDiff("d",passwordUpdate,Now) >90) Then
CreateForm 0, Session("UserRoleID")
ElseIf ((registeredEmail="") OR IsNull(registeredEmail))Then
CreateForm 1, Session("UserRoleID")
ElseIf (DateDiff("d",passwordUpdate,Now) >90) Then
CreateForm 2, Session("UserRoleID")
End If
End If
'Response.Write("email check " & email & "
")
'Response.Write("passwordupdate " & passwordUpdate & "
")
%>