<%@ 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
'
%>
New TLD Entry
<%If registered=1 Then%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLstmt= "select order_set, to_char(min(starttime),'MM/DD/YYYY') starttimetext, to_char(max(stoptime),'MM/DD/YYYY') stoptimetext from"
SQLstmt= SQLstmt & " ((select order_set, min(startdate) starttime, max(startdate) stoptime from phoffline.tld_data group by order_set)"
SQLstmt= SQLstmt & " union"
SQLstmt= SQLstmt & " (select order_set, min(stopdate) starttime, max(stopdate) stoptime from phoffline.tld_data group by order_set))"
SQLstmt= SQLstmt & " group by order_set order by order_set"
Set RS= Connection.Execute(SQLstmt)
' response.write(SQLStmt)
num_os=-1
Do While Not RS.EoF
num_os=num_os+1
ReDim Preserve os(num_os)
ReDim Preserve os_str(num_os)
os(num_os)=CInt(RS("order_set"))
os_str(num_os)=CStr(RS("order_set")) & " (" & CStr(RS("starttimetext")) & " - " & CStr(RS("stoptimetext")) & ")"
RS.MoveNext
Loop
num_os=num_os+1
ReDim Preserve os(num_os)
ReDim Preserve os_str(num_os)
os(num_os)=1+os(num_os-1)
os_str(num_os)=CStr(os(num_os)) & " (New Order Set)"
Connection.Close
Set Connection=nothing
Set RS=nothing
'
%>