les paso un codigo el mismo tiene dos combos dependientes uno categoria y el otro subctaegoria , el tema que cuando refresca me muestra la subcategoria pero no queda la categoria , es decir queda " elija una opcion" como hago para que cuando refresque la categoria quede adentro del combox
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script>
function update_combo(){
var selected_option = document.form1.categorias.options[document.form1.categorias.selectedIndex]
url = selected_option.value
selected_option.selected = true;
window.location = url;
}
</script>
</head>
<body>
<%
Dim IdCategoria
if Request.QueryString("id_cat") = "" then
IdCategoria = 1
else
IdCategoria = Request.QueryString("id_cat")
end if
set fst_combo = Server.CReateObject("ADODB.RecordSet")
fst_combo.Open "SELECT IdCat, Categoria FROM tabla_categorias", tu_conexion
%>
<Form Method="POST" action="something.asp" name="form1">
<Select name="categorias" onchange="update_combo()">
<option>[Seleccione una categoría]</option>
<%
do until fst_combo.EOF
%>
<option value="listas_desp.asp?id_cat=<%=RS("IdCat")%>"><% =RS("Categoria")%></option>
<%
fst_combo.MoveNext
loop
fst_combo.Close
set fst_combo = nothing
%>
</Select>
<%
set snd_combo = Server.CreateObject("ADODB.RecordSet")
snd_combo.Open "SELECT subCategoria FROM tabla_subCategorias WHERE IdCat_subCat = "&IdCategoria&"", tu_conexion
%>
<select name="subcategorias">
<%
do until snd_combo.EOf
%>
<option><%=snd_combo("subCategoria")%>
<%
snd_combo.MoveNext
Loop
snd_combo.Close
set snd_combo = nothing
%>
</select>
</Form>
</body>
</html>
gracias
