Les paso el código a ver si me ayudan, primero el error:
En primer lugar se ven las variables que envío de la pagina anterior.
Cita:
id=1, 2, 3, 4, 5, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49
historial=1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Realizados=11, 8, 4, 3, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'id = 1, 2, 3, 4, 5, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49'.
/test/admin/alta-part-a-0-1-a.asp, line 54
historial=1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Realizados=11, 8, 4, 3, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'id = 1, 2, 3, 4, 5, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49'.
/test/admin/alta-part-a-0-1-a.asp, line 54
Cita:
<%
if session("CONTROL")<>1 then
response.redirect "login.asp"
end if
Dim HECHOS, ID, GOLES
id =request("id")
goles =request("goles")
convertidos=request("HECHOS")
total=goles+convertidos
' Lo siguiente es para comprobar que las variables se vean.
response.write"id="&id&""
response.write "<br>"
response.write"historial="&goles&""
response.write "<br>"
response.write"Realizados="&convertidos&""
response.write "<br>"
response.write hechos
response.write "<br>"
' ahora el update
var1=request.form("id") 'Asigna los datos que viene de la otra pagina
var2=split(var1,",") 'Elimina las comas que contengan esos valores y asigna los valores a "var1"
Set Base = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("/test/DB/LGTV.mdb")
for i=LBound(var2) to UBound(var2) 'Toma a "var2" como un arreglo y lo recorre de principio a fin
'Elimina, si hubiera espacios en blanco al inicio y final de cada elemento y los asigna a la variable "id"
' ESTA LÍNEA TAMBIÉN ME DA ERROR PERO AHORA NO CUENTA id=Trim(var2)
sql="update JUGADORES SET goles= '"&total&"' where id = " & Request("id")
Conn.Execute(SQL)
Response.Write SQL
Response.End ()
next
Conn.close
set Conn=nothing
%>
Porfa, me quedan 3 neuronas y encima están peleadas. <%
if session("CONTROL")<>1 then
response.redirect "login.asp"
end if
Dim HECHOS, ID, GOLES
id =request("id")
goles =request("goles")
convertidos=request("HECHOS")
total=goles+convertidos
' Lo siguiente es para comprobar que las variables se vean.
response.write"id="&id&""
response.write "<br>"
response.write"historial="&goles&""
response.write "<br>"
response.write"Realizados="&convertidos&""
response.write "<br>"
response.write hechos
response.write "<br>"
' ahora el update
var1=request.form("id") 'Asigna los datos que viene de la otra pagina
var2=split(var1,",") 'Elimina las comas que contengan esos valores y asigna los valores a "var1"
Set Base = Server.CreateObject("ADODB.Connection")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("/test/DB/LGTV.mdb")
for i=LBound(var2) to UBound(var2) 'Toma a "var2" como un arreglo y lo recorre de principio a fin
'Elimina, si hubiera espacios en blanco al inicio y final de cada elemento y los asigna a la variable "id"
' ESTA LÍNEA TAMBIÉN ME DA ERROR PERO AHORA NO CUENTA id=Trim(var2)
sql="update JUGADORES SET goles= '"&total&"' where id = " & Request("id")
Conn.Execute(SQL)
Response.Write SQL
Response.End ()
next
Conn.close
set Conn=nothing
%>