Montana Center for Inclusive Education

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="true" ' Catalog="" ' Schema="" Dim MM_dirconn_STRING MM_dirconn_STRING = "DRIVER={SQL Server};SERVER=SQLCLUSTER1AGL\WEBFORMS;UID=d1r3ct;PWD=d1r3ct;DATABASE=directory" %> <% Dim rsFaculty Dim rsFaculty_cmd Dim rsFaculty_numRows Set rsFaculty_cmd = Server.CreateObject ("ADODB.Command") rsFaculty_cmd.ActiveConnection = MM_dirconn_STRING rsFaculty_cmd.CommandText = "SELECT A.Last, A.First, A.Room, A.BldgID, A.Phone, A.Salutation, A.Title, A.Web, A.Email, A.DeptID,A.Subjects, B.Bldg, B.BldgID, D.DeptName, D.DeptType, A.Degrees, A.StartYr FROM AZ A, Bldg B, Depts D WHERE (A.DeptID=D.DeptID) AND (A.BldgID=B.BldgID) AND (D.DeptID='56') ORDER BY A.Last" rsFaculty_cmd.Prepared = true Set rsFaculty = rsFaculty_cmd.Execute rsFaculty_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsFaculty_numRows = rsFaculty_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT rsFaculty.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsFaculty.MoveNext() Wend %>

<%=(rsFaculty.Fields.Item("Last").Value)%>, <%=(rsFaculty.Fields.Item("Salutation").Value)%> <%=(rsFaculty.Fields.Item("First").Value)%> <%=(rsFaculty.Fields.Item("Title").Value)%> "><%=(rsFaculty.Fields.Item("Email").Value)%>		<%=(rsFaculty.Fields.Item("Bldg").Value)%> <%=(rsFaculty.Fields.Item("Room").Value)%> <%=(rsFaculty.Fields.Item("Phone").Value)%>

<% rsFaculty.Close() Set rsFaculty = Nothing %>