Indsæt 10 forskellige værdier i 10 rækker med samme navn

Okai

Nu begynder tingene endelig at tage form. Jeg har fået udtrækket af DB til at virke hensigtsmæssigt, så man skulle være klar til at ændre / indskrive data til accessDB.
Det har jeg fået til at virke således:
........................
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\firmabowling.mdb")
sql1 = "Select * From battles Where teamid =('S.M.A.S.K') AND runde = " & Request.Querystring("id")
sql2 = "Select * From battles Where teamid = ('Vestergaard Eagles') AND runde = " & Request.Querystring("id")
sql3 = "Select * From battles Where teamid = ('Neckelmann 5') AND runde = " & Request.Querystring("id")
sql4 = "Select * From battles Where teamid = ('Neckelmann 6') AND runde = " & Request.Querystring("id")
sql5 = "Select * From battles Where teamid = ('TDC Silkeborg') AND runde = " & Request.Querystring("id")
sql6 = "Select * From battles Where teamid = ('Matas Torvet') AND runde = " & Request.Querystring("id")
sql7 = "Select * From battles Where teamid = ('LMK Vej') AND runde = " & Request.Querystring("id")
sql8 = "Select * From battles Where teamid = ('S.P.I. 2') AND runde = " & Request.Querystring("id")
sql9 = "Select * From battles Where teamid = ('HBL Vine') AND runde = " & Request.Querystring("id")
sql10 = "Select * From battles Where teamid = ('Jyske Bank 2') AND runde = " & Request.Querystring("id")


Set rs = Conn.Execute(sql1)
strrunde = rs("runde")
strdato = rs("dato")
strtidspkt = rs("tidspkt")
strsmaskkegle = rs("kegler")
strsmaskpoint = rs("points")


Set rs = Conn.Execute(sql2)

strvesterkegle = rs("kegler")
strvesterpoint = rs("points")

Set rs = Conn.Execute(sql3)

strnec5kegle = rs("kegler")
strnec5point = rs("points")

Set rs = Conn.Execute(sql4)

strnec6kegle = rs("kegler")
strnec6point = rs("points")

Set rs = Conn.Execute(sql5)

strtdckegle = rs("kegler")
strtdcpoint = rs("points")

Set rs = Conn.Execute(sql6)

strmataskegle = rs("kegler")
strmataspoint = rs("points")

Set rs = Conn.Execute(sql7)

strlmkkegle = rs("kegler")
strlmkpoint = rs("points")

Set rs = Conn.Execute(sql8)

strspi2kegle = rs("kegler")
strspi2point = rs("points")

Set rs = Conn.Execute(sql9)

strhblkegle = rs("kegler")
strhblpoint = rs("points")

Set rs = Conn.Execute(sql10)

strjyskekegle = rs("kegler")
strjyskepoint = rs("points")

rs.close
set rs = Nothing %>

.......................
Nu skulle jeg jo gerne kunne gemme det nye indhold.
Men jeg kan ikke lige dreje den med hensyn til at samtlige 10 bowlinghold score ligger i kolonnerne ' kegler' & 'points'.
Jeg har prøvet forskellige måder, og pt ser det således ud:
.......................

<!-- #include file="ADOVBS.inc" -->
<%
Dim rsSave

'Creating the Recordset Object
Set rsSave = Server.CreateObject("ADODB.RecordSet")

'Creating a DSN-Less connection to your Database
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/firmasport.mdb")

rsSave.open "[battles]", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
   
rsSave.find "runde=" & request.querystring("id")

rsSave("tidspkt") = request.form("tidspkt")
rsSave("dato") = request.form("dato")
rsSave("kegler") = request.form("smask_kegler")
rsSave("points") = request.form("smask_points")
rsSave("kegler") = request.form("vestergaard_kegler")
rsSave("points") = request.form("vestergaard_points")
rsSave("kegler") = request.form("matas_kegler")
rsSave("points") = request.form("matas_points")
rsSave("kegler") = request.form("neckelmann5_kegler")
rsSave("points") = request.form("neckelmann5_points")
rsSave("kegler") = request.form("neckelmann6_kegler")
rsSave("points") = request.form("neckelmann6_points")
rsSave("kegler") = request.form("tdc_kegler")
rsSave("points") = request.form("tdc_points")
rsSave("kegler") = request.form("spi2_kegler")
rsSave("points") = request.form("spi2_points")
rsSave("kegler") = request.form("hblvine_kegler")
rsSave("points") = request.form("hblvine_points")
rsSave("kegler") = request.form("jyskebank2_kegler")
rsSave("points") = request.form("jyskebank2_points")
rsSave("kegler") = request.form("lmkvej_kegler")
rsSave("points") = request.form("lmkvej_points")




rsSave.update
rsSave.close
set rsSave = Nothing

response.redirect("changebowling.asp")
%>

Problemmet ligger i at den selvfølgelig skal gemme det indtastede i kolonnerne udfor de enkelte holdnavne, som ligger i kolonnen 'teamid' samt udfor den rigtige kamprunde 'runde'

Jeg ved det er en laaang smørre, og sikkert også enormt dårligt forklaret, men jeg håber der er en som har mod på at guide mig den rigtige vej.

Venligst /0ffline