Subversion Repositories DevTools

Rev

Rev 129 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 129 Rev 187
Line 349... Line 349...
349 
            Err.Raise 8, sMessage, ""
 349 
            Err.Raise 8, sMessage, ""
350 
 
 350 
 
351 
         Else
 351 
         Else
352 
 
 352 
 
353 
            ' Proceed with authentication
 353 
            ' Proceed with authentication
354 
            If Authenticated( sUserName, sUserPassword, rsQry("user_password"), rsQry("domain") ) Then
 354 
            If Authenticated( sUserName, sUserPassword, rsQry("user_password"), "VIX" ) Then
355 
               ' Login OK.
 355 
               ' Login OK.
356 
               Call SessionsAndCookieSetup ( rsQry("user_id") )
 356 
               Call SessionsAndCookieSetup ( rsQry("user_id") )
357 
 
 357 
 
358 
               ' Tag user login
 358 
               ' Tag user login
359 
               Call TagLogon ( rsQry )
 359 
               Call TagLogon ( rsQry )