Skapa Recordset dynamiskt

Jag har ett behov av att loopa igenom ett recordset och för varje post i detta kolla om ett villkor är uppfyllt och i så fall skapa ett nytt recordset.

Set objRS1 = Server.CreateObject("adodb.Recordset")
While Not objRS1.EOF
 If villkor = true Then
  Set objRS2 = Server.CreateObject("adodb.Recordset")
  While Not objRS2.EOF
   If villkor = true Then
    Set objRS3 = Server.CreateObject("adodb.Recordset")
    While Not objRS3.EOF
     ...
    Wend
   End If
  Wend
 End If
Wend

Vad jag har förstått går det inte skapa recordseten dynamiskt, dvs rekursivt så jag slipper ange en siffra efter objRS.

Är det så?

Jag tycker att det verkar som att du behöver en rekursiv funktion till det här, men det beror så klart på vad du ska göra.

Ett ex:

Function Recurse ( ByVal villkor )
     set objRS = Server.CreateObject ( "ADODB.Recordset" )

     If villkor = True Then
          Recurse ( nytt_villkor )
     End If
End Function

Ovanstående funktion gör ju absolut ingenting, men förhoppningsvis så förstår du hur du bör gå tillväga. :)

Ja, jag förstår vad jag skall göra, och ja, det behövs rekursion. Däremot kommer det väl skapas två recordset med samma namn?

Ja, men om de skapas lokalt inne i funktionen så är de ändå inte samma recordset.