Administrative Departments
Department Name |
Staff Listing |
Department Head |
Department Phone |
<% 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 = 'Administrative' ORDER BY DepartmentName"
rst.Open sqltext,cnn,3,3
deptname = rst("DepartmentName")
count = 0
do while not rst.eof
%>
"><%=rst("DepartmentName") %> |
"><%=rst("DepartmentName") %> Staff |
<%=rst("FirstName") & " " & rst("LastName") %> |
<%=rst("DepartmentPhone") %> |
<% rst.MoveNext
loop
rst.Close
cnn.Close
%>
|