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>