<%@ Language=VBScript %> COEN194-5-6 Student Roster <% Set DB = Server.CreateObject("ADODB.connection") DB.Open "COEN194-5-6Students2003" SearchString = "SELECT * FROM q_AllStudentData ORDER BY Project, LogName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>
COEN194-5-6 Student Roster

<% while not DB_Results.eof %> <% DB_Results.MoveNext wend %> <% SearchString = "SELECT * FROM q_NonCoenStudents ORDER BY Project" ' response.write SearchString & "
" Set NC_Results = DB.Execute(SearchString) %> <% while not NC_Results.eof %> <% NC_Results.MoveNext wend %>

LogName

First Name

Last Name

Major

Project

<%=DB_Results("LogName")%>

<%=DB_Results("FirstName")%>

<%=DB_Results("LastName")%>

COEN

<%=DB_Results("Project")%>

 

<%=NC_Results("FirstName")%>

<%=NC_Results("LastName")%>

<%=NC_Results("Major")%>

<%=NC_Results("Project")%>

<% DB_Results.MoveFirst NC_Results.MoveFirst %> <% while not DB_Results.eof %> <% if DB_Results("email") <> "" then %> <% else %> <% end if %> <% DB_Results.MoveNext wend %> <% while not NC_Results.eof %> <% if NC_Results("email") <> "" then %> <% else %> <% end if %> <% NC_Results.MoveNext wend %>

E-Mail

<%=DB_Results("email")%>

 

<%=NC_Results("email")%>