Código:
<% LANGUAGE = VBScript %> <HTML> <HEAD> <TITLE>Fechas2.asp</TITLE> </HEAD> <BODY> <IMG src="image002.jpg"> <br><br><h3><div align="center">Reporte de ordenes completadas<br></div></h3> <% Dim COMPLETION_SUBINVENTORY, WIP_ENTITY_NAME, SEGMENT1 Dim DESCRIPTION, SCHEDULED_START_DATE, START_QUANTITY Dim QUANTITY_COMPLETED, MEANING, DATE_RELEASED Dim SCHEDULED_COMPLETION_DATE, DATE_COMPLETED, DATE_CLOSED Dim fechaini Dim fechafin Dim sSQL, RS, RA, Conn 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Donaldson" 'Recogemos los valores del formulario fechaini= Request.Form("[fechaini]") fechafin= Request.Form("[fechafin]") 'Ahora creamos la sentencia SQL sSQL="Select * From P1_ORDENES_COMPLETADAS WHERE DATE_COMPLETED between " & [fechaini] & " and " & [fechafin] &"" Response.Write(sSQL) 'Ejecutamos la orden Set RS = Server.CreateObject("ADODB.Connection") RS.Open Conn, sSQL Set RS = Conn.Execute(sSQL) 'Mostramos los registros %> <table align="center" border=1><tr> <th>Subinventario</th> <th>Numero de orden</th> <th>Numero de parte</th> <th>Descripcion</th> <th>Fecha programada de inicio</th> <th>Cantidad programada de piezas</th> <th>Cantidad de piezas comletadas</th> <th>Cantidad de piezas de Scrap</th> <th>Status de la orden</th> <th>Fecha de liberacion de la orden</th> <th>Fecha programada para completar</th> <th>Fecha en que se completo</th> <th>Fecha en que se cerro</th> </tr> <% Do While Not RS.Eof %> <tr> <td><%=RS("COMPLETION_SUBINVENTORY")%></td> <td><%=RS("WIP_ENTITY_NAME")%></td> <td><%=RS("SEGMENT1")%></td> <td><%=RS("DESCRIPTION")%></td> <td><%=RS("SCHEDULED_START_DATE")%></td> <td><%=RS("START_QUANTITY")%></td> <td><%=RS("QUANTITY_COMPLETED")%></td> <td><%=RS("QUANTITY_SCRAPPED")%></td> <td><%=RS("MEANING")%></td> <td><%=RS("DATE_RELEASED")%></td> <td><%=RS("SCHEDULED_COMPLETION_DATE")%></td> <td><%=RS("DATE_COMPLETED")%></td> <td><%=RS("DATE_CLOSED")%></td> </tr> <% RS.MoveNext Loop 'Cerramos el sistema de conexion Conn.Close %> </table> <h3><div align="center">Tabla actual</div></h3> <div align="center"><a href="OrdenesCom.asp">Ejecutar</a></div> </BODY> </HTML> :)