Scusa, ero all'università e sono tornato da poco.
La soluzione che proponi non va bene, altrimenti una volta raggiunte le 30 sessioni nessuno potrebbe più accedere, nemmeno gli utenti che hanno contribuito ad arrivare alle 30.
Io definirei a livello di applicazione un oggetto dictionary (quindi lo definisci nel global.asa) poi nella pagina che controlla fai

if not objDict.Exists(Session.SessionID) then
if objDict.Count >= 30 then
' troppi utenti
Response.End
else
objDict.Add Session.SessionID, 1
end if
end if

Ovviamente poi nella Session_onEnd del global.asa dovrai mettere

if objDict.Exists(Session.SessionID) then
objDict.Remove Session.SessionID
end if

Prova e poi fammi sapere.

Fuori da ogni subroutine metti questo codice:

<OBJECT RUNAT=Server SCOPE=Application ID=objDict PROGID="Scripting.Dictionary">
</OBJECT>