checkbox singel works but

Hi. i have this code:

Set objRS = objConn.Execute("SELECT * FROM Aero ORDER BY ID")

If (Not objRS.BOF) And (Not objRS.EOF) Then
  objRS.MoveFirst
 Dim intCounter
 intCounter = 0
  While Not objRS.EOF
 intCounter = intCounter + 1
 
 strgodkend = objRS("Godkendt")
 If strgodkend = "True" then
    strgodkend = "checked"
 end if
 BrugerID = objRS("ID")
%>
   <form action="Godkend.asp" method="Post" name="godkend<%=intcounter%>">
   <%=BrugerID%>&nbsp;&nbsp;&nbsp;<%=objRS("Navn")%>&nbsp;&nbsp;&nbsp;&nbsp;
     
             <input type="hidden" value="<%=objRS("ID")%>" name="ID">
             <input type="checkbox" value="<%=objrs("ID")%>" name="check"  onclick="godkend<%=intcounter%>.submit();" <%=strgodkend%>>
         
      </form>
<%

on this site i can select or deselect some records from a db and it works !!!

my problem is to make a checkbox field before the first record, and if i klik ind this checkbox i can select or deselect all at one klik !!!!

Can someone make that little function in my code so i can select or deselect all at one klik or select the records i want like i can now !??