Code:
Sub InsereLogins(User)
Dim adoConInsereLogins
Dim strSQLInsereLogins
Dim rsInsereLogins
Dim Data
Dim Hora
Data = FormatDateTime(Date, 0)
Hora = FormatDateTime(Time, 4)
Set adoConInsereLogins = Server.CreateObject("ADODB.Connection")
adoConInsereLogins.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbs\users.mdb")
strSQLInsereLogins = "SELECT Logins.User, Logins.Data, Logins.Hora FROM Logins"
Set rsInsereLogins = Server.CreateObject("ADODB.Recordset")
rsInsereLogins.CursorType=2
rsInsereLogins.CursorType=3
rsInsereLogins.Open strSQLInsereLogins, adoConInsereLogins
rsInsereLogins.AddNew
rsInsereLogins.Fields("User") = User
rsInsereLogins.Fields("Data") = Data
rsInsereLogins.Fields("Hora") = Hora
rsInsereLogins.Update
rsInsereLogins.Close
set rsInsereLogins = Nothing
set adoConInsereLogins = Nothing
End Sub
It gives me this error:
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/Procura_Nome/testalogin.asp, line 61
This is line 61:
Code:
rsInsereLogins.AddNew