Public Function FormWithFields(EmpID, FormAction, PostGet)
  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 rekordu pracownika!"
  End If
  FormWithFields = "<FORM ACTION=""" & FormAction _
    & """ METHOD=""" & PostGet & """>"
  FormWithFields = FormWithFields & _
    "<INPUT TYPE=""hidden"" NAME=""EmpID"" VALUE=""" & RSEmp("EmpID") & """>"
  FormWithFields = FormWithFields _
     & "Imi: <BR><INPUT TYPE=""text"" NAME=""FirstName"" VALUE=""" _
     & RSEmp("FirstName") & """><P>"
  FormWithFields = FormWithFields _
     & "Nazwisko: <BR><INPUT TYPE=""text"" NAME=""LastName"" VALUE=""" _
     & RSEmp("LastName") & """><P>"
  FormWithFields = FormWithFields _
     & "ID wydziau: <BR><INPUT TYPE=""text"" NAME=""DepartmentID"" VALUE=""" _
     & RSEmp("DepartmentID") & """><P>"
  FormWithFields = FormWithFields _
     & "Wynagrodzenie: <BR><INPUT TYPE=""text"" NAME=""Salary"" VALUE=""" _
     & RSEmp("Salary") & """><P>"
  FormWithFields = FormWithFields _
     & "Data urodzenia: <BR><INPUT TYPE=""text"" NAME=""BirthDate"" VALUE=""" _
     & RSEmp("BirthDate") & """><P>"
  FormWithFields = FormWithFields _
     & "<INPUT TYPE=""submit"" NAME=""Submit""></FORM>"
End Function
