<% Rem ********************************************************* Rem * Creating and opening a connection to the LCA database * Rem ********************************************************* Set gcnCon = Server.CreateObject("ADODB.Connection") 'gcnCon.Open "dsn=ICA_Database" gcnCon.Open strConnexion Rem ************************************************ Rem * Creating and filling up the recordset object * Rem ************************************************ Set grsMembers = gcnCon.Execute("SELECT MembersID, FirstName, LastName FROM Members WHERE StillActive = TRUE ORDER BY LastName") Set grsStudentProjectLevels = gcnCon.Execute("SELECT * FROM StudentProjectLevels ORDER BY LevelID") Set grsStudentProjectCategories = gcnCon.Execute("SELECT * FROM StudentProjectCategories ORDER BY CategoryName") %>
LCA Student Project Selection

Please, specify a query to get a list of projects, which fits best to your needs.

Lab: NOTE: If you choose a specific Lab, the "Responsible" record will not be used
Level:
Domain:
Keyword:
Status:
Responsible:
<% grsMembers.Close grsStudentProjectLevels.Close grsStudentProjectCategories.Close gcnCon.Close Set grsMembers = Nothing Set grsStudentProjectLevels = Nothing Set grsStudentProjectCategories = 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)) %>