Hola,
Gracias por tu respuesta, pero lo que me escribiste no me funcionó, la verdad no se me ocurre que mas puedo hacer, que mas pudiera hacer para que no me borre el valor de las variables. Adjunto el codigo para que lo pruebe y veras que con session no me funciona.
Código HTML:
<html>
<head>
</head>
<body>
<form name="form" method="post" action="">
<font color="#009333">
Fecha
<select name="mes" style="height: 22px">
<option value="01" >ENERO</option>
<option value="02">FEBRERO</option>
<option value="03">MARZO</option>
<option value="04">ABRIL</option>
<option value="05">MAYO</option>
<option value="06">JUNIO</option>
<option value="07">JULIO</option>
<option value="08">AGOSTO</option>
<option value="09">SEPTIEMBRE</option>
<option value="10">OCTUBRE</option>
<option value="11">NOVIEMBRE</option>
<option value="12">DICIEMBRE</option>
</select> <font face="Arial" color="#009333" size="2">
<input name="Mostrar" type="submit" value="Mostrar"></font></font></form>
<%if request.ServerVariables("REQUEST_METHOD")="POST" then
Dim Fecha2
for each control in request.form
for indice=1 to request.form(control).count
response.write control & " = " & request.form(control)(indice)&"<br>"
select case control
case "ano": Fecha1 = request.form(control)
case "mes": Fecha2 = request.form(control)
case "dia": Fecha3 = request.form(control)
case "ano1": Fecha1_1 = request.form(control)
case "mes1": Fecha2_1 = request.form(control)
case "dia1": Fecha3_1 = request.form(control)
end select
next
next
Session("s_Fecha2")=Fecha2
%>
<p> <span class="style7"><strong>Datos desde el dia <%Response.write fecha1&"/"&fecha2&"/"&fecha3%>
</strong><span class="style5"></span></span></p>
<form name="form2" method="post" action="">
<%for i=0 to 3%>
<input type="radio" value="<%=i+1%>" name="radio">
<%next%>
<input type="submit" name="comprobar" value="comprobar">
</form>
<%if request.ServerVariables("REQUEST_METHOD")="POST" then
Fecha2 = Session ("S_Fecha2")
response.write Fecha2
for each control in request.form
for indice=1 to request.form(control).count
'response.write control & " = " & request.form(control)(indice)&"<br>"
next
next%>
<%end if
end if%>
</body></html>