formulario con Registro seleccionado (select)

[Cameron_2006]

No me funcionó, lo puse tal cual y nada, le quité el cint y tampoco, así está actualmente:

<select name="cod_categoria" size="1" id="cod_categoria">
<%
Do While not rs.eof
strSelected = ""
if rs.Fields("cod_cat") =cint(cod_cat) then
strSelected = "selected"
else
strSelected = ""
end if
%>
<option value="<%=rs.Fields("cod_cat") %>"<%=strSelected%>><%=rs("categoria")%></option>
<% rs.movenext
Loop %>
</select>