<%@ Language=VBScript %> ENGR019-299 Student Roster <% Set DB = Server.CreateObject("ADODB.connection") DB.Open "ENGR019StudentsFall2000", "ENGR019Students", "ENGR019Students" SearchString = "SELECT * FROM q_AllStudentData ORDER BY LastName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>
ENGR019-299 Student Roster
<% while not DB_Results.eof %> <% DB_Results.MoveNext wend %>

First Name

Last Name

College

Major

Grade Level

E-Mail

Picture

<%=DB_Results("FirstName")%>

<%=DB_Results("LastName")%>

<%=DB_Results("College")%>

<%=DB_Results("Major")%>

<%=DB_Results("Grade")%>

<%=DB_Results("email")%>

<%ImageName = String(11-len(DB_Results("StudentID")),"0") & DB_Results("StudentID")%>