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> <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> <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 " "%><%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>