LL_GetVersionInfo API problem

Richard_Ma_(mtrcadmin_-_(deleted))

The VB com program is showed in the following. The problem is that LL_GetVersionInfo API does not work (500 internal error shows in browser when the com is called by a VB script). If I remark LL_GetVersionInfo, it works. Anyone can tell me What the problem is. Thanks a lot.Best Regards,SunnyLL_ValueAlloc lngChildrenLL_ValueAlloc lngChildLL_ValueAlloc lngVersionInfo If LL_ListObjects(lngSession, -2000, lngObjID,vbNullString, vbNullString, LL_PERM_CREATENODE And LL_PERM_SEECONTENTS, lngChildren) <> LL_OK Then GoTo Error_ListObjectEnd IfWhile LL_TableGetRecord(lngChildren, lngCount, lngChild) = LL_OKIf LL_RecordGetInteger(lngChild, "SUBTYPE", lngSubType) <> LL_OK Then GoTo Error_ListObjectEnd If If LL_RecordGetInteger(lngChild, "ID", lngDocId) <> LL_OK Then GoTo Error_ListObjectEnd If If LL_GetVersionInfo(lngSession, -2000, lngDocId, 0, lngVersionInfo) <> LL_OK Then GoTo Error_ListObjectEnd If lngCount = lngCount + 1Wend