<%@ Language=VBScript %>

ENGR 019/301 - Ethics in Technology

Instructor: Dr. Neil R. Quinn Jr.

Student Web Pages

<% Set DB = Server.CreateObject("ADODB.connection") DB.Open "ENGR019StudentsWinter2002", "ENGR019Students", "ENGR019Students" SearchString = "SELECT * FROM q_AllStudentData ORDER BY LastName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>

<% while not DB_Results.eof %> /ResearchPaper.htm"><% =DB_Results("LogName") %> || <% DB_Results.MoveNext wend %>