Academic Departments <% dim cnn ' Connection dim rst ' Recordset dim sqltext ' SQL Statement dim deptname ' Temporary Dept ID dim count ' Count of Departments Set cnn = Server.CreateObject("ADODB.Connection") Set rst = Server.CreateObject("ADODB.Recordset") 'open your connection using a connection string cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\Databases\DepartmentsTest2.mdb" sqltext = "SELECT * FROM [DepartmentInfo Query2] WHERE DepartmentType = 'Academic' ORDER BY DepartmentName" rst.Open sqltext,cnn,3,3 deptname = rst("DepartmentName") count = 0 do while not rst.eof %> <% rst.MoveNext loop rst.Close cnn.Close %> Department Name Staff Listing Department Head Department Phone "><%=rst("DepartmentName") %> "><%=rst("DepartmentName") %> Staff <%=rst("FirstName") & " " & rst("LastName") %> <%=rst("DepartmentPhone") %>