<%@ LANGUAGE="VBScript" %>
<%
Dim Fullname1()
Dim Fullname2()
'
' get the name of the parent of this script
'
parent_url=Request.ServerVariables("HTTP_REFERER")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLstmt= " select substr(firstname,1,1) || '.' || ' ' || lastname fullname from secretary.phobos_contacts "
SQLstmt= SQLstmt & " where notes like '%shift%' order by lastname"
Set RS= Connection.Execute(SQLstmt)
' response.write(SQLStmt)
ReDim Preserve Fullname1(0)
ReDim Preserve Fullname2(0)
Fullname1(0)="Choose from the list"
Fullname2(0)=""
nnames=0
Do While Not RS.EoF
nnames=nnames+1
ReDim Preserve Fullname1(nnames)
ReDim Preserve Fullname2(nnames)
Fullname1(nnames)=CStr(RS("fullname"))
Fullname2(nnames)=CStr(RS("fullname"))
RS.MoveNext
Loop
Set RS=nothing
'
%>
Register for Shift