<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
' table betatesters:
'    field id : long (primary key)
'    field name : text 50
'    field email : text 50
' table possibleids:
'    field id : long (primary key)
' (has 20 rows with values 1-20)
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;User Id=Admin;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT MIN(id) AS minid FROM possibleids WHERE id NOT IN (SELECT id FROM betatesters)",con
id = rs("minid")
If 1 <= id And id <= 20 Then
    con.Execute "INSERT INTO betatesters VALUES(" & id & ",'" & Request.Form("name") & "','" & Request.Form("email") & "')"
    Response.Write "You are now a beta tester"
Else
    Response.Write "No more beta testers allowed"
End if
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
%>