<%@ LANGUAGE="VBSCRIPT" %> <% Set StudentDirectoryDB=Server.CreateObject("ADODB.Connection") StudentDirectoryDB.Open sDSN, optimistic set RS = StudentDirectoryDB.Execute("SELECT * FROM Students;") %> <% While NOT RS.EOF %> <% RS.MoveNext %> <% wend %>

Electronic Mail Address	Student Name	Classification
"><% =RS("EmailAddress").value %>	<% =RS("StudentName").value %>	<% if RS("StudentClassification")="FR" then %>Freshman <% else if RS("StudentClassification")="SO" then %>Sophomore <% else if RS("StudentClassification")="JR" then %>Junior <% else if RS("StudentClassification")="SR" then %>Senior <% end if end if end if end if%>

<% StudentDirectoryDB.Close %>