|
Overview of Project
Brookhaven Info
Contacting Collaboration
Schedules
Pictures
Publications
Presentations
Computing
Phobos Twiki
New: HI
Collision Animations
Mirror sites
Copyright 2006 by the Phobos Collaboration. All rights reserved.
Contact webmaster with
questions or comments.
|
|
Internal Phobos Collaborators List
<%
For j=1 To 26
Letters(j)=Chr(j+64)
If_letter(j)=0
Next
istart=1
Do While Not RSfletter.EOF
For j=istart To 26
If Letters(j)=RSfletter("fletter") Then
If_letter(j)=1
Exit For
End If
Next
istart=j+1
RSfletter.MoveNext
Loop
For j=1 to 26
If If_letter(j)=0 Then
Response.Write(Cstr(Letters(j)) & " ")
Else
Response.Write("" & Cstr(Letters(j)) & " ")
End If
Next
%>
<%
CurrentRecord = 0
Old_first_letter=""
Do While CheckRS(RS)
notes=CStr(RS("notes"))
ifshift=instr(notes,"shift")>0
If ifshift Then
shiftstar="."
Else
shiftstar=""
End If
First_Letter=Left(Cstr(RS("Lastname")),1)
If First_Letter<>Old_First_Letter Then
Response.Write("" & " ")
Old_First_Letter=First_Letter
End If
person_name= RS("Firstname") & " " & RS("Middlename") & " " & RS("Lastname") & " " & RS("Suffix")
lastname=CStr(RS("Lastname"))
firstname=CStr(RS("Firstname"))
lastname=replace(lastname," ","%20")
firstname=replace(firstname," ","%20")
person_link= "Phobos_User_Internal.asp?Lastname=" & lastname & "&Firstname=" & firstname
%>
| <%
%>
<%=shiftstar%><%= person_name %> <%
RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%> |
| <% =CurrentRecord %> |
collaborators |
|
