<%
Option Explicit
Dim TheMessage
If IsNumeric(Request.Form("Quantity")) then
  If CInt(Request.Form("Quantity")) < 1 then
    TheMessage = "Musisz zamwi przynajmniej jedn rzecz!"
  ElseIf CInt(Request.Form("Quantity")) > 250 then
    TheMessage = "Ilo nie moe by wiksza od 250!"
  Else
    TheMessage = "Zamwienie przyjte"
  End If
Else
  TheMessage = "Ilo musi by liczb!"
End If
%>
