---

Hejsa - Jeg har et noget mystisk problem
Håber at beskrivelsen er til at fatte

NB! Der er XPOST til dk.edb.internet.webdesign.serverside.asp
& dk.edb.programmering.basic.visual-basic

Jeg har bygget en VB Class der henter et recordset fra et tredje parts
komponent
Min VB Class returnere dette recordset efter noget filtrering til mit
VBScript

Det fungere for så vidt fortrinligt på min egen development box og på en 2
andre maskiner (alle win2K servere)

Men jeg har installeret løsningen på en ny development boks (Win2K) og her
nægter det at virke
Filteret bliver sat i min VB Class når funktionen afslutter og returnere til
VBSctiptet igen så er filteret væk? (konstateret via debugning)
Jeg er lidt lost lige nu

Den foreløbige løsning er at bruge Recordset.Filter direkte i VBScript

Og nej - jeg har ikke mulighed for at pille direkte i databasen/sp's

Ala (meget simplificeret)

--------------------------------------------------
VB Class
--------------------------------------------------
Private objThirdParty as New Component.ThirdParty
Private objList as ADODB.Recordset

Public Function GetMyList( _
ByVal Filter as String, _
ByRef List as ADODB.Recordset)

Set objList = objThirdParty.GetList
objList.Filter = "WHERE myField Like '%" & Filter & "%'"
If objList.EOF Then
objList.Filter = ""
End If
Set List = objList
End Function

--------------------------------------------------
VBScript
--------------------------------------------------
Dim objClass
Dim objList

Set objClass = CreateObject("myComponent.Class")
Set objList = objClass.GetMyList( _
ByVal Filter as String, _
ByRef List as ADODB.Recordset)

NB! Der er XPOST til dk.edb.internet.webdesign.serverside.asp
& dk.edb.programmering.basic.visual-basic

Med undren
/Peter Lykkegaard