Saludos
Tengo un buscador en mi servidor para consultas del estado de un producto,
Pero si quiero mostrar un rango de fechas , me marca error mi codigo
Tengo tres textbox en mi formulario, uno para seleccionar el taller, otro para la primera fecha, el segundo para la segunda fecha, Ok
a continuacion muestro parte del codigo que estoy usando:
<%
'Leo el valor introducido por el usuario
Dim frmFecha1, frmFecha2, frmTaller
frmFecha1 = Trim(Request("txtFecha1"))
frmFecha2 = Trim(Request("txtFecha2"))
frmTaller = Trim(Request("selTaller"))
If frmFecha1 = "" AND frmFecha2 = "" AND frmTaller = "" Then
objConn.Close
Set objConn = Nothing
Response.Write "<br><br>Lo sentimos, no podemos mostrarle la información que solicito."
Response.Write "<br><br>Por favor llene el formulario con los datos correctos."
Response.Write "<br><br>De "
Response.Write "<a href='" & Request.ServerVariables("HTTP_REFERER") & "'>"
Response.Write "Click aquí"
Response.Write "</a> Para regresar.<br><br><br><br><br><br><br><br><br><br>< br>"
%>
<%
Response.End
'End If
Else
'Crea la variable para la instruccion SQL
Dim strSQL
strSQL = "SELECT * FROM Acumulado WHERE Fecha >= like '%" & frmFecha1 & "%' AND Fecha <= like '%" & frmFecha2 & "%' AND Taller like '%" & frmTaller & "%' ORDER BY Fecha DESC" 'UCase(PO) like '%" & frmOrden & "%' ORDER BY PO DESC"
'Crea una instancia del objeto Recordset y ejecuta la instruccion SQL
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
'Abre el recordset con un Keyset
objRS.Open strSQL, objConn,1,3
'Necesitamos crear una variable contadora para llevar la cuenta
Dim iCuentaRegistros
iCuentaRegistros = 0
'Determina si hay registros en objRS o no.
If objRS.EOF Then
'No se devolvieron registros para los caracteres introducidos por el usuario
Response.Write "<br><font color='#000000' size='1' face='Verdana'>"
Response.Write "No se pudo realizar la búsqueda con el dato: Taller " & UCase(frmTaller) & ", del " & UCase(frmFecha1) & " al " & UCase(frmFecha2) & "<br>"
Response.Write "<br>"
Response.Write "Por favor intentelo de nuevo.<br><br>"
'Response.Write "Si desea agregar un registro nuevo "
'Response.Write "<strong><a href='/qy/confeccion/add_faltantes.asp'>Click Aquí</a></strong></font><br><br><br><br><br>"
'que comiencen con " & UCase(frmModelo) & " " & UCase(frmMaterial) & ":"
Else
'No hay más Modelos que coincidan con la condición introducida
'por el usuario.
%>
y a continuacion pinto la tabla e introduzco los datos de la busqueda realizada.
Todo marchaba bien con mi buscador, pero cuando quise modificarlo para que realizara busquedas por rango de fechas, marca el siguiente error:
Información técnica (para personal de soporte técnico)
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03EA)
Error de sintaxis
/qy/confeccion/mostrar_acumulado.asp, line 50, column 50 Si alguien me puede ayudar con este dato, se los agradezco mucho.
Saludos a todos los del foro