Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/08/2009, 11:23
glory82
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 2 meses
Puntos: 0
Evitar borrado variables request.ServerVariables

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>