<%
Select Case Request.QueryString("Quantity") 
  Case 1
    Response.Write "50 z" 
  Case 2
    Response.Write "90 z" 
  Case 3
    Response.Write "130 z" 
  Case 4
    Response.Write "150 z" 
  Case Else
  Response.Write Request.QueryString("Quantity") * 40 & " z"
End Select
%>
