<%@ Language="VBScript" CodePage="65001" %> <% Option Explicit Response.Buffer = True Response.ContentType = "text/plain" Response.Charset = "utf-8" If Application("BhyluLab") <> "YES" Then Response.Status = "403 Forbidden" Response.Write "Use the separate Bhylu learning lab." Response.End End If If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then Response.Write "POST quantity=2" Response.End End If If Request.Form("quantity").Count <> 1 Then Response.Status = "400 Bad Request" Response.Write "One quantity required" Response.End End If Dim raw raw = CStr(Request.Form("quantity")) If raw <> "1" And raw <> "2" And raw <> "3" Then Response.Status = "400 Bad Request" Response.Write "Use 1, 2 or 3" Response.End End If Response.Write "Requested: " & CInt(raw) %>