Newsgroup: it.comp.www.asp
Titolo: Microsoft JET Database Engine error '80040e14'

Ciao a tutti, scusate se vi disturbo a ma sto impazzendo da 2 giorni.
Ho creato una pagina in asp che fai il controllo della password e username e
fino a qui non ci sono problemi.
Siccome vorrei anche che qaundo il cliente entra mi memorizzasse l'ingresso
ho fatto in agginta dei dati in un database, e ho fatto cosě:
<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim strAccessDB
Dim strSQL
Dim strUserName
Dim strIP
Dim ItemConn
strUserName = Request.Form("txtUserName")
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; uid=; DBQ=" &
Server.MapPath("/mdb-database/database.mdb")
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "select utenti.Password from utenti where utenti.UserID ='" &
strUserName & "'"
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
Session("blnIsUserGood") = True
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Set ItemConn = Server.CreateObject("ADODB.Connection")
ItemConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("/mdb-database/database.mdb") & ";Persist Security
Info=False"
ItemConn.Execute("insert into ingressi (user,ip) values ('"&
Request.Form("txtUserName") &"','"& Request.ServerVariables("REMOTE_ADDR")
&"')")
ItemConn.Close
Set ItemConn=Nothing
Response.Redirect"autorizzato.asp?name=" & strUserName
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("blnIsUserGood") = False
Response.Redirect"nonautorizzato.htm"
%>
L'errore che mi esce č il seguente:
Microsoft JET Database Engine error '80040e14'
Syntax error in INSERT INTO statement.
/login/check.asp, line 25
in poche parole l'errore sta su questa riga:
ItemConn.Execute("insert into ingressi (user,ip) values ('"&
Request.Form("txtUserName") &"','"& Request.ServerVariables("REMOTE_ADDR")
&"')")
Eppure ho controllato sulle altre pagine e uguali e non mi da nessun
problema.
Non č che accedo a 2 tabelle contemporaneamente?
Come vedrete la prima tabella io l'ho chiusa ma lo stesso mi da errore.
Saluti Antonio.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Saluti Antonio.
Due consigli, modifica il codice in questo modo:
ItemConn.Execute("insert into ingressi ([user],[ip]) values ('"&
Request.Form("txtUserName") &"','"& Request.ServerVariables("REMOTE_ADDR")
&"')")
E visualizza eventualmente la stringa sql per verificare anomalie:
Response.write("insert into ingressi ([user],[ip]) values ('"&
Request.Form("txtUserName") &"','"& Request.ServerVariables("REMOTE_ADDR")
&"')")
Ciao
-- 
AZ [Microsoft - .NET MVP]
Mia Home page: 
http://ciclismo.sitiasp.it
Asp.Net community: 
http://www.aspitalia.com
Il mio blog: 
http://blogs.aspitalia.com/az

Ecco la soluzione che posto x gli altri (a qualquncuno potra servire).
<%
Dim adoCon
Dim strCon
Dim rsCheckUser
Dim strAccessDB
Dim strSQL
Dim strUserName
strUserName = Request.Form("txtUserName")
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; uid=; DBQ=" &
Server.MapPath("/mdb-database/database.mdb")
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "select utenti.Password from utenti where utenti.UserID ='" &
strUserName & "'"
rsCheckUser.Open strSQL, strCon
If NOT rsCheckUser.EOF Then
If (Request.Form("txtUserPass")) = rsCheckUser("Password") Then
Session("blnIsUserGood") = True
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; uid=; DBQ=" &
Server.MapPath("/mdb-database/database.mdb")
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "insert into ingressi (user,ip) values ('"&
Request.Form("txtUserName") &"','"& Request.ServerVariables("REMOTE_ADDR")
&"')"
rsCheckUser.Open strSQL, strCon
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Response.Redirect"autorizato.asp?name=" & strUserName
End If
End If
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing
Session("blnIsUserGood") = False
Response.Redirect"nonautorizzato.htm"
%>
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 &"')")
hai usato una parola riservata.
utilizza:
 ...into ingressi ([user], ip) values.....