Public Function EmpInfo(EmpID)
  If IsNumeric(EmpID) = False Then
    Err.Raise vbObjectError + 1, "SampleServer", _
      "Identyfikator pracownika musi by liczb!"
  End If
  Dim Conn As New ADODB.Connection
  Dim RSEmp As ADODB.Recordset
  Conn.Open "EmpsDatabase", "Admin", ""
  Set RSEmp = Conn.Execute("select * from tblEmps where " _
    & "EmpID = " & EmpID)
  If RSEmp.EOF Then
    Err.Raise vbObjectError + 2, "SampleServer", _
      "Nie znaleziono wpisu pracownika!"
  End If
  EmpInfo = "ID pracownika: " & RSEmp("EmpID") & "<BR>"
  EmpInfo = EmpInfo & "Imi: " & RSEmp("FirstName") & "<BR>"
  EmpInfo = EmpInfo & "Nazwisko: " & RSEmp("LastName") & "<BR>"
  EmpInfo = EmpInfo & "Wydzia: " & RSEmp("DepartmentID") & "<BR>"
  EmpInfo = EmpInfo & "Wynagrodzenie: " & FormatCurrency(RSEmp("Salary")) & "<BR>"
  EmpInfo = EmpInfo & "Data urodzenia: " & RSEmp("BirthDate") & "<BR>"
End Function
