User Editor DateLastChanged, DateCreated and DateRegistered Values Are Not Displayed Correctly (321551)



The information in this article applies to:

  • Microsoft Commerce Server 2000

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 "Method systems" 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)) = "time" Then
'              nType = AD_DB_TIME
'         ElseIf sStripGroup(fdField.name)="date_last_changed" or sStripGroup(fdField.name)="date_created" 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)) = "time" Then
If len(sValue) > 0 Then
sArrTemp = Split(sValue, ":")
sValue = sArrTemp(0) & ":" & sArrTemp(1)
End If
nType = -1
Else 'If sStripGroup(fdField.name)="date_last_changed" or sStripGroup(fdField.name)="date_created" 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.

Modification Type:MinorLast Reviewed:9/27/2005
Keywords:kbHotfixServer kbQFE kbbug kbCommServ2000preSP3fix kbCommServ2000sp3fix kbenv kbfix kbui KB321551