<%
Option Explicit
Dim Conn
Dim CmdEmps
Dim RSEmps
set conn = server.createobject ("adodb.connection")
conn.open "EmpsDatabase", "Admin", ""
Set CmdEmps = Server.CreateObject("ADODB.Command")
Set CmdEmps.ActiveConnection = conn
CmdEmps.CommandText = "select Count(EmpID) as TheCount" _
  & " from tblEmps where DepartmentID = 1"
set RSEmps = CmdEMps.Execute
Response.Write "Cakowita liczba pracownikw Wydzialu 1 to: " _
  & RSEmps("TheCount")
%>
