I have used a cookie to store the value of a previously submitted select menu.

The script reads the cookie and attempts to pre-select the menu item based upon the cookie value.

Except it doesn't work for me and I cannot work out why.


<%
If Request.Cookies ("SamplesInBatch")("Batch") <> "" Then
BatchSelected = Request.Cookies ("SamplesInBatch")("Batch")
Else
BatchSelected = 0
End If
%>

<select name="Batch" id="Batch">
<% Dim i
strBatchSelected = ""
For i=0 to 5
IF i = BatchSelected Then
'Response.Write(BatchSelected)
strBatchSelected = "selected"
End If
response.Write("<option " & strBatchSelected & " value=""" & i & """>" & i & "</option>" & "")
Next
%>
</select>



If the value of the cookie ("SamplesInBatch")("Batch") is 3, then I would like to get the following:



<select name="Batch" id="Batch">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option selected value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>



Any ideas where I am going wrong? What's strange is that if I change the line:

'IF i = BatchSelected Then' to

'IF i = 3 Then' - I get some very strange results and menu item 3 and above gets the 'selected' treatment to give:


<select name="Batch" id="Batch">
<option value="0">0</option>
<option value="1">1</option>
<option value="2">2</option>
<option selected value="3">3</option>
<option selected value="4">4</option>
<option selected value="5">5</option>
</select>


Cheers,
Alski

Have I missed something? Which line(s) of code should I change?

In FF the bold text stands out, but not in ruddy IE!

I cheated/gave up on the For statement as I was getting odd results - but the following works fine:

<select name="Batch" id="Batch">
<option <%If BatchSelected = 0 Then Response.Write("selected=""selected""") End If%> value="0">0</option>
<option <%If BatchSelected = 1 Then Response.Write("selected=""selected""") End If%> value="1">1</option>
<option <%If BatchSelected = 2 Then Response.Write("selected=""selected""") End If%> value="2">2</option>
<option <%If BatchSelected = 3 Then Response.Write("selected=""selected""") End If%> value="3">3</option>
<option <%If BatchSelected = 4 Then Response.Write("selected=""selected""") End If%> value="4">4</option>
<option <%If BatchSelected = 5 Then Response.Write("selected=""selected""") End If%> value="5">5</option>
<option <%If BatchSelected = 6 Then Response.Write("selected=""selected""") End If%> value="6">6</option>

</select>