<%@ 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
'
%>
TLD Installation
<%If registered=1 Then%>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLstmt= " select position,x,y,z,description from phoffline.tld_positions order by position"
Set RS= Connection.Execute(SQLstmt)
' response.write(SQLStmt)
ReDim Preserve position(0)
ReDim Preserve position_text(0)
position(0)=0
position_text(0)="Choose From List"
num_pos=0
Do While Not RS.EoF
num_pos=num_pos+1
ReDim Preserve position(num_pos)
ReDim Preserve position_text(num_pos)
position(num_pos)=CInt(RS("position"))
position_text(num_pos)=CStr(RS("position")) & " (x=" & CStr(RS("x")) & ",y=" & CStr(RS("y")) & ",z=" & CStr(RS("z")) & ") " & CStr(RS("description"))
RS.MoveNext
Loop
SQLstmt= " select order_set,id from phoffline.tld_data where startdate is null order by order_set,id"
Set RS= Connection.Execute(SQLstmt)
' response.write(SQLStmt)
ReDim Preserve osid(0)
ReDim Preserve os(0)
ReDim Preserve id(0)
osid(0)="Choose From List"
os(0)=""
id(0)=""
num_id=0
Do While Not RS.EoF
num_id=num_id+1
ReDim Preserve osid(num_id)
ReDim Preserve os(num_id)
ReDim Preserve id(num_id)
osid(num_id)=CStr(RS("order_set")) & ": " & CStr(RS("id"))
os(num_id)=CStr(RS("order_set"))
id(num_id)=CStr(RS("id"))
RS.MoveNext
Loop
Connection.Close
Set Connection=nothing
Set RS=nothing
'
%>