Subversion Repositories DevTools

Rev

Rev 1283 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1283 Rev 3926
Line 337... Line 337...
337 
				Err.Raise 8, sMessage, ""
337 
				Err.Raise 8, sMessage, ""
338
338
339 
			Else
 339 
			Else
340
340
341 
				' Proceed with authentication
 341 
				' Proceed with authentication
342 
				If Authenticated( sUserName, sUserPassword, rsQry("user_password"), "VIX" ) Then
 342 
            If Authenticated( sUserName, sUserPassword, rsQry("user_password"), rsQry("domain") ) Then
343 
					' Login OK.
 343 
					' Login OK.
344 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
 344 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
345
345
346 
					' Tag user login
 346 
					' Tag user login
347 
					Call TagLogon ( rsQry )
 347 
					Call TagLogon ( rsQry )