J
|
Jane 12/12/2006 |
Hi, Function BeforeLogin(username, password) str = "select * from orientation where UserName='"&username&"'" Set rsTemp = server.CreateObject("ADODB.Recordset") rsTemp.open str, dbConnection strSQLInsert = "insert into [nursing attendance](EmployeeId, Name, Manager) values ("& rsTemp("EmployeeId") & ",'" & rsTemp("Name") & "','" & rsTemp("Manager") & "')" dbConnection.Execute strSQLInsert BeforeLogin = True End Function
|
D
|
dunga author 4/14/2008 |
hi, Jane
|