Tema: Clic boton no hace nada
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 20/08/2009, 08:12
glory82
 
Fecha de Ingreso: febrero-2007
Mensajes: 139
Antigüedad: 18 años, 2 meses
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>