<%@ Language=VBScript %> COEN288 Student Roster <% Set DB = Server.CreateObject("ADODB.connection") DB.Open "COEN288StudentsWinter2004", "COEN288Students", "COEN288Students" SearchString = "SELECT * FROM q_AllStudentData ORDER BY LogName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>
COEN288 Student Roster
<% while not DB_Results.eof %> <% QueryString = "SELECT * FROM q_EthicsSurveyTaken WHERE StudentID = " & DB_Results("StudentID") ' response.write InsertString & "
" set ES_Results = DB.Execute(QueryString) if ES_Results("SumOfQuestionValue") > 0 then %> <% else %> <% end if %> <% DB_Results.MoveNext wend %>

LogName

First Name

Last Name

Ethics Survey Taken

<%=DB_Results("LogName")%>

<%=DB_Results("FirstName")%>

<%=DB_Results("LastName")%>

Yes

 No

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

E-Mail

<%=DB_Results("email")%>