<%
Option Explicit
On Error Resume Next
Dim x
x = Request.QueryString("Number1") / Request.QueryString("Number2")
If Err.Number <> 0 Then
  If Err.Number = 11 then
    Response.Write "Nie mona dzieli przez zero. Sprbuj ponownie."
  ElseIf Err.Number = 6 Then
    Response.Write "Musisz wprowadzi obydwie liczby. Sprbuj ponownie."
  ElseIf Err.Number = 13 Then
    Response.Write "Mona wpisywa jedynie liczby. Sprbuj ponownie."
  Else
    Response.write "Wystpi nieoczekiwany bd." _
      & "Pracujemy nad tym. Sprbuj ponownie za jaki czas. "
  End If
  Response.End
End If
Response.Write "Odpowied: " & x
%>    
