Export (0) Print
Expand All

Service Pack 2 Changes for Sitelets

Commerce Server 2002

After you install Commerce Server 2002 Service Pack 2, you need to the update the following code in the sitelets.

  1. Open the ProfileLib.asp file located in: %COMMERCE_SERVER_ROOT%\SDK\Samples\Classic ASP\<Sitelet Name>\source\include.
  2. Replace this line:
        objAuthMgr.SetUserID fTicketType, strUserId 

with this code:

        If fTicketType = 1 Then
objAuthMgr.SetProfileTicket strUserId, fCookieSupport 
        End If

Following is the way the code should appear after you update it. The code in bold is the new code.

'------------------------------------------------------------------------------
' LogOnUser
'
' Description:
'     Used for giving the newly created user an auth ticket.
'
' Parameters:
'     [in] strUserName      - User name to logon
'     [in] strUserPwd       - Password for user
'     [in] fCookieSupport   - Flag for cookie support
'     [in] strTimeout       - Timeout for logon
'     [in] fTicketType      - Flag for type of ticket
'
' Returns:
'     Boolean
'
' Notes:
'     <none>
'------------------------------------------------------------------------------
Function LogOnUser( _
    ByVal strUserName, _
    ByVal strUserPwd, _
    ByVal fCookieSupport, _
    ByVal strTimeout, _
    ByVal fTicketType _
    )
    On Error Resume Next
    
    Dim objAuthMgr
    Dim objProfile
    Dim strUserId
    
    Set objAuthMgr = InitAuthMgr(Application("MSCSSiteName"))
    
    If Err.number <> 0 Then
        Call RaiseError( _
                        Err.number, _
                        Err.description, _
                        Request.ServerVariables("SCRIPT_NAME"), _
                        "LogOnUser()" _
                        )
        Exit Function
    End If
    
    Set objProfile = GetProfile(USER_LOGON_NAME, strUserName, PROFILE_TYPE_USER)
    
    If Err.number <> 0 Then
        'if GetProfile failed, the user doesn't exist
        LogOnUser = False
        Exit Function
    End If
    
    If (objProfile.Fields(USER_PASSWORD).Value = strUserPwd) Then
        strUserId = objProfile.Fields(USER_ID).Value
        objAuthMgr.SetAuthTicket strUserId, fCookieSupport, strTimeout
        If fTicketType = 1 Then
objAuthMgr.SetProfileTicket strUserId, fCookieSupport 
        End If
        Set objAuthMgr = nothing
    Else
        LogOnUser = False
        Exit Function
    End If
    
    If Err.number <> 0 Then
        Call RaiseError( _
                        Err.number, _
                        Err.description, _
                        Request.ServerVariables("SCRIPT_NAME"), _
                        "LogOnUser()" _
                        )
        Exit Function
    End If
    
    LogOnUser = True
    
End Function

Copyright © 2005 Microsoft Corporation.
All rights reserved.
Was this page helpful?
(1500 characters remaining)
Thank you for your feedback
Show:
© 2014 Microsoft