<%
Option Explicit
Dim TheMessage
If IsNumeric(Request.Form("Quantity")) then
  TheMessage = "Wprowadzie poprawn ilo!"
Else
  TheMessage = "Wprowadzie niewaciw warto w polu iloci!"
End If
%>
