<% Dim udsagn(6) Dim strSessionValue : strSessionValue = "" For i = 0 to 6 strValue = Request.Form("id" & i ) if( strValue = "" ) then strValue = "0" end if strSessionValue = strSessionValue & strValue if( i < 6 ) then strSessionValue = strSessionValue & "," end if next session("udsagn") = strSessionValue
response.write "kontrol af session indhold = " & session("udsagn")
Det ser rigtigt nok mærkeligt ud. Du har også for mange radiobuttons hvis du kun skal have 6 felter. Jeg har forenklet din kode lidt, til noget som burde virke.
<% Dim udsagn(5), tmpARR
if len(session("udsagn")) =0 then session("udsagn") = "0,0,0,0,0,0" 'start på session tmpARR = split(session("udsagn"),",")
For i = 0 to 5 if Request.Form("id"&i) <> "" then udsagn(i) = Request.Form("id"&i) else udsagn(i) = tmpARR(i) end if next session("udsagn") = join(udsagn,",") response.write "kontrol af session indhold = " & session("udsagn")
Tak for hjælpen begge. Fennec´s kommetar bragte mig videre, vil du lægge et svar.
:-) karsten_larsen
Og for dem som det kan interessere, blev løsningen.
Dim udsagn(5), tmpARR
if len(session("udsagn")) = 0 then session("udsagn") = "0,0,0,0,0" 'start på session tmpARR = split(session("udsagn"),",")
For i = 0 to 4 if Request.Form("id"&i) <> "" then udsagn(i) = Request.Form("id"&i) else udsagn(i) = tmpARR(i) end if next session("udsagn") = join(udsagn,",") response.write "kontrol af session indhold = " & session("udsagn")
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.