Dropdown med selected

prøv:

If trim(CStr(rs2("kategori"))) = trim(cstr(section))  Then %>

Ingen forskel!
Den henter godt nok sectionen men "selecter" den stadig ikke!!

prøv at læse i kilden og se om den rent faktisk har skrevet "selected" ved den option

Det er den nemlig lige præcis ikke!

Har også prøvet denne version med samme resultat:

<%
section = Request.QueryString("section")

strSQL = "SELECT kategori FROM kategorier ORDER By kategori"
Set rs2 = Conn.Execute(strSQL)

Response.Write "<select name=kategori size=1>"
Do While Not rs2.EOF
If CStr(rs2("kategori")) = section Then
Response.Write "<option value='" & rs2("kategori") & "' selected>" & rs2("kategori") & "</option>"
Else
Response.Write "<option value='" & rs2("kategori") & "'>" & rs2("kategori") & "</option>"
End if
rs2.MoveNext
Loop
Response.Write "</select>"

%>
I kilden der skriver den så value="'gulv'" og det er vel også forkert når section skal være = gulv

<%
section = Request.QueryString("section")

strSQL = "SELECT kategori FROM kategorier ORDER By kategori"
Set rs2 = Conn.Execute(strSQL)

Response.Write "<select name=kategori>"
Do While Not rs2.EOF
If trim(cstr(rs2("kategori"))) = trim(cstr(section)) Then
Response.Write "<option value=""" & rs2("kategori") & """ selected>" & rs2("kategori") & "</option>"
Else
Response.Write "<option value=""" & rs2("kategori") & """>" & rs2("kategori") & "</option>"
End if
rs2.MoveNext
Loop
Response.Write "</select>"

%>

den der skulle virke... gør den ikke umiddelbart det vil jeg abefale at du lige tjekker i databasen om du har fået gemt noget forkert pga af tidligere fejl i angivelsen .. f.eks. hvis der er gemt ' med i de gamle værdier....

Nu fandt jeg fejlen - der manglede et felt i databasen og det var selvfølgelig det den skulle tjekkes på. Min fejl. Oprettede feltet section i feltet og gjorde således:

<%
section = Request.QueryString("section")

strSQL = "SELECT * FROM kategorier ORDER By kategori"
Set rs2 = Conn.Execute(strSQL)

Response.Write "<select name=kategori>"
Do While Not rs2.EOF
If trim(cstr(rs2("section"))) = trim(cstr(section)) Then
Response.Write "<option value=""" & rs2("section") & """ selected>" & rs2("kategori") & "</option>"
Else
Response.Write "<option value=""" & rs2("section") & """>" & rs2("kategori") & "</option>"
End if
rs2.MoveNext
Loop
Response.Write "</select>"
%>

Tak for hjælpen. Lægger du et svar?!

yeps da :)