Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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 = 1
rsInsereLogins.LockType = 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