<%@ 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 Dim seats, accepted seats = 3 accepted = 0 Sub TryReserve(ByVal quantity) If quantity < 1 Or quantity > seats Then Exit Sub seats = seats - quantity accepted = accepted + 1 End Sub TryReserve 2 TryReserve 2 TryReserve 1 Response.Write "Seats: " & seats & vbLf Response.Write "Accepted: " & accepted %>