ho un database con il campo id e voglio che gli utenti si registrino fino al numero 60, cioè se l'id è 61 al posto dell'inserimento nel database, deve uscire un messaggio che dice che è stato raggiunto il limite e non fa registrare

il codice è il seguente:

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/bingo.mdb")
sql = "SELECT * FROM utenti WHERE email = '" & request.Form("email") & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF then

rs.AddNew
rs("nome") = request.Form("nome")
rs("cognome") = request.Form("cognome")
rs("indirizzo") = request.Form("indirizzo")
rs("citta") = request.Form("citta")
rs("provincia") = request.Form("provincia")
rs("email") = request.Form("email")
rs("password") = request.Form("password")
rs.Update
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing


Else

Response.Write("User gi&aacute; esistente")
Response.End
RS.Close
Set RS=Nothing
conn.Close
Set conn=Nothing



end if
%>