20/06/2002, 09:56
|
| | | Fecha de Ingreso: junio-2002
Mensajes: 37
Antigüedad: 22 años, 10 meses Puntos: 0 | |
| Oye, me ayudas a desplegar mis campos, visualiza m
Hola, tengo un problemita, estoy haciendo una intranet, pero no me despliega los campos que le indico, tal vez tu puedas visualizar mi error, gracias :)
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>
:)
|