<%@ LANGUAGE="VBScript" %>
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
'
' check last update time
'
SQLStmt="select to_char(last_updated,'MM/DD/YYYY HH24:MI:SS') udate from secretary.shift_experts"
Set RS = Connection.Execute(SQLStmt)
If Not IsNull(RS("udate")) Then
udate=RS("udate")
Else
udate=""
End If
Set RS=nothing
'
' get list of people, including their phone numbers
'
SQLStmt = " select pc.firstname,pc.lastname,se.subsystem, "
SQLStmt = SQLStmt & " to_char(last_updated,'MM/DD/YYYY HH24:MI:SS') udate, "
SQLStmt = SQLStmt & " pc.homephone,pc.mobilephone,pc.businessphone,pc.pager from secretary.shift_experts se, "
SQLStmt = SQLStmt & " secretary.phobos_contacts pc "
SQLStmt = SQLStmt & " where se.lastname=pc.lastname "
SQLStmt = SQLStmt & " and se.firstname=pc.firstname "
SQLStmt = SQLStmt & " order by subsystem "
' Response.write(SQLStmt & " ")
Set RS = Connection.Execute(SQLStmt)
%>
Shift Expert List
Phobos Shift Experts
<%If udate<>"" Then%>
Last updated on <%=udate%>
<%End If%>
SubSystem
Expert
Office
Cell
Pager
Home
<%
Do While Not RS.EOF
firstname=RS("firstname")
lastname=RS("lastname")
fname=firstname & " " & lastname
subsystem=CStr(RS("subsystem"))
If Not IsNull(RS("businessphone")) Then
office=CStr(RS("businessphone"))
Else
office=" "
End If
If Not IsNull(RS("homephone")) Then
home=CStr(RS("homephone"))
Else
home=" "
End If
If Not IsNull(RS("mobilephone")) Then
cell=CStr(RS("mobilephone"))
Else
cell=" "
End If
If Not IsNull(RS("pager")) Then
pager=CStr(RS("pager"))
Else
pager=" "
End If
Response.write("