<%
Option Explicit
Dim MyObject
Dim TheID
Set MyObject = Server.CreateObject("SampleServer.Employee")
TheID = MyObject.AddEmployee("Kowalski", "Jan", "drugi", 65000, "45-04-04")
Response.Write TheID
%>
