salve a tutti,
io ho questo codice che mi da errore ma non riesco a trovare l'errore
mi da errore nella select... ma non capisco perchè...codice:'Aggiorno il db function formatta_sql(mia_stringa) formatta_sql=replace(mia_stringa,"'","''",1,-1) end function 'Apro il db e recupero l'ultimo valore set myConn = server.CreateObject("ADODB.Connection") dim strConnDb strConnDb = "" strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/Clienti.mdb") myConn.Open(strConnDb) mySqlSelect = "select TotaleAccessi, DataAccesso from Cliente where CodiceCliente='" & Session("CodceC") set myRSComS = server.CreateObject("ADODB.Recordset") myRSComS.Open mySqlSelect, myConn TotaleAcc = cint(Session("TotAcc")+1) DataAcc = date() 'Aggiorno il valore dentro al db dim strInsertDati strInsertDati="" strInsertDati="update Cliente set TotaleAccessi=':1:', DataAccesso=':2:' where CodceiCliente=" & CC strInsertDati=replace(strInsertDati,":1:",formatta_sql(cstr(TotaleAcc))) strInsertDati=replace(strInsertDati,":1:",formatta_sql(cstr(DataAcc))) myConn.Execute strInsertDati myConn.Close set myConn=nothing![]()
Microsoft JET Database Engine error '80040e14'
Syntax error in string in query expression 'CodiceCliente=''.
/accessoclienti.asp, line 54
![]()

Rispondi quotando