<%@ LANGUAGE="VBSCRIPT" %> Student Information <% 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 AddressStudent Name
"><% =RS("EmailAddress").value %> <% =RS("StudentName").value %>
<% StudentDirectoryDB.Close %>