<%@ LANGUAGE="VBScript" %>
<%
'
' Check if people registered for shift/logbook writing
'
operator1=""
operator2=""
firstname1=""
firstname2=""
registered=0
If Request.Cookies("PHOBOSPORTAL").HasKeys Then
strCookie1=Request.Cookies("PHOBOSPORTAL")("OPERATOR1")
If Not (IsNull(strCookie1) OR ( Len(strCookie1) = 0)) Then
registered=1
operator1=CStr(strCookie1)
firstname1=CStr(Request.Cookies("PHOBOSPORTAL")("FIRSTNAME1"))
strCookie2=Request.Cookies("PHOBOSPORTAL")("OPERATOR2")
If Not (IsNull(strCookie2) OR ( Len(strCookie2) = 0)) Then
operator2=CStr(strCookie2)
firstname2=CStr(Request.Cookies("PHOBOSPORTAL")("FIRSTNAME2"))
End If
End If
End if
If Firstname1<>"" Then
Fullname1=Ucase(Left(Firstname1,1)) & ". " & operator1
Else
Fullname1=operator1
End If
If Firstname2<>"" Then
Fullname2=Ucase(Left(Firstname2,1)) & ". " & operator2
Else
Fullname2=operator2
End If
operator=Fullname1
If Fullname2<>"" Then
operator = operator & " and " & Fullname2
End If
'
%>
Add TLD Positions
<%If registered=1 Then%>