INSERT INTO non miprende un numero

[Mary Angy]

allora:

<%
cogmone = trim(request("cognome"))
nome = trim(request("nome"))
email = trim(request("email"))
user = trim(request("user"))
pwd = trim(request("pwd"))

driverString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
databaseString = "DBQ=" & Server.MapPath("/CRM/Aggiornamenti/genews.mdb")& ";"
connString = driverString & databaseString


dim objConn 
set objConn = server.createObject("ADODB.connection")
objConn.Open connString

cognome = replace(cognome,"'","''")
nome = replace(nome,"'","''")
email = replace(email,"'","''")
user = replace(user,"'","''")
pwd= replace(pwd,"'","''")

query = "INSERT INTO MEMBER (cognome, nome, email, level, user, pwd) VALUES('"&cognome&"','"&nome&"','"&email&"', '"&level&"','"&user&"', '"&pwd&"')"
objConn.Execute(query)

objConn.Close
set objConn = Nothing


%>

Mi prende tutto se tolgo level che nel form sarebbe :

      <select name="level">
      <option value= "1" >Amministratore</option>
      <option value= "2" selected>Moderatore</option>
</select>

Qui in locale mi da questo errore:
Tipo di errore:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione INSERT INTO.
/CRM/Aggiornamenti/updateusers.asp, line 43


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; snprtz|dialno) 

Pagina:
POST 78 bytes to /CRM/Aggiornamenti/updateusers.asp

POST Data:
cognome=ghfg&nome=fghf&email=hgfhfg&level=1&user=hghfgh&pwd=hf&Submit=Aggiungi

sulla linea 43 c'è
objConn.Execute(query)

nella struttura della tabella il campo level è numerico anche se tolgo gli apici in insert into non mi viene niente, che devo fare??
Grassie

[viki1967]

Stampati la query e vedi cosa restituisce:

query = "INSERT INTO MEMBER (cognome, nome, email, level, user, pwd) VALUES('"&cognome&"','"&nome&"','"&email&"', '"&level&"','"&user&"', '"&pwd&"')"
response.write query : response.end
objConn.Execute(query)

[Mary Angy]

INSERT INTO MEMBER (cognome, nome, email, level, user, pwd) VALUES('pr','pro','prov', '2','prov', 'prova')

dunque??

[viki1967]

Originariamente inviato da Mary Angy
INSERT INTO MEMBER (cognome, nome, email, level, user, pwd) VALUES('pr','pro','prov', '2','prov', 'prova')

level com'è previsto nel db ? numerico o testo?

[Mary Angy]

nella struttura della tabella il campo level è numerico anche se tolgo gli apici in insert into non mi viene niente, che devo fare??

quindi nel db è numerico

[viki1967]

Originariamente inviato da Mary Angy
quindi nel db è numerico

dal codice recuperi tutti i valori tranne level in base a che cosa valorizzi la variabile level?

cognome = trim(request("cognome"))
nome = trim(request("nome"))
email = trim(request("email"))
user = trim(request("user"))
pwd = trim(request("pwd"))

[Mary Angy]

level = trim(request("level"))

se la metto così non viene niente lo stesso, idee su come aggiustare?

[Gioba66]

level è una parola riservata d SQL

se il campo si chiama così, usalo tra parentesi []


INSERT INTO MEMBER (cognome, nome, email, [level], user, pwd) VALUES('pr','pro','prov', '2','prov', 'prova')

[Mary Angy]

oddio ho sostituito tutto con livello ma ancora niente

mi sto esaurenndo

[maximum]

Fatti stampare nuovamente la query e provala direttamente su Access.

Comunque secondo me:

<%
cogmone = trim(request("cognome"))
nome = trim(request("nome"))
email = trim(request("email"))
user = trim(request("user"))
pwd = trim(request("pwd"))
livello = cint(trim(request("livello")))

driverString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
databaseString = "DBQ=" & Server.MapPath("/CRM/Aggiornamenti/genews.mdb")& ";"
connString = driverString & databaseString


dim objConn 
set objConn = server.createObject("ADODB.connection")
objConn.Open connString

cognome = replace(cognome,"'","''")
nome = replace(nome,"'","''")
email = replace(email,"'","''")
user = replace(user,"'","''")
pwd= replace(pwd,"'","''")

query = "INSERT INTO MEMBER (cognome, nome, email, livello, user, pwd) VALUES('" & cognome & "','" & nome & "','" & email & "', " & livello & ",'" & user & "', '" & pwd & "')"
objConn.Execute(query)

objConn.Close
set objConn = Nothing
%>