Kolla QueryString mot DB Id

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 

...

Lösningen heter subtypskonvertering.

If Clng(Request.QueryString("prodvar")) = Clng(rsGetProductColors("Id")) Then

mvh

If Clng(Request.QueryString("prodvar")) = Clng(rsGetProductColors("Id")) Then response.write (" selected=selected")

@nders, lika kungligt som vanligt...