holas,,, ya pude solucionar el problema....el problema esta en la komparacion...
envio el kódigo asp porsi alguna vez alguien lo necesita
gracias.. a kienes me respondieron
***************************************
<form name="Formulario" method="post" action="Listar_Formulario.asp" target="Main_Frame">
<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")
periodo_desde = Request.QueryString("periodo_desde")
response.Write(periodo_desde)
if id_periodo1 = periodo_desde Then %>
<option value="<%=Rs_Periodo1("id_periodo")%>" <%if request("periodo_desde")<>"" then if cint(request("periodo_desde"))=cint(Rs_Periodo1("i d_periodo")) then response.write "Selected"%>> <%=id_periodo1&" "&ano1&" "&Nom_Mes1%></option>
<%else%>
<option value="<%=Rs_Periodo1("id_periodo")%>" <%if request("periodo_desde")<>"" then if cint(request("periodo_desde"))=cint(Rs_Periodo1("i d_periodo")) then response.write "Selected"%>> <%=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