<%
Option Explicit
Dim MyObject
Dim TheEmpObject
Set MyObject = Server.CreateObject("SampleServer.Employee")
MyObject.DeleteEmployee 3
Set TheEmpObject = MyObject.GetEmployee (3)
Response.Write "ID pracownika: " & TheEmpObject("EmpID") & "<BR>"
Response.Write "Imi: " & TheEmpObject("FirstName") & "<BR>"
Response.Write "Nazwisko: " & TheEmpObject("LastName") & "<BR>"
Response.Write "Wydzia: " & TheEmpObject("DepartmentID") & "<BR>"
Response.Write "Wynagrodzenie: " & TheEmpObject("Salary") & "<BR>"
Response.Write "Data urodzenia: " & TheEmpObject("BirthDate") & "<BR>"
%>
