<%
Option Explicit
Dim MyObject
Dim EmpRecords
Set MyObject = Server.CreateObject("SampleServer.Employees")
Set EmpRecords = MyObject.GetAllEmployees
Do Until EmpRecords.EOF
  Response.Write "<B>Pracownik: </B>" & EmpRecords("FirstName") & " " _
  & EmpRecords("LastName") & "<P>"
  EmpRecords.MoveNext
Loop
%>
