Jag vill i en dropdown som skrivs ut med Do Until rsGetProductColors.EOF kolla om någon post i databasens räknarfält motsvarar den siffra som finns i QueryStringen. Men det fungerar inte, "selected" skrivs inte ut fast det inträffar en matchning.
<% Do Until rsGetProductColors.EOF %>
<option value="<% = rsGetProductColors("Id") %>"<% If Request.QueryString("prodvar") = rsGetProductColors("Id") Then Response.Write(" selected") End If %>><% = rsGetProductColors("Color") %> + <% = rsGetProductColors("ExtraCharge") & " " & strCurrency %></option>
<% rsGetProductColors.MoveNext
Loop %>
Om det är numeriska värde kan du behöva formatera värdena för att få rätt resultat, en variant:
...
Function fIsSelected(value1,value2)
If IsNumeric(value1) AND IsNumeric(value2) Then
If cLng(value1) = cLng(value2) Then
fIsSelected = " selected=""selected"""
End If
Else
If trim(value1) = trim(value2) Then
fIsSelected = " selected=""selected"""
End If
End If
End If
...
Do Until rsGetProductColors.EOF
Response.Write "<option value="""& rsGetProductColors("Id") &""""& fIsSelected(Request.QueryString("prodvar"),rsGetProductColors("Id")) &">"& rsGetProductColors("Color") &" + "& rsGetProductColors("ExtraCharge") &" "& strCurrency &"</option>"
rsGetProductColors.MoveNext
Loop
...
