Loop utan loopning

Hallå alla...
Kan för mitt liv inte lösa detta problem:

Jag har en loop...
I den loopen skall databasen uppdateras med värdena från ett formulär.

Problemet jag har är att det är endast första posten som uppdateras, dom andra posterna struntar den i...
När jag sedan försökte skriva ut värdena så får jag inte med mig nåt värde alls... Men det skulle ju inte kunna vara så för då skulle ju inte uppdateringen funka alls...

Usch känner mig virrig... Fråga om ni inte fattar!

Så här der koderna ut i alla fall...

formulärsidan:

				<form action=privateFriends.asp method=post>
						<%
     					Do Until rs.EOF
     					strFriendNickName = rs("NickName")
     					strVisitorID = rs("VisitorID")
     					strlfQSFID = rs("FID")
						%>
				<tr>
					
					<td width=115 align=left valign=middle>
						<span class=LitenBrodtext><b>
						  <A href='publicRoom1.asp?ID=<%=strVisitorID%>'><%=strFriendNickName%></A>  
					</td>
					<td align=right valign=top>
						<span class=RodPytteLitenBrodtext><b>
						<input type=hidden name=FID value=<%=strlfQSFID%>>
						<input type=radio name=<%=strlfQSFID%> value=yes>Ja
										</td>
					<td align=right valign=top>
						<span class=RodPytteLitenBrodtext><b>
						 <input type=radio name=<%=strlfQSFID%> value=no>Nej 
										</td>
				</tr>
                <% rs.MoveNext
				Loop%>
				<tr><td colspan=3 align=center><br><input type=submit value=ok></td></tr>
				</form>

Och nästa sida:

	Dim FID, sqlAcceptFriend, sqlDenyFriend, rsScore

response.write (request.form("FID"))
	
	FOR EACH FID in request.form("FID")
		if request.form(FID) = "yes" then
			'*** Start Accept Friend
			sqlAcceptFriend = "Update Friends Set VisitorApproval=0, OwnerApproval=1, Friends=1, Date=getdate() Where FID="&FID&";"
			conn.Execute (sqlAcceptFriend)

			'*** Start Add 1 Score
		    Set rsScore = Server.CreateObject("ADODB.RecordSet")
		    strSQL = "Select HulePersonID, HuleScore, Modified From Hulen WHERE HulePersonID = " & strHulePersonID
		    rsScore.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

		    If rsScore.EOF Then
    		Response.Write "<hr>øhh! Try again!!"
   			End if
			rsScore("HuleScore") = rsScore("HuleScore") + 1
			rsScore("Modified") = Now
			rsScore.Update

			rsScore.Close
			Set rsScore = Nothing
			'**  End Add 1 Score
			'*** End Accept Friend
	     Response.Redirect "privateFriends.asp"
		elseif request.form(FID) = "no" then
			'*** Start Delete Friend
			sqlDenyFriend = "DELETE FROM Friends WHERE FID ="&FID&";"
     		Conn.Execute (sqlDenyFriend)
			'*** End Delete Friend
	     Response.Redirect "privateFriends.asp"
		end if
	Next

Givetvis finns det fungerande databaskopplingar m.m