<%@ LANGUAGE="VBScript" %> <% Dim Letters(30) Dim If_letter(30) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "SELECT distinct substr(lastname,1,1) fletter " SQLStmt = SQLStmt & "FROM secretary.phobos_contacts WHERE notes LIKE '%web%'" SQLStmt = SQLStmt & "ORDER BY fletter " Set RSfletter = Connection.Execute(SQLStmt) SQLStmt = "SELECT firstname,middlename,lastname,suffix " SQLStmt = SQLStmt & "FROM secretary.phobos_contacts WHERE notes LIKE '%web%'" SQLStmt = SQLStmt & "ORDER BY lastname " Set RS = Connection.Execute(SQLStmt) %> Complete List of Collaborators [../../template_head.htm]

[../../template.htm]

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) 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.asp?Lastname=" & lastname & "&Firstname=" & firstname %>

<% %>

<%= person_name %> <% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>

<% =CurrentRecord %>

collaborators

<% Connection.Close %>