Foros del Web » Programando para Internet » ASP Clásico »

Clic boton no hace nada

Estas en el tema de Clic boton no hace nada en el foro de ASP Clásico en Foros del Web. Hola, tengo un problema y es que cuando doy clic a un boton (en este caso "Ver fermentacion") para mostrar datos no hace nada. Que ...
  #1 (permalink)  
Antiguo 19/08/2009, 12:31
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Clic boton no hace nada

Hola, tengo un problema y es que cuando doy clic a un boton (en este caso "Ver fermentacion") para mostrar datos no hace nada.
Que puedo hacer, que me falta x agregar??
Adjunto el codigo. Muchas gracias al que me pueda colaborar!!!

Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ElabCavas.asp" -->
<!--#include file="Connections/InSQL2.asp" -->
<html>
<head>
<title>ControlFermTanque</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
.style2 {
	color: #009933;
}
.style6 {
	text-align: left;
}
.style8 {
	color: #006633;
	text-align: center;
}
.style39 {
	font-size: 11pt;
	text-align: center;
	color: #006633;
}
.style7 {
	color: #009933;
}
.style1 {
	font-size: medium;
}
.style5 {
	color: #006633;
}
.style40 {
	text-align: center;
}
</style>
</head>

<body>
<form method="post" action="">
<span class="style2">
</span>
  <font color="#009333">
  Fecha Inicial:
    <select name="ano">
      <option value="2004">2004</option>
      <option value="2005">2005</option>
      <option value="2006">2006</option>
      <option value="2007">2007</option>
      <option value="2008" >2008</option>
      <option value="2009">2009</option>
      <option value="2010">2010</option>
      <option value="2011">2011</option>
      <option value="2012">2012</option>
      <option value="2013">2013</option>
      <option value="2014">2014</option>
      <option value="2015">2015</option>
      <option value="2016">2016</option>
      <option value="2017">2017</option>
      <option value="2018">2018</option>
      <option value="2019">2019</option>
      <option value="2020">2020</option>
    </select>
    <select name="mes">
      <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>
    <select name="dia" style="height: 22px; width: 45px">
	  <option value="">Día</option>
      <option value="01" selected>1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
      <option value="13">13</option>
      <option value="14">14</option>
      <option value="15">15</option>
      <option value="16">16</option>
      <option value="17">17</option>
      <option value="18">18</option>
      <option value="19">19</option>
      <option value="20">20</option>
      <option value="21">21</option>
      <option value="22">22</option>
      <option value="23">23</option>
      <option value="24">24</option>
      <option value="25">25</option>
      <option value="26">26</option>
      <option value="27">27</option>
      <option value="28">28</option>
      <option value="29">29</option>
      <option value="30">30</option>
      <option value="31">31</option>
    </select>
    Fecha Final<font color="#009333" size="2">:</font> 
    <select name="ano1">
      <option value="2004">2004</option>
      <option value="2005">2005</option>
      <option value="2006">2006</option>
      <option value="2007">2007</option>
      <option value="2008" >2008</option>
      <option value="2009">2009</option>
      <option value="2010">2010</option>
      <option value="2011">2011</option>
      <option value="2012">2012</option>
      <option value="2013">2013</option>
      <option value="2014">2014</option>
      <option value="2015">2015</option>
      <option value="2016">2016</option>
      <option value="2017">2017</option>
      <option value="2018">2018</option>
      <option value="2019">2019</option>
      <option value="2020">2020</option>
    </select>
    <select name="mes1" 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>
    <select name="dia1">
	       <option value="01" >1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
      <option value="13">13</option>
      <option value="14">14</option>
      <option value="15">15</option>
      <option value="16">16</option>
      <option value="17">17</option>
      <option value="18">18</option>
      <option value="19">19</option>
      <option value="20">20</option>
      <option value="21">21</option>
      <option value="22">22</option>
      <option value="23">23</option>
      <option value="24">24</option>
      <option value="25">25</option>
      <option value="26">26</option>
      <option value="27">27</option>
      <option value="28">28</option>
      <option value="29">29</option>
      <option value="30">30</option>
      <option value="31">31</option>
    </select>&nbsp; <font face="Arial" color="#009333" size="2">  
    <input name="Mostrar" type="submit" value="Mostrar"></font></font>
	</form>
<%if Request.form("Mostrar") = "Mostrar" then

	Fecha1 = request.form("ano")
	Fecha2 = request.form("mes")
	Fecha3 = request.form("dia")
	FechaReport = fecha1 & "-" & Fecha2 & "-" & Fecha3 
	Fecha1_1 = request.form("ano1")
	Fecha2_1 = request.form("mes1")
	Fecha3_1 = request.form("dia1")
	FechaReport_1 = fecha1_1 & "-" & Fecha2_1 & "-" & Fecha3_1 

	FechaReport1 = "'" & Replace(FechaReport, "'", "''") & " " & "00:00" & "'"
	FechaReport2 = "'" & Replace(FechaReport_1, "'", "''") & " " & "23:59" & "'"

	Dim Tabla(100,6)	
	Dim Siembra
	Set Siembra = Server.CreateObject("ADODB.Recordset")
	Siembra.ActiveConnection = MM_ElabCavas_STRING
	Siembra.Source = "SELECT Tanque, NumCto, NumLote, Producto, FechaInicial, FechaFinal FROM dbo.SiembraTanques  WHERE FechaFinal Between "+FechaReport1+" and "+FechaReport2+"  and FinLlenado = '1' ORDER BY FechaFinal "
	Siembra.CursorType = 0
	Siembra.CursorLocation = 2
	Siembra.LockType = 1
	Siembra.Open()

	if (Not Siembra.eof) then%>
		<p>&nbsp;<span class="style7"><strong>Datos desde el día <%Response.write Day(FechaReport)&"/"&Month(FechaReport)&"/"&Year(FechaReport)%> hasta el 
		día</strong> </span> <font size="2" color="#009933" class="style1"><strong><%Response.write Day(FechaReport_1)&"/"&Month(FechaReport_1)&"/"&Year(FechaReport_1)%>
		</strong> </font><span class="style5"></span></p>
		<table border="1" style="width: 524px">
		<tr>
			<td colspan="5" class="style8"><strong>DATOS DEL TANQUE</strong></td>
		</tr>
		<tr>
			<td class="style39" style="width: 4586px; height: 21px;"><strong>Fecha Fin Llenado</strong></td>
			<td class="style39" style="width: 2625px; height: 21px"><strong>Lote</strong></td>
			<td class="style39" style="height: 21px"><strong>Tanque</strong></td>
			<td class="style39" style="height: 21px"><strong>Cto</strong></td>
			<td class="style39" style="width: 38px; height: 21px;"><strong>Producto</strong></td>
		</tr>
		<%Siembra.movefirst()	
		i=0
		Do while (Not Siembra.eof) 
			Tabla(i,0)	 		= Siembra.fields.item("FechaFinal").value
			Tabla(i,1)	 		= Siembra.fields.item("NumLote").value
			Tabla(i,2)			= Trim(Siembra.fields.item("Tanque").value)
			Tabla(i,3)			= Siembra.fields.item("NumCto").value
			Tabla(i,4)			= Siembra.fields.item("Producto").value
			i=i+1
		Siembra.movenext()	
		Loop
		Final = i-1
		Session("S_Tabla") = Tabla
		Session("S_final") = final
		for i = 0 to final%>
			<tr>
				<td class="style6" style="width: 6586px">
				<input name="radio" type="radio" value="<%=i%>"><%Response.write "&nbsp;"%><%Response.write Tabla (i,0)%></td>
				<td class="style40" style="width: 2625px"><%Response.write Tabla (i,1)%></td>
				<td class="style40" style="width: 2388px"><%Response.write Tabla (i,2)%></td>
				<td class="style40" style="width: 1135px"><%Response.write Tabla (i,3)%></td>
				<td class="style40" style="width: 1237px"><%Response.write Tabla (i,4)%></td>
			</tr>
			<%tabla (i,5) = i
		next%>
		<tr>
			<td class="style40" colspan="5"><font face="Arial" color="#009333" size="2">  
			<input name="ver" type="submit" value="Ver Fermentacion"></font></td>
		</tr>
		</table>
	<%end if
	Siembra.Close()
	Set Siembra= Nothing%>
	<%'----------MOSTRAR LSO DATOS DE FERMENTACION----------------
                'cuando doy clic a este boton deberia mostrarme la palabra buuu pero no hace nada
	if Request.form("ver") = "Ver Fermentacion" then
		Response.write "buuuu"
	end if
end if%>	
</body>
</html> 

Última edición por glory82; 19/08/2009 a las 12:38
  #2 (permalink)  
Antiguo 19/08/2009, 12:35
Avatar de Muzztein  
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 22 años, 7 meses
Puntos: 16
Respuesta: Clic boton no hace nada

no se que hara tu aplicacion, pero TODO boton SUBMIT para que funcione , debe estar dentro de un FORM
  #3 (permalink)  
Antiguo 19/08/2009, 12:38
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Respuesta: Clic boton no hace nada

Hola, si coloco el boton dentro de un form igual no me muestra nada, antes me borra todo lo que la pagina tiene, o no si se tengo el form mal puesto.
Gracias
  #4 (permalink)  
Antiguo 19/08/2009, 14:09
 
Fecha de Ingreso: diciembre-2008
Ubicación: Madrid
Mensajes: 78
Antigüedad: 16 años, 4 meses
Puntos: 2
Respuesta: Clic boton no hace nada

Como te han dicho el botón debe estar dentro de unas etiquetas FORM, ahora mismo el botón no está asignado a ninguna acción, así que es normal que no haga nada.

Otra opción es que llame a una fucnión JAVASCRIPT.

SALUDOS
  #5 (permalink)  
Antiguo 19/08/2009, 15:45
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Clic boton no hace nada

Hola

Creo que busca algo como esto. Cuando sumite el formulario, recoger los valores en la misma página del form

Código asp:
Ver original
  1. IF UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" Then
  2. Fecha1 = request.form("ano")
  3.     Fecha2 = request.form("mes")
  4.     Fecha3 = request.form("dia")
  5.     FechaReport = fecha1 & "-" & Fecha2 & "-" & Fecha3
  6.     Fecha1_1 = request.form("ano1")
  7.     Fecha2_1 = request.form("mes1")
  8.     Fecha3_1 = request.form("dia1")
  9.     FechaReport_1 = fecha1_1 & "-" & Fecha2_1 & "-" & Fecha3_1
  10.  
  11.     FechaReport1 = "'" & Replace(FechaReport, "'", "''") & " " & "00:00" & "'"
  12.     FechaReport2 = "'" & Replace(FechaReport_1, "'", "''") & " " & "23:59" & "'"
  13.  
  14.     Dim Tabla(100,6)   
  15.     Dim Siembra
  16.     Set Siembra = Server.CreateObject("ADODB.Recordset")
  17.     Siembra.ActiveConnection = MM_ElabCavas_STRING
  18.     Siembra.Source = "SELECT Tanque, NumCto, NumLote, Producto, FechaInicial, FechaFinal FROM dbo.SiembraTanques  WHERE FechaFinal Between "+FechaReport1+" and "+FechaReport2+"  and FinLlenado = '1' ORDER BY FechaFinal "
  19.     Siembra.CursorType = 0
  20.     Siembra.CursorLocation = 2
  21.     Siembra.LockType = 1
  22.     Siembra.Open()
  23.  
  24.     if (Not Siembra.eof) then%>
  25.         <p>&nbsp;<span class="style7"><strong>Datos desde el día <%Response.write Day(FechaReport)&"/"&Month(FechaReport)&"/"&Year(FechaReport)%> hasta el
  26.         día</strong> </span> <font size="2" color="#009933" class="style1"><strong><%Response.write Day(FechaReport_1)&"/"&Month(FechaReport_1)&"/"&Year(FechaReport_1)%>
  27.         </strong> </font><span class="style5"></span></p>
  28.         <table border="1" style="width: 524px">
  29.         <tr>
  30.             <td colspan="5" class="style8"><strong>DATOS DEL TANQUE</strong></td>
  31.         </tr>
  32.         <tr>
  33.             <td class="style39" style="width: 4586px; height: 21px;"><strong>Fecha Fin Llenado</strong></td>
  34.             <td class="style39" style="width: 2625px; height: 21px"><strong>Lote</strong></td>
  35.             <td class="style39" style="height: 21px"><strong>Tanque</strong></td>
  36.             <td class="style39" style="height: 21px"><strong>Cto</strong></td>
  37.             <td class="style39" style="width: 38px; height: 21px;"><strong>Producto</strong></td>
  38.         </tr>
  39.         <%Siembra.movefirst()  
  40.         i=0
  41.         Do while (Not Siembra.eof)
  42.             Tabla(i,0)          = Siembra.fields.item("FechaFinal").value
  43.             Tabla(i,1)          = Siembra.fields.item("NumLote").value
  44.             Tabla(i,2)          = Trim(Siembra.fields.item("Tanque").value)
  45.             Tabla(i,3)          = Siembra.fields.item("NumCto").value
  46.             Tabla(i,4)          = Siembra.fields.item("Producto").value
  47.             i=i+1
  48.         Siembra.movenext() 
  49.         Loop
  50.         Final = i-1
  51.         Session("S_Tabla") = Tabla
  52.         Session("S_final") = final
  53.         for i = 0 to final%>
  54.             <tr>
  55.                 <td class="style6" style="width: 6586px">
  56.                 <input name="radio" type="radio" value="<%=i%>"><%Response.write "&nbsp;"%><%Response.write Tabla (i,0)%></td>
  57.                 <td class="style40" style="width: 2625px"><%Response.write Tabla (i,1)%></td>
  58.                 <td class="style40" style="width: 2388px"><%Response.write Tabla (i,2)%></td>
  59.                 <td class="style40" style="width: 1135px"><%Response.write Tabla (i,3)%></td>
  60.                 <td class="style40" style="width: 1237px"><%Response.write Tabla (i,4)%></td>
  61.             </tr>
  62.             <%tabla (i,5) = i
  63.         next%>
  64.         <tr>
  65.             <td class="style40" colspan="5"><font face="Arial" color="#009333" size="2">  
  66.             <input name="ver" type="submit" value="Ver Fermentacion"></font></td>
  67.         </tr>
  68.         </table>
  69.     <%end if
  70.     Siembra.Close()
  71.     Set Siembra= Nothing%>
  72.     <%'----------MOSTRAR LSO DATOS DE FERMENTACION----------------
  73.                 'cuando doy clic a este boton deberia mostrarme la palabra buuu pero no hace nada
  74.     if Request.form("ver") = "Ver Fermentacion" then
  75.         Response.write "buuuu"
  76.     end if
  77. ELSE
  78. %>
  79.  
  80.  
  81. <form method="post" action="A ESTA MISMA PAGINA">
  82. <span class="style2">
  83. </span>
  84.   <font color="#009333">
  85.   Fecha Inicial:
  86.     <select name="ano">
  87.       <option value="2004">2004</option>
  88.       <option value="2005">2005</option>
  89.       <option value="2006">2006</option>
  90.       <option value="2007">2007</option>
  91.       <option value="2008" >2008</option>
  92.       <option value="2009">2009</option>
  93.       <option value="2010">2010</option>
  94.       <option value="2011">2011</option>
  95.       <option value="2012">2012</option>
  96.       <option value="2013">2013</option>
  97.       <option value="2014">2014</option>
  98.       <option value="2015">2015</option>
  99.       <option value="2016">2016</option>
  100.       <option value="2017">2017</option>
  101.       <option value="2018">2018</option>
  102.       <option value="2019">2019</option>
  103.       <option value="2020">2020</option>
  104.     </select>
  105.     <select name="mes">
  106.       <option value="01" >ENERO</option>
  107.       <option value="02">FEBRERO</option>
  108.       <option value="03">MARZO</option>
  109.       <option value="04">ABRIL</option>
  110.       <option value="05">MAYO</option>
  111.       <option value="06">JUNIO</option>
  112.       <option value="07">JULIO</option>
  113.       <option value="08">AGOSTO</option>
  114.       <option value="09">SEPTIEMBRE</option>
  115.       <option value="10">OCTUBRE</option>
  116.       <option value="11">NOVIEMBRE</option>
  117.       <option value="12">DICIEMBRE</option>
  118.     </select>
  119.     <select name="dia" style="height: 22px; width: 45px">
  120.       <option value="">Día</option>
  121.       <option value="01" selected>1</option>
  122.       <option value="02">2</option>
  123.       <option value="03">3</option>
  124.       <option value="04">4</option>
  125.       <option value="05">5</option>
  126.       <option value="06">6</option>
  127.       <option value="07">7</option>
  128.       <option value="08">8</option>
  129.       <option value="09">9</option>
  130.       <option value="10">10</option>
  131.       <option value="11">11</option>
  132.       <option value="12">12</option>
  133.       <option value="13">13</option>
  134.       <option value="14">14</option>
  135.       <option value="15">15</option>
  136.       <option value="16">16</option>
  137.       <option value="17">17</option>
  138.       <option value="18">18</option>
  139.       <option value="19">19</option>
  140.       <option value="20">20</option>
  141.       <option value="21">21</option>
  142.       <option value="22">22</option>
  143.       <option value="23">23</option>
  144.       <option value="24">24</option>
  145.       <option value="25">25</option>
  146.       <option value="26">26</option>
  147.       <option value="27">27</option>
  148.       <option value="28">28</option>
  149.       <option value="29">29</option>
  150.       <option value="30">30</option>
  151.       <option value="31">31</option>
  152.     </select>
  153.     Fecha Final<font color="#009333" size="2">:</font>
  154.     <select name="ano1">
  155.       <option value="2004">2004</option>
  156.       <option value="2005">2005</option>
  157.       <option value="2006">2006</option>
  158.       <option value="2007">2007</option>
  159.       <option value="2008" >2008</option>
  160.       <option value="2009">2009</option>
  161.       <option value="2010">2010</option>
  162.       <option value="2011">2011</option>
  163.       <option value="2012">2012</option>
  164.       <option value="2013">2013</option>
  165.       <option value="2014">2014</option>
  166.       <option value="2015">2015</option>
  167.       <option value="2016">2016</option>
  168.       <option value="2017">2017</option>
  169.       <option value="2018">2018</option>
  170.       <option value="2019">2019</option>
  171.       <option value="2020">2020</option>
  172.     </select>
  173.     <select name="mes1" style="height: 22px">
  174.       <option value="01" >ENERO</option>
  175.       <option value="02">FEBRERO</option>
  176.       <option value="03">MARZO</option>
  177.       <option value="04">ABRIL</option>
  178.       <option value="05">MAYO</option>
  179.       <option value="06">JUNIO</option>
  180.       <option value="07">JULIO</option>
  181.       <option value="08">AGOSTO</option>
  182.       <option value="09">SEPTIEMBRE</option>
  183.       <option value="10">OCTUBRE</option>
  184.       <option value="11">NOVIEMBRE</option>
  185.       <option value="12">DICIEMBRE</option>
  186.     </select>
  187.     <select name="dia1">
  188.            <option value="01" >1</option>
  189.       <option value="02">2</option>
  190.       <option value="03">3</option>
  191.       <option value="04">4</option>
  192.       <option value="05">5</option>
  193.       <option value="06">6</option>
  194.       <option value="07">7</option>
  195.       <option value="08">8</option>
  196.       <option value="09">9</option>
  197.       <option value="10">10</option>
  198.       <option value="11">11</option>
  199.       <option value="12">12</option>
  200.       <option value="13">13</option>
  201.       <option value="14">14</option>
  202.       <option value="15">15</option>
  203.       <option value="16">16</option>
  204.       <option value="17">17</option>
  205.       <option value="18">18</option>
  206.       <option value="19">19</option>
  207.       <option value="20">20</option>
  208.       <option value="21">21</option>
  209.       <option value="22">22</option>
  210.       <option value="23">23</option>
  211.       <option value="24">24</option>
  212.       <option value="25">25</option>
  213.       <option value="26">26</option>
  214.       <option value="27">27</option>
  215.       <option value="28">28</option>
  216.       <option value="29">29</option>
  217.       <option value="30">30</option>
  218.       <option value="31">31</option>
  219.     </select>&nbsp; <font face="Arial" color="#009333" size="2">  
  220.     <input name="Mostrar" type="submit" value="Mostrar"></font></font>
  221.     </form>
  222.  
  223.  
  224. <%END IF%>

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #6 (permalink)  
Antiguo 20/08/2009, 08:12
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Respuesta: Clic boton no hace nada

Hola,
Muchas gracias por su ayuda, pero lo que me escribiste no me sirvió, ya que al dar clic en el boton Ver no sucede nada y necesito que se sigan viendo los datos que ya habia mostrado con el boton Mostrar, mas la nueva tabla que se muestra al dar clic a Ver. Coloque todo dentro de un form pero lo que hace el codigo cuando doy clic al boton Ver es que me borra todo. Que mas puedo hacer??
Adjunto el codigo. Muchas gracias!!!!
Código HTML:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ElabCavas.asp" -->
<!--#include file="Connections/InSQL2.asp" -->
<html>
<head>
<title>ControlFermTanque</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form method="post" action="">
<span class="style2">
</span>
  <font color="#009333">
  Fecha Inicial:&nbsp;&nbsp;
    <select name="dia" style="height: 22px; width: 45px">
	  <option value="">Día</option>
      <option value="01" selected>1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
      <option value="13">13</option>
      <option value="14">14</option>
      <option value="15">15</option>
      <option value="16">16</option>
      <option value="17">17</option>
      <option value="18">18</option>
      <option value="19">19</option>
      <option value="20">20</option>
      <option value="21">21</option>
      <option value="22">22</option>
      <option value="23">23</option>
      <option value="24">24</option>
      <option value="25">25</option>
      <option value="26">26</option>
      <option value="27">27</option>
      <option value="28">28</option>
      <option value="29">29</option>
      <option value="30">30</option>
      <option value="31">31</option>
    </select>
    Fecha Final<font color="#009333" size="2">:</font>&nbsp;&nbsp;
    <select name="dia1">
      <option value="01" >1</option>
      <option value="02">2</option>
      <option value="03">3</option>
      <option value="04">4</option>
      <option value="05">5</option>
      <option value="06">6</option>
      <option value="07">7</option>
      <option value="08">8</option>
      <option value="09">9</option>
      <option value="10">10</option>
      <option value="11">11</option>
      <option value="12">12</option>
      <option value="13">13</option>
      <option value="14">14</option>
      <option value="15">15</option>
      <option value="16">16</option>
      <option value="17">17</option>
      <option value="18">18</option>
      <option value="19">19</option>
      <option value="20">20</option>
      <option value="21">21</option>
      <option value="22">22</option>
      <option value="23">23</option>
      <option value="24">24</option>
      <option value="25">25</option>
      <option value="26">26</option>
      <option value="27">27</option>
      <option value="28">28</option>
      <option value="29">29</option>
      <option value="30">30</option>
      <option value="31">31</option>
    </select>&nbsp; <font face="Arial" color="#009333" size="2">  
    <input name="Mostrar" type="submit" value="Mostrar"></font></font>
<%IF Request.form("Mostrar") = "Mostrar" then
	Fecha1 = request.form("ano")
    Fecha2 = request.form("mes")
    Fecha3 = request.form("dia")
    FechaReport = fecha1 & "-" & Fecha2 & "-" & Fecha3 
    Fecha1_1 = request.form("ano1")
    Fecha2_1 = request.form("mes1")
    Fecha3_1 = request.form("dia1")
    FechaReport_1 = fecha1_1 & "-" & Fecha2_1 & "-" & Fecha3_1 
 
    FechaReport1 = "'" & Replace(FechaReport, "'", "''") & " " & "00:00" & "'"
    FechaReport2 = "'" & Replace(FechaReport_1, "'", "''") & " " & "23:59" & "'"
 
    Dim Tabla(100,6)    
    Dim Siembra
    Set Siembra = Server.CreateObject("ADODB.Recordset")
    Siembra.ActiveConnection = MM_ElabCavas_STRING
    Siembra.Source = "SELECT Tanque, NumCto, NumLote, Producto, FechaInicial, FechaFinal FROM dbo.SiembraTanques  WHERE FechaFinal Between "+FechaReport1+" and "+FechaReport2+"  and FinLlenado = '1' ORDER BY FechaFinal "
    Siembra.CursorType = 0
    Siembra.CursorLocation = 2
    Siembra.LockType = 1
    Siembra.Open()
 
    if (Not Siembra.eof) then%>
        <p>&nbsp;<span class="style7"><strong>Datos desde el día <%Response.write Day(FechaReport)&"/"&Month(FechaReport)&"/"&Year(FechaReport)%> 
		hasta el día</strong> </span> <font size="2" color="#009933" class="style1"><strong><%Response.write Day(FechaReport_1)&"/"&Month(FechaReport_1)&"/"&Year(FechaReport_1)%>
        </strong> </font><span class="style5"></span></p>
        <table border="1" style="width: 524px">
        <tr>
            <td colspan="5" class="style8"><strong>DATOS DEL TANQUE</strong></td>
        </tr>
        <tr>
            <td class="style39" style="width: 4586px; height: 21px;"><strong>
			Fecha Fin Llenado</strong></td>
            <td class="style39" style="width: 2625px; height: 21px"><strong>Lote</strong></td>
            <td class="style39" style="height: 21px"><strong>Tanque</strong></td>
            <td class="style39" style="height: 21px"><strong>Cto</strong></td>
            <td class="style39" style="width: 38px; height: 21px;"><strong>
			Producto</strong></td>
        </tr>
        <%Siembra.movefirst()   
        i=0
        Do while (Not Siembra.eof) 
            Tabla(i,0)          = Siembra.fields.item("FechaFinal").value
            Tabla(i,1)          = Siembra.fields.item("NumLote").value
            Tabla(i,2)          = Trim(Siembra.fields.item("Tanque").value)
            Tabla(i,3)          = Siembra.fields.item("NumCto").value
            Tabla(i,4)          = Siembra.fields.item("Producto").value
            i=i+1
        Siembra.movenext()  
        Loop
        Final = i-1
        Session("S_Tabla") = Tabla
        Session("S_final") = final
        for i = 0 to final%>
            <tr>
                <td class="style6" style="width: 6586px">
                <input name="radio" type="radio" value="<%=i%>"><%Response.write "&nbsp;"%><%Response.write Tabla (i,0)%></td>
                <td class="style40" style="width: 2625px"><%Response.write Tabla (i,1)%></td>
                <td class="style40" style="width: 2388px"><%Response.write Tabla (i,2)%></td>
                <td class="style40" style="width: 1135px"><%Response.write Tabla (i,3)%></td>
                <td class="style40" style="width: 1237px"><%Response.write Tabla (i,4)%></td>
            </tr>
            <%tabla (i,5) = i
        next%>
        <tr>
            <td class="style40" colspan="5"><font face="Arial" color="#009333" size="2">  
            <input name="ver" type="submit" value="Ver"></font></td>
        </tr>
        </table>
    <%end if
    Siembra.Close()
    Set Siembra= Nothing
   	Final	= Session ("S_Final")
  	'Tabla	= Session ("S_Tabla")
   	IF Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        for each control in request.form
			response.write control & " = " & request.form(control)&"<br>"
			if control= "radio" then
				opcion = request.form(control)
			end if	
		next	
    end if
END IF%>
</form>
</body>
</html> 
  #7 (permalink)  
Antiguo 20/08/2009, 11:42
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Clic boton no hace nada

Hola

En tal caso tendrás que usar AJAX para refrescar solo la parte que te interesa

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #8 (permalink)  
Antiguo 20/08/2009, 12:22
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Respuesta: Clic boton no hace nada

Hola,
De ajax no se nada, entonces ahi si no se que hacer, claro que despues de mucho cacharrear tengo este codigo para lo que necesito, pero ahora el problema que tengo es que despues de dar clic en el 2 boton, aunque me muestra la 1 tabla (lo que no hacia antes) me borra los datos ya mostrados almacenados en variables.
Habia pensado en definir las variables con Dim o Public o Session pero no me fuciona.
Como puedo hacer para mantener el valor de las variables o ServerVariables guardadas a pesar de dar clic al 2 boton.
Esta pregunta la puse como nuevo tema en el foro, no se si esta bien hecho pero es que necesito poder hacer este reporte.
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> 
  #9 (permalink)  
Antiguo 21/08/2009, 06:59
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Clic boton no hace nada

Hola

De AJAX ni hablamos entonces ... ¿como que usando sesiones no te funciona?

Crea y llenas una sesión con todos los valores que quieras

Código asp:
Ver original
  1. sesion = valor1 & "-" & valor2 & "-" & valor3
  2. spt = Split(sesion, "-")
  3.  
  4. valor1 = spt[0]
  5. valor2 = spt[1]
  6. valor3 = spt[2]

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #10 (permalink)  
Antiguo 21/08/2009, 07:47
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Respuesta: Clic boton no hace nada

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&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 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>&nbsp;<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> 
  #11 (permalink)  
Antiguo 21/08/2009, 12:55
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Clic boton no hace nada

Hola

Se está reescribiendo la sesión. Prueba con esto

Cita:
end select
if request.form(control)(indice) = "Mostrar" then Session("s_Fecha2")=Fecha2 end if
next
next

'Session("s_Fecha2")=Fecha2

%>
<p>&nbsp;<span class="style7"><strong>Datos desde el dia <%Response.write fecha1&"/"&Session("s_Fecha2")&"/"&fecha3%>
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #12 (permalink)  
Antiguo 21/08/2009, 23:12
Avatar de sjam7  
Fecha de Ingreso: diciembre-2001
Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 23 años, 3 meses
Puntos: 16
Respuesta: Clic boton no hace nada

y no le falta algo al action del form?
__________________
CreandoWebs.com
www.creandowebs.com
PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO
  #13 (permalink)  
Antiguo 22/08/2009, 05:00
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 3 meses
Puntos: 126
Respuesta: Clic boton no hace nada

Cita:
Iniciado por sjam7 Ver Mensaje
y no le falta algo al action del form?
Sí, pero ya se da por hecho que el action apunta hacia la misma página
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #14 (permalink)  
Antiguo 24/08/2009, 12:39
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 1 mes
Puntos: 0
Respuesta: Clic boton no hace nada

Hola a todos,
Muchisimas gracias por toda su ayuda, lo ultimo me funcionó maravilla.
Gracias!!!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 09:09.