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.
Dim WSHNetwork
Set WshNetwork = CreateObject("WScript.Network")
strUserName = WSHNetwork.UserName
'Call the function to write the username and current date/time
'to our database table called loginRecorder, with the fields
'user_name (VARCHAR) and login_date (DATETIME).
RecordLogin strUserName
Function RecordLogin(strUserName)
Dim dbConnection
Set dbConnection = CreateObject("ADODB.Connection")
dbConnection.Open "Provider=SQLOLEDB.1;Data Source=myServerName;Initial Catalog=myDatabaseName";"myUserName";"myPassword"
dbConnection.Execute "INSERT INTO loginRecorder (user_name, login_date) VALUES ('" & strUserName" & ", Now())"
Set dbConnection = Nothing
End Function