<% Rem ********************************************************* Rem * Creating and opening a connection to the LCA database * Rem ********************************************************* Set gcnCon = Server.CreateObject("ADODB.Connection") gcnCon.Open strConnexion Rem ************************************************* Rem * Creating and filling up the recordset objects * Rem ************************************************* 'Set grsHead = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Professor' AND (LastName='Hubaux' OR LastName='Le Boudec' OR LastName = 'Wegmann') AND StillActive = TRUE ORDER BY LastName") 'Set grsProf = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Professor' AND (NOT(LastName='Hubaux' OR LastName='Le Boudec')) AND StillActive = TRUE ORDER BY LastName") Set grsProf = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Professor' AND StillActive = TRUE ORDER BY LastName") Set grsSec = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Secretary' AND StillActive = TRUE ORDER BY LastName") Set grsMan = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'System manager' AND StillActive = TRUE ORDER BY LastName") Set grsSr = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Senior researcher' AND StillActive = TRUE ORDER BY LastName") Set grsAss = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Assistant' AND StillActive = TRUE ORDER BY LastName") Set grsOther = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL, OfficeLocation, Extension, EmailName FROM Members WHERE Lab = 'LCA' AND TitleICA = 'Other' AND StillActive = TRUE ORDER BY LastName") Set grsOld = gcnCon.Execute("SELECT LastName, FirstName, HomePageURL FROM Members WHERE Lab = 'LCA' AND StillActive = FALSE ORDER BY LastName") %>

Members
<% Rem ******************************* Rem * Printing out the professors * Rem ******************************* %> <% While (grsProf.EOF <> TRUE) %> <% grsProf.MoveNext WEnd %> <% Rem ******************************** Rem * Printing out the secretaries * Rem ******************************** %> <% While (grsSec.EOF <> TRUE) %> <% grsSec.MoveNext WEnd %> <% Rem *************************************** Rem * Printing out the senior researchers * Rem *************************************** %> <% While (grsSr.EOF <> TRUE) %> <% grsSr.MoveNext WEnd %> <% Rem ************************************ Rem * Printing out the system managers * Rem ************************************ %> <% While (grsMan.EOF <> TRUE) %> <% grsMan.MoveNext WEnd %> <% Rem ******************************* Rem * Printing out the assistants * Rem ******************************* %> <% While (grsAss.EOF <> TRUE) %> <% grsAss.MoveNext WEnd %> <% Rem ****************************** Rem * Printing out other members * Rem ****************************** %> <% If (grsOther.EOF <> TRUE) Then %> <% End If %> <% While (grsOther.EOF <> TRUE) %> <% grsOther.MoveNext WEnd %> <% Rem ************************************* Rem * Printing out the previous members * Rem ************************************* %>
 
Professors
 
    " target="ParWin"> Prof. <% =grsProf("LastName") %> <% Response.Write(" ") %> <% =grsProf("FirstName") %> <% =grsProf("OfficeLocation") %>   <% =grsProf("Extension") %>   "><% =grsProf("EmailName") %>
 
Secretaries
 
    " target="ParWin"> <% =grsSec("LastName") %> <% Response.Write(" ") %> <% =grsSec("FirstName") %> <% =grsSec("OfficeLocation") %>   <% =grsSec("Extension") %>   "><% =grsSec("EmailName") %>
 
Senior researchers
 
    " target="ParWin"> <% =grsSr("LastName") %> <% Response.Write(" ") %> <% =grsSr("FirstName") %> <% =grsSr("OfficeLocation") %>   <% =grsSr("Extension") %>   "><% =grsSr("EmailName") %>
 
System managers
 
    " target="ParWin"> <% =grsMan("LastName") %> <% Response.Write(" ") %> <% =grsMan("FirstName") %> <% =grsMan("OfficeLocation") %>   <% =grsMan("Extension") %>   "><% =grsMan("EmailName") %>
 
Research Assistants
 
    " target="ParWin"> <% =grsAss("LastName") %> <% Response.Write(" ") %> <% =grsAss("FirstName") %> <% =grsAss("OfficeLocation") %>   <% =grsAss("Extension") %>   "><% =grsAss("EmailName") %>
 
Other people working at LCA
 
    " target="ParWin"> <% =grsOther("LastName") %> <% Response.Write(" ") %> <% =grsOther("FirstName") %> <% =grsOther("OfficeLocation") %>   <% =grsOther("Extension") %>   "><% =grsOther("EmailName") %>
 
Previous members

 <% While (grsOld.EOF <> TRUE) %> <%if grsOld("HomePageURL") <> "" then %> " target="ParWin"> <%end if%> <% =grsOld("LastName") %> <% Response.Write(" ") %> <% =grsOld("FirstName") %>, <% grsOld.MoveNext WEnd %>
<% grsProf.Close grsSec.Close grsMan.Close grsSr.Close grsAss.Close grsOther.Close grsOld.Close gcnCon.Close Set grsProf = Nothing Set grsSec = Nothing Set grsMan = Nothing Set grsSr = Nothing Set grsAss = Nothing Set grsOther = Nothing Set grsOld = Nothing Set gcnCon = Nothing %>

J-P Dupertuis (jean-pierre.dupertuis@epfl.ch)
Generated on-the-fly: <% Dim MonthName(12) MonthName(1) = "January" MonthName(2) = "February" MonthName(3) = "March" MonthName(4) = "April" MonthName(5) = "May" MonthName(6) = "June" MonthName(7) = "July" MonthName(8) = "August" MonthName(9) = "September" MonthName(10) = "October" MonthName(11) = "November" MonthName(12) = "December" Response.Write(MonthName(Month(Date))) Response.Write(" ") Response.Write(Day(Date)) Response.Write(", ") Response.Write(Year(Date)) %>