Markere checkboxe

<%
strSQL = "Select * From udstyr"
  Set rts = Conne.Execute(strSQL)
tal = 0
tallet = 0
t = 1
do while not rts.eof
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
    response.write "<td align=left width='50'>"
    minlinje = split(opslag("udstyr"),",")
'for i = tallet to ubound(minlinje)
'    strsql = "select udstyrid from udstyr where udstyrid="&minlinje(i)
'    Set rees = Conne.Execute(strSQL)
'    if rees("udstyrid") = rts("udstyrid") then
rs.MoveNext()
'        Response.Write "<input type='checkbox'  checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
'        exit for
'    else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
'        exit for
'    end if
'next
    tallet = tallet + 1
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    rts.movenext
loop

%>

-vil mene du mangler en MoveNext() på dit recordset....

-hvis ikke det er rigtigt, så kigger jeg lige på det når jeg kommer hjem lidt senere i dag...

//>Rune

kig lige før "loop"

der står : rts.movenext

Der er ikke det der er problemet, hvis jeg indkommentere for løkke kommer checkboxene ud på denne måde:

X
X
X
X
X
X
X

Hvor de skulle komme ud sådan:
X X X X
X X X

Med denne kode bliver kun den første valgte box hakket af:

<%
strSQL = "Select * From udstyr"
  Set rts = Conne.Execute(strSQL)
tal = 0
tallet = 0
t = 1
minlinie = ""
if opslag("udstyr") <> "" then
    minlinje = split(opslag("udstyr"),",")
end if
do while not rts.eof
for i = tallet to ubound(minlinje)
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
    response.write "<td align=left width='50'>"
    strsql = "select udstyrid from udstyr where udstyrid="&minlinje(i)
    Set rees = Conne.Execute(strSQL)
    if rees("udstyrid") = rts("udstyrid") then
        Response.Write "<input type='checkbox'  checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
        exit for
    end if
    tallet = tallet + 1
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    rts.movenext
next
rts.movenext
loop
%>

Og forøvrigt lister den kun de første 4 checkboxe

Prøv med denne:

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
<%
    strSQL = "Select * From udstyr"
      Set rts = Conne.Execute(strSQL)
    tal = 0
    tallet = 0
    t = 1
    minlinie = ""
    if opslag("udstyr") <> "" then
        minlinje = split(opslag("udstyr"),",")
        lngLength = Len(minlinje) -1
        minlinje = Left(minlinje,lngLength)
    end if
    do while not rts.eof
    for i = tallet to ubound(minlinje)
        response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
        response.write "<td align=left width='50'>"
        strsql = "select udstyrid from udstyr where udstyrid="&minlinje(i)
        Set rees = Conne.Execute(strSQL)
        if rees("udstyrid") = rts("udstyrid") then
            Response.Write "<input type='checkbox'  checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
        else
            response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    exit for
        end if
        tallet = tallet + 1
        tal = tal + 1
        if tal = 4 then
            response.write "</tr><tr>"
            tal = 0
        end if
        t = t + 1
        rts.movenext
    next
    rts.movenext
    loop
%>
%>

</BODY>
</HTML>


//>Rune

jeg er i øjeblikket optaget af noget andet...jeg vender tilbage når jeg har tid til det her. :)

Sorry, jeg har været optaget af en hel masse andet. Jeg havde derfor totalt glemt dette spg. :(

Rune, dit forslag virker desværre ikke.

Her er min nuvændende kode:

<%
minlinie = ""
udstyridet = ""
strSQL = "Select * From udstyr"
  Set rts = Conne.Execute(strSQL)
tal = 0
t = 1
if opslag("udstyr") <> "" then
    minlinje = split(opslag("udstyr"),",")
end if
do while not rts.eof
for i = 0 to ubound(minlinje)
    udstyridet =  minlinje(i)
    if rts.eof then
        exit for
    end if
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
    response.write "<td align=left width='50'>"
    response.write udstyridet
    response.write rts("udstyrid")
    if udstyridet = rts("udstyrid") then
        Response.Write "<input type='checkbox' checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
        'exit for
    end if
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    if rts.eof then
        exit for
    end if
    rts.movenext
next
if rts.eof then
        exit do
    end if
rts.movenext
loop
%>

Som du kan se, har jeg lavet response.write'r i for løkken.
Resultatet er ret interessant:

ABS 11 X Airbag 22 X Automatgear 33 X Alufælge 15 X

X'et er checkboxe
det første tal er "udstyridet" - dvs. den splittede streng
det andet tal er "rts("udstyrid")" - dvs. id fra udstyr tabellen

Som du kan se loop'er(i mangel af et bedre ord) den splittede streng og starter forfra.

Hvordan undgår jeg det?

Hmm har du autonumnering på dit ID felt?

//>Rune

ja.

Jeg lavet lidt om på koden, så den nu udskriver de boxe der er hak i og kun dem(dog uden hak i).

Jeg har indsnævret problemet til denne if sætning:
test = rts("udstyrid")
if udstyridet = test then
        Response.Write "<input type='checkbox' checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
end if

"else" delen bliver altid udført. Det vil, for mig, sige at den ikke kan lide sammenligningen mellem udstyrid(test), som er autonummer, og udstyridet, som er den splittede streng.

Kan problemmet ligge i at strengen er ansat for at være bogstaver og ikke tal?
Hvis ja, hvordan laver man den om?

Prøv med dette så:

if udstyridet = CInt(test) then
        Response.Write "<input type='checkbox' checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
end if


CInt() konvetere fra en tekstværdi til en talværdi
CStr() konvetere fra en talværdi til en tekstværdi

//>Rune

Ingen forskel. :(

Her er min nuværende kode:

<%
minlinie = ""
udstyridet = ""
strSQL = "Select * From udstyr"
  Set rts = Conne.Execute(strSQL)
tal = 0
t = 1
if opslag("udstyr") <> "" then
    minlinje = split(opslag("udstyr"),",")
end if
for i = 0 to ubound(minlinje)
    udstyridet =  minlinje(i)
    if rts.eof then
        exit for
    end if
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
    response.write "<td align=left width='50'>"
    response.write udstyridet
    response.write rts("udstyrid")
    test = rts("udstyrid")
    if udstyridet = CInt(test) then
        Response.Write "<input type='checkbox' checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    else
        response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
        'exit for
    end if
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    if rts.eof then
        exit for
    end if
    rts.movenext
next
%>

Den udskriver :

ABS 11 X Airbag 22 X Automatgear 33 X

Jeg skal lige sige at det ikke er den samme bil som sidst. Derfor er der kun 3.

Hmm prøv lige at udskriv variablerne udstyridet og udstyrid!

altså:

Response.Write(udstyridet & "<br>")
Response.Write(udstyrid)

//>Rune

Jamen er det da både tal og bogstaver?

//>Rune

:)
Tænker du på "ABS"? det er bare navnet - det kommer ud et andet sted:
response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"

"Hmm prøv lige at udskriv variablerne udstyridet og udstyrid!"

Det er jo det jeg gør.
Først kommer navnet (ABS),
så kommer udstyridet (1),
så kommer rts("udstyrid") (1)
og til sidst komme selve checkboxen (X)

Alt det må jo ikke ligge i den samme variabel, det er ikke særlig praktisk!

-nå, jeg skal ud og spille fodbold nu..
Vender tilbage igen i aften!

//>Rune

forhåbentligt ikke for sent!!! ;)

ok back... :-)

Ligger alle de oplysninger i den samme variabel?

//>Rune

nej da, i hver sin.

Hmm ok..

Jamen jeg forstår sq ik' rigtig hvad du vil! -Du må lige prøve at beskrive det lidt bedere...!

//>Rune

Altså!

Jeg har en bil.
Den bil har noget udstyr.
Det udstyr er valgt ud fra nogle checkboxe på min "opretbil" side.
Udstyret kommer fra databasen.
I databasen er der en tabel med udstyr.
I den tabel er der to(2) kolonner: "udstyrid"(autonummer) og "unavn"(tekst).
I min biltabel er der en kolonne med udstyr: "udstyr"(tekst)
På min "retbil" side vil jeg gerne de samme checkboxe markeret, som dem der blev markeret da bilen blev oprettet.

I øjeblikket bliver checkboxene på "opretbil" siden lavet på denne måde:

Skriv navn på udstyr. Lav en checkbox med navnet "box" + udstyrid.

Kode:

<%
strSQL = "Select * From udstyr"
  Set rts = Conn.Execute(strSQL)
tal = 0
t = 1
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"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    rts.movenext
loop
%>

Der laves derefter en kommasepareret tekst streng af de markerede chechboxe.

Kode:

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

Og så kommer problemet på "retbil" siden.

Jeg håber at denne forklaring er god nok... Ellers må du spørge mere specifikt!!! ;)

Hvaa... er du gået i seng eller noget??

Er det så her du vil ha' en validering på hvilke checkboxe der skal være checked?

<%
strSQL = "Select * From udstyr"
  Set rts = Conn.Execute(strSQL)
tal = 0
t = 1
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"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    rts.movenext
loop
%>

//>Rune

Dit forslag udskriver godt nok alle checkboxene, men der er stadig ingen af dem der er hakket af.

Jeg syntes at ovenstående ser lidt for beværligt ud i hht. at den bare skal checke nogle checkboxe af !, glem dog alt om splitfunktioner o.s.v, løsningen er lige foran næsen...

Det skal dog nævnes at jeg ikke ved om opslaget virkelig hedder opslag!

men for at få nedenstående til at virke let indsætter du bare en variabel der hedder :

opslag = rts("udtræk")

koden :

<%
strSQL = "Select * From udstyr"
  Set rts = Conn.Execute(strSQL)
tal = 0
tallet = 0
t = 1

do while not rts.eof
    response.write "<td width='40'><font face='arial,helvetica' size='1'>"&rts("unavn")&"</td>"
    response.write "<td align=left width='50'>"

      if (inStr(opslag, t)) Then
          response.write "<input type='checkbox' checked name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
      else
          response.write "<input type='checkbox' name='box"&rts("udstyrid")&"' size='15'></td>" & vbcrlf
        End If
       

    tallet = tallet + 1
    tal = tal + 1
    if tal = 4 then
        response.write "</tr><tr>"
        tal = 0
    end if
    t = t + 1
    rts.movenext

loop

%>

ovenstående er testet med en variabel der ser sådan ud :

opslag = "1,3,5"

God fonøjelse, og håber at jeg har forstået rigtigt, ellers skal jeg punkes *G*

-grunken

chris> Jeg spurgte om det var DER du ville ha' det! -Det var ikke et forsøg!

//>Rune

rune -> sorry, det havde jeg ikke set...

grunken -> dit svar ser spændende ud - jeg kigger på det lige så snart jeg får tid!! :)

Jeg fik ikke brug for det alligevel... :(

Fair nok...
Thx 4 Poinz

//>Rune