Hola
Cameron_2006,
Prueba con esto, en negritas los cambios:
Código:
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>
Saludos