%@ 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("