<%
Option Explicit
Dim MyObject
Dim TheEmpObject
Set MyObject = Server.CreateObject("SampleServer.Employee")
MyObject.EditEmployee 11, "Kowalski", "Jan", 3, 60000, "45-04-04"
Set TheEmpObject = MyObject.GetEmployee (11)
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: " & FormatCurrency(TheEmpObject("Salary")) & "<BR>"
Response.Write "Data urodzenia: " & TheEmpObject("BirthDate") & "<BR>"
%>
