Løsning til at gemme i databasen

tabellen i databasen ser sådan her ud

id | dato | akkordtimer | dagtimer | arbejdssted | navn

Hvert felt på formularen har jo sit eget navn:

Navn
ManDato
Man01AkkTim, Man01DagTim, Man01ArbSted
Man02AkkTim, Man02DagTim, ... osv
Man03AkkTim, ... osv
Man04AkkTim, ... osv

TirsDato
Tirs01AkkTim, Tirs01DagTim, Tirs01ArbSted
Tirs02AkkTim, Tirs02DagTim, ... osv

Hvis der er data i disse felter skal de indsættes i databasen

strSQL = "Insert into tblUgeseddel(navn,dato,akkordtimer,dagtimer,arbejdssted) Values(" & request.form("Navn") & "," & request.form("ManDato") & "," & request.form("Man01AkkTim") & "," & request.form("Man01DagTim") & "," & request.form("Man01ArbSted") &")"

if len(request.form("Man01AkkTim") & request.form("Man01DagTim") & request.form("Man01ArbSted") &")") > 0 then
conn.execute strSQL
end if

Du har 7 dage og fire muligheder hver dag så du skal altså udføre 28 SQL udtryk.
ID edr vel noget autonummerering

OBS Nogle år findes der en uge 53

Det hjalp mig på vej til at finde en løsning..
Og denne løsning virker perfekt for mig. :)

for f=0 to 6
dato = dateadd("d",f,mandag)
dato = Replace(dato,"/","-")
strDag = left(WeekdayName(weekday(dato,2), false, 2),2)
for antal = 1 to 4

if len(request.form("" & strDag & "_" & antal & "_Akkord_Timer") & Request.QueryString("" & strDag & "_" & antal & "_Dagsloen_timer") & request.Form("" & strDag & "_" & antal & "_Arb_sted")) > 0 then
Set rs= Server.CreateObject("ADODB.Recordset")
strSQL = "select * from poster"
rs.Open strsql, conn, 1, 3
rs.addnew
rs("dato") = request.form("" & strDag & "_dato")

if request.form("" & strDag & "_" & antal & "_Akkkord_timer") = "" then
rs("akkordtimer") = 0
else
rs("akkordtimer") = request.form("" & strDag & "_" & antal & "_Akkkord_timer")
end if

if Request.form("" & strDag & "_" & antal & "_Dagsloen_timer") = "" then
rs("dagtimer") = 0
else
rs("dagtimer") = Request.form("" & strDag & "_" & antal & "_Dagsloen_timer")
end if

rs("arbejdssted") = request.Form("" & strDag & "_" & antal & "_Arb_sted")

rs("navn") = session("navn")
rs.update
set rs= nothing
end if

next
next
response.write "OK"