ayuda por favor con insert

[chidomen]

tengo un script sencillo para insertar datos en una tabla de access, pero no se que es lo que estoy haciendo mal, alguien por favor me podria ayudar, este es el codigo

<%
Dim nombre, apellido, email,empresa, password, data_source, con, sql_insert

Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

nombre = ChkString(Request.Form("nombre"))
apellido = ChkString(Request.Form("apellido"))
email = ChkString(Request.Form("email"))
empresa = ChkString(Request.Form("empresa"))
password = ChkString(Request.Form("password"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("login.mdb")
sql_insert = "Insert Into loginTable (email, empresa, apellido, userName, password) values ('" & email & "','" & empresa & "', '" & apellido & "', '" & userName & "', '" & password & "')"

Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert

con.Close
Set con = Nothing
%>
y este es el error que me muestra:
Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/login/add.asp, line 26

espero que alguien me pueda ayudar por favor

saludos

[AlZuwaga]

password es una palabra reservada.
cambiale el nombre al campo o encerralo entre corchetes en la sentencia SQL:

sql_insert = "Insert Into loginTable (email, empresa, apellido, userName, [password]) values ('" & email & "','" & empresa & "', '" & apellido & "', '" & userName & "', '" & password & "')"

[chidomen]

no me funciona, ahora me aparece este error
Operation must use an updateable query

saludos

[AlZuwaga]

Bueno, pero ahora el error anterior se solucionó.
Verificá los permisos de escritura al archivo MDB y a la carpeta que lo contiene para el usuario anónimo de internet

[chidomen]

lo que hice fue darle permisos al folder donde esta la base, a la base tambien le di permisos de escritura, en el servidor hice la conexion a la base, y quedaria asi el codigo:
<%
Dim nombre, apellido, email,empresa, password, data_source, con, sql_insert

Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function

nombre = ChkString(Request.Form("nombre"))
apellido = ChkString(Request.Form("apellido"))
email = ChkString(Request.Form("email"))
empresa = ChkString(Request.Form("empresa"))
password = ChkString(Request.Form("password"))


sql_insert = "Insert Into loginTable (email, empresa, apellido, userName, pass) values ('" & email & "','" & empresa & "', '" & apellido & "', '" & nombre & "', '" & password & "')"

Set con = Server.CreateObject("ADODB.Connection")
con.Open "dsn=industrial"
con.Execute sql_insert

con.Close
Set con = Nothing
%>

este es el error que me muestra:
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.


saludos

[AlZuwaga]

http://www.aspfaq.com/show.asp?id=2062

[monkyta]

Te faltan los permisos de filesystem a la mdb....... debes de dar permiso de control total al usuario anonimo IUSR_nombredemaquina..... para hacer eso vas a la MDB, click derecho seleccionas pestaña seguridad y luego ingresas este usuario o bien el grupo al cual pertenece; puede ser grupo Invitados si es XP o everyone ...... luego das click en el grupo o en el usuario y en la parte de abajo veras los permisos... marcas Control Total, das aceptar y listo