Limit database inputs

[AegisIC1]

How can I limit the data being sent to my database when it reaches a certain limit. In my case 10 people including their guess registering for a particular table. Or perhaps is their a better way to this event registration form. Please help


Here is my code:


<%
Dim myConn
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "scott"
%>

<%
Dim myRS
Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "SELECT FirstName, LastName, Guest1, Guest2, Guest3 FROM tblname WHERE tableno='2'", myConn
%>


<center><table border ="4"></center>

<tr>
<td><b><center>Name</center></b></td>
</tr>


<% While Not myRS.EOF %>
<tr>
<td><%= myRS("FirstName")%>&nbsp;<%=myRS("LastName")%></td><tr><td><%= myRS("Guest1")%></td>
<tr><td><%= myRS("Guest2")%></tr></td>
<tr><td><%= myRS("Guest3")%></td></tr>
</tr>



<% myRS.MoveNext
wend
myRS.close
Set myRS = Nothing
myConn.close
Set myConn = Nothing
%>

</table>

[I.m.I]

In my case 10 people including their guess registering for a particular table

can u explain to me the scene

[AegisIC1]

I am trying to create a registration form application that will allow a person to register for an event. I need the application to accept registration for attendee and three guests. Each attendee needs to choose any of the 60 tables for seating. Each table has a 10 person seating limit.

With the codes that I've written, How can I manipulate it in order to achieve such function with asp. Please help.

[I.m.I]

can u show me the registration page code

[AegisIC1]

Here is the code that sends the registration form information to database.

<%
Dim myConn
Dim myRS

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "Scott"

Set myRS = Server.CreateObject("ADODB.Recordset")
myRS.Open "tblName", myConn, adOpenKeyset, adLockOptimistic

myRS.AddNew

myRS ("FName") = Request.Form ("First Name")
myRS ("LName") = Request.Form ("Last Name")
myRS ("Telephone") = Request.Form ("Telephone")
myRS ("Table No.") = Request.Form ("Table Number")
myRS ("Guest 1") = Request.Form ("Guest 1")
myRS ("Guest 2") = Request.Form ("Guest 2")
myRS ("Guest 3") = Request.Form ("Guest 3")

myRS.Update
myRS.Close

Set myRS = Nothing
myConn.Close
Set myConn = Nothing

%>

[I.m.I]

i hope i understand the problem well
r u need to check if the table that the user register for is reach the limit ?

[AegisIC1]

yes. When a Table reach the 10 person sitting limit. It will then not accept any further registration. WHen this happen the person registering must re-select a table with available seating.

[I.m.I]

the code :

'check if the selected table reach the limit
sql="select count(*) from tblName WHERE tableno ="&Request.Form ("Table Number")
set MyRs=MyConn.execute(sql)
if myRs(0)<10 then' if the table not reach the limit
'your code here
else ' if the table reach the limit
'you code here
end if