<%@ LANGUAGE="VBSCRIPT" %> <% Set StudentDirectoryDB=Server.CreateObject("ADODB.Connection") StudentDirectoryDB.Open sDSN, optimistic set RS = StudentDirectoryDB.Execute("SELECT * FROM Students;") %> <% While NOT RS.EOF %> <% DisplayClassification = "n/a" %> <% if RS("StudentClassification")="FR" then DisplayClassification="Freshman" end if%> <% if RS("StudentClassification")="SO" then DisplayClassification="Sophomore" end if%> <% if RS("StudentClassification")="JR" then DisplayClassification="Junior" end if%> <% if RS("StudentClassification")="SR" then DisplayClassification="Senior" end if%> <% RS.MoveNext %> <% wend %>

Electronic Mail Address	Student Name	Classification
"><% =RS("EmailAddress").value %>	"><% =RS("StudentName").value %>	<% =DisplayClassification %>

<% StudentDirectoryDB.Close %>