Microsoft KB Archive/321551

= User Editor DateLastChanged, DateCreated and DateRegistered Values Are Not Displayed Correctly =

Article ID: 321551

Article Last Modified on 9/27/2005

-

APPLIES TO


 * Microsoft Commerce Server 2000 Standard Edition

-



This article was previously published under Q321551



SYMPTOMS
The TimeStamp in the user profile may display the year 2000 instead of the current year.



CAUSE
This problem may occur if the incorrect date is used to update the user profile properties.



RESOLUTION
Code Changes Required for the Userorgeditfns.asp File

Note that the following changes have been made to the updated Userorgeditfns.asp file to solve this problem. Make sure to include (and customize) the site code that is added to the Userorgeditfns.asp file that is present in the site to make sure that the custom code is included.

The Microsoft Content Management Systems 2001 Content Connector includes a &quot;Method systems&quot; site. The following change must be made to that site's copy of the Userorgeditfns.asp file.

The following code change must be performed in two routines, oXMLRS2CopyXML and oXMLRS2XML2.

Comment out the following code section: '   Select case fdField.Type '        case AD_DB_DATE,AD_DB_TIMESTAMP,AD_FILETIME,AD_DB_FILETIME '        If LCase(sGetPropType(avalues)) = &quot;time&quot; Then '             nType = AD_DB_TIME '        ElseIf sStripGroup(fdField.name)=&quot;date_last_changed&quot; or sStripGroup(fdField.name)=&quot;date_created&quot; Then '             nType = AD_DB_TIMESTAMP '        Else '        nType = AD_DATE '        End If '         case Else '           nType = fdField.Type '   End select Use the following section as a replacement: 'bug fix for date 2000 ' CHECK Handle AD_DB_FILETIME, AD_FILETIME Select case fdField.Type case AD_DB_DATE,AD_DB_TIMESTAMP,AD_FILETIME, AD_DB_FILETIME

If LCase(sGetPropType(avalues)) = &quot;time&quot; Then If len(sValue) > 0 Then sArrTemp = Split(sValue, &quot;:&quot;) sValue = sArrTemp(0) & &quot;:&quot; & sArrTemp(1) End If nType = -1 Else 'If sStripGroup(fdField.name)=&quot;date_last_changed&quot; or sStripGroup(fdField.name)=&quot;date_created&quot; Then nType = AD_DATE End If case Else nType =      fdField.Type End select



STATUS
Microsoft has confirmed that this is a problem in Microsoft Commerce Server 2000.

Keywords: kbbug kbfix kbcommserv2000sp3fix kbqfe kbenv kbui kbcommserv2000presp3fix kbhotfixserver KB321551

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.