Hej alla glada

Jag ska lista upp poster ur en databas i en rullgardin med olika färg beroende på typ av objekt. (För tydligare läsning)

Jag förstår inte varför följande kod inte fungerar. Det är bara den översta if-satsen som körs. (bara bilarna blir tilldelade en färg)

<code>
<select name="produktkod" onchange="submit();">
<option value="" selected>Välj Objekt</option>
<%
valdProd = request.querystring("produktkod")
if valdProd <> "" then
valdProd = Cint(valdProd)
End if

do until RecSet.EOF
%>
<option value="<%=RecSet("objektId")%>"

<%
if RecSet("Typ") = "Bil" then response.write " style=""color: blue;"" "
if RecSet("Typ") = "Sal" then response.write " style=""color: red;"" "
if RecSet("Typ") = "Rum" then response.write " style=""color: gren;"" "
if RecSet("Typ") = "Kanon" then response.write " style=""color: black;"" "
if valdProd = RecSet("objektId") then response.write " selected"%> >
<%=RecSet("objekt")%>



</option>



<%
RecSet.movenext
loop
RecSet.close
Set RecSet = nothing
%>
</code>

Tacksam för hjälp

/mvh Max

Hej, se lösningen på [Skifta f&#228;rger f&#246;r tabellrader], eller [Olika f&#228;rger p&#229; varannan rad...........]

Jag är inte ute efter att färga varannan rad, utan efter gruppering. ("Typ", som finns inlagt som en kolumn i databasen). Jag tycker det jag skrivit borde fungera...
Lösningen finns kanske i de tidigare trådarna, men jag ser den inte. :)

mvh Max

Mig veterligt kan du inte färga rader i en droplista. Tyvärr.

Jodå, det går alldeles utmärkt. Åtminstone om man använder css.

Du vet väl att den är känslig för små och stora bokstäver?

Du kan prova:
<code>
<select name="produktkod" onchange="submit();">
<option value="">Välj Objekt</option>
<%
Dim strColor
valdProd = request.querystring("produktkod")
if valdProd <> "" then
valdProd = Cint(valdProd)
End if

do until RecSet.EOF
Select case LCase(RecSet("Typ"))
Case "bil"
strColor = "blue"
Case "sal"
strColor = "red"
Case "rum"
strColor = "green"
Case "kanon"
strColor = "black"
End Select
If valdProd = RecSet("objektId") then
Response.Write "<option value="<%=RecSet("objektId")%>" style=""color: " & strColor & ";"" selected>" & RecSet("objekt") & "</option>"
Else
Response.Write "<option value="<%=RecSet("objektId")%>" style=""color: " & strColor & ";"">" & RecSet("objekt") & "</option>"
End If
RecSet.movenext
Loop
RecSet.close
Set RecSet = nothing
%>
</code>

Tusen tack!!
Fungerar alldeles utmärkt nu.

(Du hade bara missat:
Response.Write "<option value="<%=RecSet("objektId")%>"

ska vara

Response.Write "<option value=" & RecSet("objektId") & "
)

Än en gång: Tack!

/mvh Max

Tack Andreas!
Hade för mig att detta varit uppe förut, men ingen lyckats lösa det.