Uppdatera databas

Har kört fast när det gäller att uppdatera flera spelare på en o samma gång.
Har haft en tabell med presentation av spelare som jag nu tänkte utöka med lite statistik. Gjorde följande formulär, som funkar om man tar spelarna en och en men jag vill för enkelhetens skull kunna rada upp allesammans och fylla i antalet varningar, mål osv på en och samma gång efter varje match.
Men hur tusan skall man gå tillväga för att detta skall funka så rätt antal mål osv kommer på rätt spelare?

TABELLEN "Spelare"

SpelarID (Räknare)
SpelarNummer( Tal)
SpelarNamn (Text)
.
.
.
SpelarStatistikMatcher (Text)
SpelarStatistikMal (Text)
SpelarStatistikVarningar (Text)
SpelarStatistikUtvisningar (Text)

1.asp

	<%
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Visa = "SELECT * FROM spelare ORDER BY Spelarnummer"
	RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
	Do Until RecSet.EOF %>
<form method="POST" action="2.asp">
<font size="1" face="verdana, arial">
<input type="text" size="3" name="SpelarID" value="<%=RecSet("SpelarID")%>""> - <%=RecSet("Spelarnummer")%> - <%=RecSet("Spelarnamn")%>
<input type="text" size="3" name="spelarstatistikmatcher">Matcher
<input type="text" size="3" name="spelarstatistikmal">Mål
<input type="text" size="3" name="spelarstatistikvarningar">Varningar
<input type="text" size="3" name="spelarstatistikutvisningar">Utvisningar
<br>
</font>
	<%
	RecSet.MoveNext
	Loop
	RecSet.Close
	Connect.Close
	Set RecSet=Nothing
	Set Connect=Nothing
	%>
<input type="submit" value="Uppdatera"></form>

2.asp

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
UppdateraSpelarStatistik = "SELECT * FROM Spelare"
RecSet.Open UppdateraSpelarStatistik, Connect, adOpenStatic, adLockOptimistic

RecSet("SpelarStatistikMatcher") = RecSet("SpelarStatistikMatcher") -- Request.Form("spelarstatistikmatcher")
RecSet("SpelarStatistikMal") = RecSet("SpelarStatistikMal") -- Request.Form("spelarstatistikmal")
RecSet("SpelarStatistikVarningar") = RecSet("SpelarStatistikVarningar") -- Request.Form("spelarstatistikvarningar")
RecSet("SpelarStatistikUtvisningar") = RecSet("SpelarStatistikUtvisningar") -- Request.Form("spelarstatistikutvisningar")
RecSet.Update

RecSet.Close
Connect.Close
Set RecSet=Nothing
Set Connect=Nothing
%>