Problem with sp3 on win2000

[srini2005]

We have intranet site. People post messages to exchange server. Some of
these may have attachments. The dll picks up the messages from exchange
server and display in intranet site. After we applied service pack3 on
exchange server machine (win2000), it is only displaying attachments which
are We have intranet site. People post messages to exchange server. Some of
these may have attachments. The dll picks up the messages from exchange
server and display in intranet site. After we applied service pack3 on
exchange server machine (win2000), it is only displaying attachments which
are pasted in between text(.rtf format in outlook2003), but not attachments
which are attached by using tool bar.

Here I am adding psuedo code dll code also. Can any one please help me.

Thanks in advance,

Srinivasa rao Y

Set objCDO = CreateObject("CDO.Message")

strFolderPath = "http://" & strExchangeServer & "/public/TTIntranet/" &
strSource

objCDO.DataSource.Open (strFolderPath & "/" & strMailPath & "/" &
strMailID), cnnExchange, adModeRead

objCDO.MimeFormatted = True

strMsg = objCDO.HTMLBody

If objCDO.Attachments.Count > 0 Then

strMsg = strMsg & "<table><tr><td class =
'bodytextsmallbold'>Attachments <SPAN class = 'bodytextsmall'>(Click on the
filename(s) below to open in a new browser window)</SPAN></td></tr>"

bFlag = True

For i = 1 To objCDO.Attachments.Count

Set oAttach = objCDO.Attachments(i)

Log ("Source: " & oAttach.Source)

Set collFields = objCDO.Attachments(i).Fields

' get the filename from the content location

sFileName =
objCDO.Attachments(i).Fields("urn:schemas:mailheader:content-location").Valu
e

sFileName = Replace(sFileName, "%20", " ")

' if its an internet based pic...

If InStr(1, sFileName, "http://") Or InStr(1, sFileName,
"https://") Or InStr(1, sFileName, "ftp://") Then

sFileName = objCDO.Attachments(i).FileName

End If

' create the location of the file

sLocation = strFolderPath & "/" & strMailPath & "/" & strMailID
& "/1_multipart/" & sFileName

' if the document is a word doc / text file

' If InStr(1, sFileName, ".doc", vbTextCompare) Or InStr(1,
sFileName, ".xls", vbTextCompare) Then

' sLocation = strFolderPath & "/" & strMailPath & "/" &
strMailID & "/" & sFileName

' ElseIf InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"octet-stream", vbTextCompare) Or InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"image/", vbTextCompare) Or InStr(1,
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type"),
"msword", vbTextCompare) Then

If
objCDO.Attachments(i).Fields("urn:schemas:httpmail:content-media-type") <>
"" Then

sLocation = strFolderPath & "/" & strMailPath & "/" &
strMailID & "/" & sFileName

End If

' replace the << filename >> text

strSearch = "&lt;&lt;" & vbCrLf & objCDO.Attachments(i).FileName
& vbCrLf & "&gt;&gt;"

strMsg = Replace(strMsg, strSearch, "", 1, 1)

' build the HREF to be added to the message for the attachement

strHREF = "<tr><td class = 'blacknormallink'> <A class =
'bodytextsmall' style='cursor:hand; text-decoration:underline' onClick =
'javascript:newwin_scrollAttach(" & """" & sLocation & """" & ", 700, 510, "
& """" & "message Attachments" & """" & ");'>" & sFileName &
"</A></td></tr>"

strMsg = strMsg & strHREF

Next

End If