Visa aktiv i dropdown

Nu blir ju alla Selected.
Vilket är illa :(

testa:

<select onChange="location.href=this.options[this.selectedIndex].value">
<%strArea = Request.Querystring("area")
If strArea = "vision" OR strArea = "personal" OR strArea = "utbildning" OR strArea= "material" OR strArea= "kundkommunikation" OR strArea= "mat" OR strArea= "deli" OR strArea= "servering" OR strArea= "service" OR strArea= "bemanning" OR strArea= "logistik" OR strArea= "aktiviteter" OR strArea= "linxannat" OR strArea= "bilaga" Then
Set Rs = Server.CreateObject("ADODB.Recordset")
visa = "SELECT * FROM '" & strArea & "' ORDER BY ordning"
End If
Rs.Open visa, Connect, adOpenStatic, adLockOptimistic 
%>
<%
Do While Rs.EOF = false
If Rs("omrade") = strArea Then %>
<option value="visa.asp?area=<%=Rs("omrode")%>&identety=<%=Rs("identety")%>" selected><%=Rs("lenk")%></option>
<%
Else %>
<option value="visa.asp?area=<%=Rs("omrode")%>&identety=<%=Rs("identety")%>"><%=Rs("lenk")%></option>
<%
End If
Rs.MoveNext
Loop
%>
</select>

------------------
Motto: Flest If-taggar vinner!

Smidigare att fråga innan man skriver ut raden istället:

<%
Do While Rs.EOF = false

If Rs("omrade") = strArea Then
strSel = " selected"
else
strSel = ""
end if 
%>

<option value="visa.asp?area=<%=Rs("omrode")%>&identety=<%=Rs("identety")%>"<%=strSel%>><%=Rs("lenk")%></option>

<%
Rs.MoveNext
Loop
%>

På detta sätt tilldelas variabeln strSel ett värde i vilket fall, om den skall vara selected så tilldelas den " selected" annars blir den tom ( "" ).
------------------
Jag gillar chokladblå himmel.

[Redigerat av OveRRidE den 06 feb 2002]

[Redigerat av OveRRidE den 06 feb 2002]

Den blir tom hela tiden.

Vad är det som ska bestämma om valet skall markeras i selectboxen?

[r]: om det är ett subtypsproblem kan du ju alltid prova att konvertera i jämförelsen:

If cstr(Rs("omrade")) = cstr(strArea) Then

Mvh,

------------------
Let your body decide

[Redigerat av @nders den 06 feb 2002]

Får inte till det.
Blir fort samma sak.
Den visar det sista alternativet högst upp.

<select onChange="location.href=this.options[this.selectedIndex].value">
						  <%strArea = Request.Querystring("area")
If strArea = "vision" OR strArea = "personal" OR strArea = "utbildning" OR strArea= "material" OR strArea= "kundkommunikation" OR strArea= "mat" OR strArea= "deli" OR strArea= "servering" OR strArea= "service" OR strArea= "bemanning" OR strArea= "logistik" OR strArea= "aktiviteter" OR strArea= "linxannat" OR strArea= "bilaga" Then
Set Rs = Server.CreateObject("ADODB.Recordset")
visa = "SELECT * FROM " & strArea & " ORDER BY ordning"
End If
Rs.Open visa, Connect, adOpenStatic, adLockOptimistic 
%>

<%
Do While Rs.EOF = false
If cstr(Rs("omrode")) = cstr(strArea) Then
strSel = " selected"
else
strSel = ""
end if 
%>

<option value="visa.asp?area=<%=Rs("omrode")%>&identety=<%=Rs("identety")%>"<%=strSel%>><%=Rs("lenk")%></option>

<%
Rs.MoveNext
Loop
%>
						  </select>

Och det är rs("omrade") som ska jämföras med strArea?

Om du kikar på den färdiga html-koden som skickats till din webbläsare, finns selected med någonstans bland dina options då?

------------------
Let your body decide

Ja.
Alla blir selected.

vad står det för något i Rs("omrade")?
står det lika i alla posterna så blir ju alla selected också!

------------------
Motto: Flest If-taggar vinner!

Jo det har du rätt i.
Jag använder Rs("lenk") till att skriva ut alla val i dropdownen.
Så jag vet inte hur jag skall jämföra.

[Redigerat av StefanP den 06 feb 2002]

Nu löste jag det tillslut.

<%
Response.Write "<option value='visa.asp?area=" & Rs("omrode") & "&identety=" & trim(Rs("identety")) & "' "
if Request("area") = Rs("omrode") AND Request("identety") = trim(Rs("identety")) Then
Response.write " selected"
end if
Response.Write ">" & Rs("lenk") & "</option>"
%>

Tack för all hjälp.