x point tilx personer

Hej jeg skal have lavet en måde at deler x antal point ud til x antal personer via en database og finde ud af at der ikke at sendt flere point end 200.

Jeg har lavet lidt men er gået i stå.

Her er koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN
%>
<%
id = request.querystring("id")
set derharsvaret = Server.CreateObject("ADODB.Recordset")
derharsvaret.Open "SELECT * FROM indlæg WHERE svartype ='svaret' and mailid=" & id, conn, 1, 3
%>
<form method="POST" action="<%=request.servervariables("SCRIPT_NAME")%>?tilfoej=ja&id=<%=request.querystring("id")%>">
<%do until derharsvaret.eof%>
<%=derharsvaret("brugernavn")%><input type="hidden" name="<%=derharsvaret("brugerid")%>" value="<%=derharsvaret("brugerid")%>"><input type="text" name="<%=derharsvaret("brugernavn")%>" size="20"><br>
<%derharsvaret.movenext
loop
%>
<input type="submit" value="Send"></form>
<%if request("tilfoej") = "ja" then%>
<%
id = request.querystring("id")
set derharsvaret1 = Server.CreateObject("ADODB.Recordset")
derharsvaret1.Open "SELECT * FROM indlæg WHERE svartype ='svaret' and mailid=" & id, conn, 1, 3

do until derharsvaret1.EOF
%>
<%
id = request.form(""& derharsvaret1("brugerid") & "")
set brugerop2 = Server.CreateObject("ADODB.Recordset")
brugerop2.Open "SELECT * FROM bruger WHERE id=" & id, conn, 1, 3

pointtjent = brugerop2("pointtjent") + request.form(""& derharsvaret1("brugernavn") & "")

brugerop2("pointtjent") = pointtjent
brugerop2.Update
%>

<%
id = session("id")
set brugerop5 = Server.CreateObject("ADODB.Recordset")
brugerop5.Open "SELECT * FROM bruger WHERE id=" & id, conn, 1, 3

pointbrugt = brugerop5("pointbrugt") + request.form(""& derharsvaret1("brugernavn") & "")

brugerop5("pointtjent") = pointbrugt
brugerop5.Update
%>

<%
derharsvaret1.movenext
loop
%>

<%end if%>


/Peppino