Guille,
con el codigo completo de esta forma:
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "tablero", "sa", ""
set rs = CreateObject("ADODB.Recordset")
Dim SQL
SQL = "select (SELECT sum(cub) as parolaccia
FROM costos_maxirest
WHERE local <= 4
AND month(fecha) = " & month(date()) &"
AND year(fecha) = " & year(date()) &"
or local >= 7),
(SELECT sum(cub) as bistecca
FROM costos_maxirest
WHERE local = 5
AND month(fecha) = " & month(date()) &"
AND year(fecha) = " & year(date()) &"
or local = 6) ,
(SELECT sum(cub) as total
FROM costos_maxirest
WHERE month(fecha) = " & month(date()) &"
AND year(fecha) = " & year(date()) &"),
(SELECT MAX(fecha) as fecha2
FROM costos_maxirest
WHERE month(fecha) = " & month(date()) &"
AND year(fecha) = " & year(date()) &")"
set rs = Conn.execute(SQL)
%>
me dice lo siguiente:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A03FD)
Se esperaba 'Case'
/cubiertos/mespormarca.asp, línea 3, columna 7
select (SELECT sum(cub) as parolaccia
Por ahi soy yo que cometi algun error, lo unico que cambie de lo que me pasaste fueron algunas comillas.
Saludos y gracias nuevamente.