Dubbla recordsets.

Jag får file allready in use när jag försöker öppna ett nytt Recordset mot en befintlig databas, ja jag har det första RSet fortfarande öppet, vilket är nödvändigt ...

Jag har det att fungera på en annan sajt men vad fan är det jag missat

 Function buildSectionPage(strArg)
    Dim strTHTML
    Dim strSQL
    Dim objRs2, strSQL2 ', objConn2
    strSQL = "SELECT * FROM qry_author_art WHERE tbl_author.auth_sName>'j' and tbl_author.auth_sName<'o'"    
    openDataBase(strDatabase)
    objRs.Open strSQL,objConn
    While Not objRs.EOF
      strTHTML = strTHTML &_
                 "<tr>" & vbCrLf &_
                 "  <td rowspan=""2"" valign=""top"" align=""left""><img src=""images/adobe.gif"" /></td>" & vbCrLf &_
                 "  <td><a class=""document"" target=""_TOP"" href=""" & objRs("art_url") &""">" & objRs("art_title") & "</a></td>" & vbCrLf  &_
                 "</tr>" & vbCrLf &_
                 "<tr>" & vbCrLf &_
                 "  <td><i>" & objRs("auth_fName") &_
                 " " & objRs("auth_sName")
                 'Set objConn2 = server.CreateObject("ADODB.Connection")
                 Set objRs2   = server.CreateObject("ADODB.Recordset")
                 strSQL2 = "SELECT * FROM qry_author_art WHERE art_ID=" & objRs("art_ID")
                 'objConn2.Open (strDatabase)
                 objRs2.Open strSQL2,objConn
                 If NOT objRs2.EOF Then
                 While Not objRs2.EOF 
                 If objRs2("auth_ID")<>objRS("auth_ID") Then 
                   strTHTML = strTHTML & objRs2("auth_fName") & " " & objRs2("auth_sName") & ", "
                   objRs2.MoveNext
                 End If
                 Wend
                 objRs2.Close
                 End If
      strTHTML = strTHTML &_
                 ", " & objRs("auth_desc") &_
                 "<i></td>" & vbCrLf &_
                 "</tr>" & vbCrLf 
      objRs.MoveNext
    Wend
    buildSectionPage = strTHTML
  End Function

Sätt

Set objRs2 = nothing
efter objRs2.close

HEJ!

Var får du fel?

Givetvis ska du kunna öppna mer än ett rs mot samma databas, det måsta vara något annat du får fel på?

Den talar om för mig att databasen redan är öppen...
Detta sker så fort jag försöker använda mig av RS2... klipper jag RS2 ur scriptet så funkar det klockers...

HEJ!

yohpops förslag då?

Jag tror du fastnar efter en loop pga att objektet finns, men det ska å andra sidan inte ge det fel du säger?

Skall skriva om ett par bitar så får vi se vad som trillar ut ...