Buenas tardes, tengo un formulario que rescata de las bases de datos todos los registros que tienen en blanco determinado campo, y a su vez este formulario, muestra ese campo con la posibilidad de marcarlo para así proceder a su actualización.
Una vez marcados los registro que deseo modificar, los cuales puede ser uno, varios o todos, pretendo que se actualicen con el siguiente código, pero no funciona, no se que puedo estar haciendo mal, gracias de antemano por la colaboración.
- CODIGO
-------------------------------------------------------------------------------
IF Request.Form=("id") then
response.redirect("error.asp")
else
Dim Base
Dim SQL
DIM ID
dim titulo
dim categoria
dim subcategoria
dim valida
id = request.form("id")
titulo = request.form ("titulo")
categoria =request.form ("categoria")
subcategoria =request.form("subcategoria")
valida=request.form("valida")
if request.form("valida") <> "" then valida = "true" else valida="false"
Set Base = Server.CreateObject("ADODB.Connection")
Base.Open = "mibasededatos.mdb"
sql="update anuncios SET fecha='"&date()&"', titulo='"&titulo&"',categoria='"&categoria&"', subcategoria='"&subcategoria&"', valida='"&valida&"' where id="&id&""
Base.Execute SQL
base.close
set base=nothing
%>
<%
end if
%>
--------------------------------------------------------------------------
ME DA EL SIGUIENTE ERROR:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (coma) en la expresión de consulta 'id=6757, 6758'.
/administrador/actualizar_anuncios.asp, línea 50
-----------------------------------------------------------------
gracias
