RESOLUTION
Code Changes Required for the Userorgeditfns.asp FileNote 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