questo codice
-------------------------------------------------------------------

<%
dim usr
dim dnspath
dim sql

usr = CStr(Session("user"))

Set Conn=Server.CreateObject("ADODB.Connection")

dsnpath = "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../mdb-database/database.mdb")

Conn.Open dsnpath

sql = "SELECT * FROM login WHERE username=" & usr

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql , conn , 3 , 3

rs("last_login") = now()

rs.update

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

%>

-----------------------------------------------------------

mi genera questo errore

------

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/gestione/update.asp, line 18

----

linea 18 in grassetto

potreste aiutarmi a risolvere?

grazie mille