Subversion Repositories DevTools

Rev

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

Rev 1282 Rev 3927
Line 296... Line 296...
296 
				Err.Raise 8, sMessage, ""
296 
				Err.Raise 8, sMessage, ""
297
297
298 
			Else
 298 
			Else
299
299
300 
				' Proceed with authentication
 300 
				' Proceed with authentication
301 
				If Authenticated( sUserName, sUserPassword, rsQry("user_password"), "VIX" ) Then
 301 
				If Authenticated( sUserName, sUserPassword, rsQry("user_password"), rsQry("domain") ) Then
302 
					' Login OK.
 302 
					' Login OK.
303 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
 303 
					Call SessionsAndCookieSetup ( rsQry("user_id") )
304
304
305 
					' Tag user login
 305 
					' Tag user login
306 
					Call TagLogon ( rsQry )
 306 
					Call TagLogon ( rsQry )