21/10/2009, 16:13
|
| | | Fecha de Ingreso: octubre-2009
Mensajes: 97
Antigüedad: 15 años, 6 meses Puntos: 4 | |
 Respuesta: Evitar borrado variables request.ServerVariables
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
<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> <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> <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>
|