<%@ Language=VBScript %> ENVS-145 Student Roster Spring 2004 <% Set DB = Server.CreateObject("ADODB.connection") DB.Open "ENVS145StudentsSpring2004", "ENVS145Students", "ENVS145Students" SearchString = "SELECT * FROM e_mail ORDER BY LogName" ' response.write SearchString & "
" Set DB_Results = DB.Execute(SearchString) %>
COEN120 Student Roster
<% while not DB_Results.eof %> <% DB_Results.MoveNext wend %>

LogName

First Name

Last Name

<%=DB_Results("LogName")%>

<%=DB_Results("FirstName")%>

<%=DB_Results("LastName")%>
<% DB_Results.MoveFirst %> <% while not DB_Results.eof %> <% if DB_Results("e-mail") <> "" then %> <% else %> <% end if %> <% DB_Results.MoveNext wend %>

E-Mail

<%=DB_Results("e-mail")%>