Hola, necesito hacer 3 selects dependientes y que al refreskar la pagina no se me borren las opciones anteriormente eskogidas....
tengo este kodigo,,, porfa si alguien lo pueda rebizar y me diga donde esta el error..
porrfiiiiiiiiiiiiiiiiiiiiisssss!!!!!!!
<form name="Formulario" method="post" action="Listar_Formulario.asp" target="Main_Frame">
<table width="900" border="0">
<tr>
<td width="359"><font size="2" face="Arial, Helvetica, sans-serif" color="#000031">Formulario</font>
<select name=id_formulario onChange="location.href('Selec_FormPeriodo.asp?id_ formulario=' + Formulario.id_formulario.options[Formulario.id_formulario.selectedIndex].value)">
<%
ses_minera=7
if Request.QueryString("id_formulario") = 0 then
response.write "<option value=0 name=Todos> Todos </option>"
else
response.write "<option> </option>"
response.write "<option value=0 name=Todos> Todos </option>"
end if
Sql_Formulario="select distinct id_formulario from calendario where id_estado=1 and id_minera='"&ses_minera&"' order by id_formulario asc"
Set Rs_Formulario=Createobject("ADODB.Recordset")
Rs_Formulario.Open Sql_Formulario, Connae
Do While not Rs_Formulario.eof
id_formulario = Rs_Formulario("id_formulario")
Sql_FormName="select distinct nombre from formulario where id_formulario="&id_formulario&" order by nombre asc"
Set Rs_FormName=Createobject("ADODB.Recordset")
Rs_FormName.Open Sql_FormName, Connae
Do While not Rs_FormName.eof
Nom_Form = Rs_FormName("nombre")
Var_Ext = Request.QueryString("id_formulario")
Var_Ext = CInt(Var_Ext)
if Var_Ext = id_formulario Then
Response.Write "<option value="&id_formulario&" &nombre="&Nom_Form&" selected> "&Nom_Form&" </option>"
else
Response.Write "<option value="&id_formulario&" &nombre="&Nom_Form&"> "&Nom_Form&" </option>"
end if
Rs_FormName.MoveNext
Loop
Rs_Formulario.MoveNext
Loop%>
</select>
</td>
<%id_formulario = Request.QueryString("id_formulario")
periodo_desde = Request.QueryString("periodo_desde")
if id_formulario = "0" Then %>
<%id_formulario = Request.QueryString("id_formulario")
periodo_desde = Request.QueryString("periodo_desde")
'response.Write(id_formulario)
response.Write(periodo_desde)%>
<td width="300"> <font size="2" face="Arial, Helvetica, sans-serif" color="#000031">Periodo Desde</font>
<select name=periodo_desde onChange="location.href('Selec_FormPeriodo.asp?id_ formulario=0&periodo_desde=' + Formulario.periodo_desde.options[Formulario.periodo_desde.selectedIndex].value)">
<%Sql_Periodo1="select distinct id_periodo, periodo from periodo order by id_periodo asc"
Set Rs_Periodo1=Createobject("ADODB.Recordset")
Rs_Periodo1.Open Sql_Periodo1, Connae
Do While not Rs_Periodo1.eof
id_periodo1 = Rs_Periodo1("id_periodo")
periodo1= Rs_Periodo1("periodo")
separa=split(periodo1," ")
ano1 = separa(0)
mes1 = separa(1)
set Rs_Mes=createobject("ADODB.Recordset")
Sql_Mes="select * from mes where numero_mes='"&mes1&"'"
Rs_Mes.open Sql_Mes,Connae
Do While not Rs_Mes.eof
Nom_Mes1=Rs_Mes("nombre")
Var_Ext = Request.QueryString("id_periodo1")
Var_Ext = CInt(Var_Ext)
response.Write(Var_Ext)
response.Write(periodo_desde)
if id_periodo1 <> periodo_desde Then
Response.Write "<option selected value="&id_periodo1&" &id_formulario="&id_formulario& ">"&id_periodo1&" " &ano1&" "&Nom_Mes1&" </option>"
else
Response.Write "<option value="&id_periodo1&" &id_formulario="&id_formulario&">"&id_periodo1& " "&ano1&" "&Nom_Mes1&" </option>"
end if
Rs_Mes.MoveNext
Loop
Rs_Periodo1.MoveNext
Loop%>
</select>
</td>
<%if Request.QueryString("periodo_desde") <> "" then
periodo_desde = Request.QueryString("periodo_desde")%>
<td width="300"> <font size="2" face="Arial, Helvetica, sans-serif" color="#000031"> Hasta</font>
<select name=periodo_hasta>
<% Sql_Periodo2="select distinct id_periodo, periodo from periodo order by id_periodo asc"
Set Rs_Periodo2=Createobject("ADODB.Recordset")
Rs_Periodo2.Open Sql_Periodo2, Connae
id_formulario = Request.QueryString("id_formulario")
periodo_desde = Request.QueryString("periodo_desde")
Do While not Rs_Periodo2.eof
id_periodo2 = Rs_Periodo2("id_periodo")
periodo2= Rs_Periodo2("periodo")
periodo_desde = Request.QueryString("periodo_desde")
separa=split(periodo2," ")
ano2 = separa(0)
mes2 = separa(1)
set Rs_Mes=createobject("ADODB.Recordset")
Sql_Mes="select * from mes where numero_mes='"&mes2&"'"
Rs_Mes.open Sql_Mes,Connae
Nom_Mes2=Rs_Mes("nombre")%>
<option value="<%=id_periodo2%>"><%response.Write(ano2&" "&Nom_Mes2)%></option>
<%Rs_Periodo2.MoveNext
Loop%>
</select>
</td>
<%
end if