<%@ Language=VBScript %> COEN001 Student Roster

COEN 001 - Understanding Information Technology

Instructor: Dr. Neil R. Quinn Jr.
<% Set DB = Server.CreateObject("ADODB.connection") DB.Open "COEN001StudentsFall2002", "Coen001", "coen001" SearchString = "SELECT * FROM q_AllStudentData ORDER BY LastName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>

Student Roster
<% while not DB_Results.eof %> <% DB_Results.MoveNext wend %>

First Name

Last Name

E-Mail

Major

Grade Level

Picture

<%=DB_Results("FirstName")%>

<%=DB_Results("LastName")%>

"><%=DB_Results("email")%>

<%=DB_Results("Major")%>

<%=DB_Results("Grade")%>

.jpg">