<%@ Language=VBScript %>
COEN001 Student Group-Project Groups
<%
Set DB = Server.CreateObject("ADODB.connection")
DB.Open "COEN001StudentsFall2002", "Coen001", "coen001"
%>
COEN001 Student Project Presentations
|
|
|
|
Presentation # |
First Name |
Last Name |
<%
GroupCounter = 0
SearchString = "SELECT * FROM q_AllStudentData ORDER BY FirstName"
' response.write SearchString & "
"
Set DB_Results = DB.Execute(SearchString)
while not DB_Results.EOF
GroupCounter = GroupCounter + 1
%>
|
<% =GroupCounter %> |
<%=DB_Results("FirstName")%> |
<%=DB_Results("LastName")%> |
<% DB_Results.MoveNext
wend
%>
|