Amigos, necesito ayuda con este código, a continuación posteo el código y el error que me tira:
Lo que yo quiero hacer es que sume un campo determinado entre tal fecha y tal fecha (la fecha esta puesta en la base en un campo para ese fin), para decirle a la SQL desde que fecha a que fecha yo la ingreso en un formulario, y que devuelva su valor y que los ordene por codigo de usuario:
Ejemplo:
Codigo Usuario: 1 Total: 20
Codigo Usuario: 2 Total: 30
Codigo que me tira el error:
<%
Dim ObjDB
Dim ObjRS
Dim Sql
strConnection = "driver={Microsoft Access Driver (*.mdb)}; server=;uid=;pwd=;data source="
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection
SELECT campo1,campo2,campo3 Sum(campo2) as total FROM Tabla WHERE campo3 BETWEEN '" & request.form("fecha_ini") & "' and '" & request.form("fecha_fin") & "'" ORDER BY campo1 DESC;
set RS = Conn.Execute(sql)
%>
<b><font color="#FF0000"><%=RS("campo1)</font></b>
<b><font color="#FF0000"><%=RS("total)</font></b>
El error que me tira es el siguiente:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03FD)
Se esperaba 'Case'
archivo.asp, línea 23, columna 7
Este archivo es el que tiene el codigo de arriva, la columna 23 es la SQL y la linea 7 es entre el select y el sum.
No se a que se refiere con Se esperaba 'Case'.
Gracias anticipadas al que me de una mano con esto.
--------------------------------------------------------------------------
Quien es mas tonto el que pregunta o el que se queda con la duda por no preguntar.