Cargar datos en un listbox.

Buenas compañeros, tengo un problema, tengo una parte del código que cargo
una serie de datos de una tabla en un listbox, y si seleccionas cualquiera
hace lo que debe de hacer, esto es todo correcto. Pero al recargar la página,
quiero saber cual he seleccionado, y tenerlo seleccionado, pero no hace nada.

Este sería el código de la parte que no funciona, falta muicho código, pero
sólo pongo el que yo creo que interesa

if Request.form("consulta_usuario") = "" then
cusuario = "0"
else
cusuario = Request.form("consulta_usuario")
end if

strQuery= "SELECT * from usuarios"
Set USR = conn.Execute(strQuery)


<td width="45%">Usuario:<img src="imagenes/space.gif" height="1" width="21">
<select name="consulta_usuario"
style="font-size:15px;border-style:solid;border-width:1px;border-color:#FE0000;background-color:#FFE69E;color:#FE0000">

<option <% if cusuario < 1 then %>selected<% end if %> value="0"
name="usuario"><script>prueba();</script></option>
<%Do While not USR.eof%>
<option <%if cusuario = USR("id_usuario") then%> selected <%end if%>
value="<%=response.write(USR("id_usuario"))%>">
<%=response.write(USR("nombre"))%>
</option>
<%USR.movenext
loop%>
</select>
</td>

Digamos que guardo en cusuario, el usuario que he seleccionado, y al hacer
la búsqueda, al recargar la página, quiero que ese usuario sea el que está
otra vez seleccionado, para saber que he hecho la vez anterior.


Gracias y un saludo.
Rober.