Ind i en multiple select fra Access database

Er det ikke muligt at checke om de at selected og så udskrive det i selecten..

altså

if forfatter = true then
ch = " selected"
else
ch = ""
end if

<option value="" <%=ch%>>etellerandet</option>

Thomas

Det virker stadig ikke, men nu får jeg da én af forfatterne skrevet som selected, selvom der er flere.

Her er koden for selecten...

<SELECT size="6" multiple name="hovundi">

<% 
 
strSQL = "SELECT ID, efternavn, fornavn FROM Forfattere ORDER BY efternavn, fornavn"
Set rsHent = conn.Execute(strSQL)
 
strSQL2 = "SELECT ID, forfatter, udgave FROM SelectedForfattere WHERE udgave = " & Request.QueryString("ID")
set rsHent2 = conn.Execute(strSQL2)

do until rsHent.EOF
ch = ""

do until rsHent2.EOF
 
if rsHent2("forfatter") = rsHent("ID") then
ch = "selected"
end if
 
rsHent2.MoveNext
Loop
 
Response.Write("<OPTION "& ch &" VALUE=" & rsHent("ID") & ">" & rsHent("efternavn") & ", " & rsHent("fornavn") & "</OPTION>")
 
rsHent.movenext
loop
rsHent.close
set rsHent = nothing
   
%>
</SELECT>


Jeg ved ikke hvad der er galt, håber at nogen kan hjælpe mig :)

solja

Hvor kommer request("id") fra.. og hvad forbinder de to tabeller.. ??

Vender nok først tilbage imorgen.. :)

Thomas

Tabellen "forfattere" indeholder alle forfattere med et fornavn, efternavn og id. Så har jeg også en tabel "udgave", som indeholder et idog meget mere, og det er der request("id") kommer fra...altså det er udgavens id. Tabellen "SelectedForfattere" er så tabellen der forbinder udgaven med forfatterne.

Jeg håber du kan forstå mener :)

solja

Tror at jeg har forstået det.. Virker det her ikke..  '
Du må selv lige tilpasse det.. Jeg kunne ikke lige over skue dine lange betegnelser.. :)

<%
    id = request.querystring("id")
   
    SQL = "select * from forfattere"
    Set s = conn.Execute(SQL)
   
    if not s.eof
       
        response.write "<SELECT size='6' multiple name='hovundi'>"
       
        s.movefirst
        Do while not s.eof
       
            SQL = "select * from selectedforfattere where forfatter_id=" & s("id") & " and udgave_id=" & id
            set d = conn.Execute(SQL)
           
            if not d.eof then
                response.write "<option value='' selected>Values</option>"
            else
                response.write "<option value=''>Values</option>"
            end if
           
            d.close
            Set d = Nothing
       
        s.movenext
        Loop
       
        g
       
        response.write "</select>"
   
    end if

    s.close
    Set s = Nothing
%>

Thomas

jamen dog...det virker :)

Hvordan giver jeg dig dine fortjente point?

solja

Jeg laver lige et svar.. :)
Og så godkender du bare..

Thomas

Værsgo...og tak for hjælpen :)

solja

Det var så lidt.. Skulle det være en anden gang.. :)

Thomas