Løbe checkboxe igennem

for each file in Upload.Files
  if upload.Form("box") <> "" then
    boxe = boxe & upload.Form("box") & ","
  End If
Next

Mvh,

Thomas Regin.

hvis de alle har samme navn så får du automatisk en komma sepreteet liste ved:

boxe = upload.Form("box")


Hvis man sætter kryd i "box" hvor value er 1 og 5 og 7
så man overfør: 1,5,7

eagleeye -> Har du et liv?? ;)

Jo tak, men jeg får fejl i denne linie:

for each item in upload.Form("box")


Jeg vil tro at det er "item" den ikke kan lide...

Jeps derfor som jeg skriver nøjes med den ene linie:

boxe = upload.Form("box")


Denne her:
for each item in upload.Form("box")
    if upload.Form("box") <> "" then
        boxe = boxe & upload.Form("box") & ","
    end if
  Next

laver en liste som vil sådan ud:
boxe = 1,5,7,

og du tjekke ikke på om item <> "" men du tjekke på om  upload.Form("box") <> "" så....

...så det vil sige at ALLE checkbox værdierne bliver smidt ind i "boxe" ved hjælp af den ene linie?

hvis du har 100 check boxse med samme navn vil du få en kommaseperet list med upload.Form("box") og det som er mellem kommaeren er den værdi som står i value..:

boxe = upload.Form("box")

Du kan som tjek prøve at udskrive:

Response.write upload.Form("box")

Jeg har skrevet det her:

boxe = upload.Form("box")
response.write "boxe: " & boxe & "<br>"

Jeg hakkede 2 boxe af på formen.

Her er outputtet:

boxe: on

Dvs. det virker ikke.. :(

Jeg har lige prøvet at lave kluntet løkke:

strwSQL = "select * from udstyr"
  set res = Conne.execute(strwSQL)
  do while not res.eof
    if upload.Form("box") <> "" then
        boxe = boxe & upload.Form("box") & ","
    end if
    res.movenext
  loop


Den udskriver alle boxene med samme værdi!?!?!?

boxe: on,on,on,on,on,on,on,on,


Nogen ideer til en løsning??

Er der virkerlig ingen der har et forslag??

Det haster sådan set en del - jeg skal bruge det imorgen!!

Flere points er ikke umuligt!!

og de har alle samme navn??

<input type="checkbox" name="box" value="xx">
<input type="checkbox" name="box" value="yy">
<input type="checkbox" name="box" value="zz">

Ja, i øjeblikket har de.

Her er koden:

<tr bgcolor="#F3F3F3">
  <td><font face="arial,helvetica" size="1">Udstyr</font></td>
  <td colspan=3>
    <table>
        <tr>
<%
strSQL = "Select * From udstyr"
  Set rts = Conn.Execute(strSQL) '"&rts("udstyrid")&"
tal = 0
do while not rts.eof
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td><td align=left width='50'><input type='checkbox' name='box' size='15'></td>" & vbcrlf
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    rts.movenext
loop
%>   
        </tr>
    </table>
  </td>
</tr>

lininen

Set rts = Conn.Execute(strSQL) '"&rts("udstyrid")&"

skal naturligvis være

Set rts = Conn.Execute(strSQL)

du er nød et mød til at hvade value sat til ID i databasen eller noget. Ellers vil du for hver som er checked få on og så ved du ikke hvilken det er. Man får ikke information omkring checkboxe som ikke er kryds i.

selv om den første sætning er lidt volipyk agtig ;) tror jeg at jeg har forstået det.

Dvs. jeg skal skrive :

<input type='checkbox' name='box' size='15' value="&rts("udstyrid")&">

Og hvordan skal jeg så kører dem igennem?

Nu er outputtet bare:

1,1,1,1,1,1,1,1,

Det sjove er at der kommer ikke noget ud når jeg ikke hakker nogen af, men hakker jeg bare EN af kommer det output jeg har skrevet ovenfor.

Stryg det jeg lige har skrevet!!

Det skriver det første id den støder på i alle boxene. Giver det mening?

F.eks. jeg hakker nr. 2 og outputtet bliver totaller, hakker jeg f.eks. nr. 4 og outputtet bliver firtaller.

tilsyneladne understytter ASPupload så ikke flere med samme navn?!?!

Prøv at rette denne:
<input type='checkbox' name='box"&rts("udstyrid")&"' size='15' value="&rts("udstyrid")&">

Til:
<input type='checkbox' name='box' size='15' value="&rts("udstyrid")&">



Og så denne kode:
strwSQL = "select * from udstyr"
  set res = Conne.execute(strwSQL)
  do while not res.eof
    if upload.Form("box") <> "" then
        boxe = boxe & upload.Form("box") & ","
    end if
    res.movenext
  loop


Til:
strwSQL = "select * from udstyr"
  set res = Conne.execute(strwSQL)
  do while not res.eof
    if upload.Form("box"&res("udstyrid")) <> "" then
        boxe = boxe & upload.Form("box"&res("udstyrid")) & ","
    end if
    res.movenext
  loop

Jeg har lidt (meget) travlt lige nu... jeg kigger på det senere...Det ser ellers god ud!! ;)

Jeg har prøvet dit forslag, men det virkede ikke!! tsk,tsk ;)

Nu har jeg ændret det lidt og nu spiller det 100 %!!! :D

Men hvordan fjerner jeg det sidste komma? Jeg ved godt at man bruger "trim" funktionen, men jeg ved ikke hvordan. :)

Fandt selv ud af det....

Du får lidt point som tak for hjælpen, selv om du ikke løste problemet. :)