<%
Option Explicit
On Error Resume Next
Response.Write FirstName("Jan")
If Err.Number <> 0 Then
  Response.Write Err.Number & "<P>"
  Response.Write Err.Description & "<P>"
  Response.Write Err.Source & "<P>"
End If

Function FirstName (FullName)
   If InStr(FullName, " ") = 0 Then
Err.Raise vbObjectError + 22, "MyFunction.FirstName", _
   "Parametr FullName tej funkcji musi zawiera spacj!"
   Else
   FirstName = Left(FullName, InStr(FullName, " ") - 1)
   End If
End Function
%>
