Evitar borrado variables request.ServerVariables

glory82 · #1 (**permalink**) 20/08/2009, 11:23

Hola,
Tengo un formulario el cual tiene 2 botones, uno para mostrar unos datos (Mostrar) y otro boton (comprobar) para comprobar otros datos de acuerdo a la seleccion radio que escogen.
El problema es que cuando clic al 2 boton (comprobar) me borra los datos ya mostrados.
Habia pensado en definir las variables con Dim o Public pero no me fuciona. Como puedo hacer para que se mantenga el valor de las variables.
De antemano muchas gracias al que me pueda ayudar.
Adjunto el codigo.

Código HTML:

<html>
<head>
</head>
<body>
<form name="form" method="post" action="">
  <font color="#009333">
  Fecha&nbsp;
    <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>&nbsp;&nbsp; <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 Fecha1
    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
	FechaReport 	= fecha1 & "-" & Fecha2 & "-" & Fecha3 
    FechaReport_1 	= fecha1_1 & "-" & Fecha2_1 & "-" & Fecha3_1 %>
	<p>&nbsp;<span class="style7"><strong>Datos desde el dia <%Response.write fecha1&"/"&fecha2&"/"&fecha3%>
     </strong><span class="style5"></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
		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>

bebo · #2 (**permalink**) 21/10/2009, 16:13

Trata así:

Código:

<%dim mes(12)
mes(1)="Enero"
mes(2)="Febrero"
mes(3)="Marzo"
mes(4)="Abril"
mes(5)="Mayo"
mes(6)="Junio"
mes(7)="Julio"
mes(8)="Agosto"
mes(9)="Septiembre"
mes(10)="Octubre"
mes(11)="Noviembre"
mes(12)="Diciembre"%>
<html>
<head>
</head>
<body>
<form name="form" method="post" action="">
  <font color="#009333">
  Fecha&nbsp;
    <select name="mes" style="height: 22px"><%
for u=1 to 12%><option value="<%=u%>" <%if request("mes")=cstr(u) then%>selected<%end if%>><%=mes(u)%></option><%
next%>
   	      </select>&nbsp;&nbsp; <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 Fecha1
    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
	FechaReport 	= fecha1 & "-" & Fecha2 & "-" & Fecha3 
    FechaReport_1 	= fecha1_1 & "-" & Fecha2_1 & "-" & Fecha3_1 %>
	<p>&nbsp;<span class="style7"><strong>Datos desde el dia <%Response.write fecha1&"/"&fecha2&"/"&fecha3%>
     </strong><span class="style5"></span></p>
	<form name="form2" method="post" action=""><input type=hidden name=mes value="<%=request("mes")%>">
	<%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
		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>