optælling i kalender, hvis over et vist tal skal farven skifte

and antal>8 then

mål på
rscount("antal")>=8

ja ok...men det kan være forskelligt for flere personer, alt efter hvilken gruppe de er i, jeg har lavet noget som Select Case på en anden som sikre at de kun melder sig på een dag:

Her er noget som er lavet i en anden fil, som checker for hvilken gruppe de er i, samt om de er skrevet ind een gang. Jeg tænkte om man kunne bruge noget af det samme:

strSQL = "SELECT Count(navn) as antal from yearlycal WHERE gruppe= '" & session("gruppe")&  "' GROUP by dte HAVING dte=#"&request("view_date")&"#"
strNavn = "SELECT Count(navn) as ant from yearlycal WHERE navn= '" & session("navn")&  "' GROUP by dte HAVING dte=#"&request("view_date")&"#"
set res = my_conn.execute(strNavn)
set result = my_conn.execute(strSQL)
if result.eof and result.bof then antal = 0 else antal = result("antal")
if res.eof and res.bof then ant = 0 else ant = res("ant")

if ant>0 then %> <script> alert("DU er meldt på til denne dag"); location.href="index.asp?view_date=<%=request("view_date")%>"; </script> <% else

tal=0
Select case session("gruppe")
case 19
tal=8
case 7
tal=1
case else%>
<script>
    alert("Du skal være logget ind, klik OK for at komme til forsiden");
    location.href="http://coutbound.dk";
 
</script><%
End Select

if antal<tal then


StrSql2 ="INSERT INTO calendar (dte, text_field) values (#" & request("view_date") & "#, '" & chkString(request("navn")) & "')"
my_conn.Execute (StrSql2)
' SQL sætning opbygges
strSQL = "Insert into yearlycal (dte, navn, gruppe, email, initial) values (#" & Request("view_date") & "#, '" &chkString(Request.Form("navn")) & "' , '" &chkString(Request.Form("gruppe")) & "' , '" &chkString(Request.Form("email")) & "' , '" &chkString(Request.Form("initial")) & "' )"
my_conn.execute(strSQL)
else%>
<script>
    alert("Det maksimale antal for din gruppe er nået");
    location.href="index.asp?view_date=<%=request("view_date")%>";
 
</script>
<%
Response.end
end if


'response.write strsql2 &"<br>"
'response.write yearlysql


end if

lukket

Ok - den havde jeg ikke set - jeg havde faktisk overset den ;-)