<%@ Page Language="VB" Debug="true"%> <%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Data" %> <% Dim con As New SqlConnection("Server=ameliorate.ads.wsc.ma.edu;Initial Catalog=wsc; User ID=events; Password=events@wsc") Dim cmd As New SqlCommand("prc_AcadDepts", con) Dim dtr As SqlDataReader cmd.CommandType = CommandType.StoredProcedure con.Open() dtr = cmd.ExecuteReader() While dtr.Read() %> <% End While dtr.Close() con.Close() %>

Department Name	Staff Listing	Chair	Phone
"><%=dtr("deptName")%>	"><%=dtr("deptName")%> Staff	<%= dtr("firstName") & " " & dtr("lastName") %>	413-572-<%= dtr("deptPhone") %>