---
title: "Dubbla recordsets."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/112183-dubbla-recordsets"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fraggel"
published: "2004-09-23T12:12:29.000Z"
updated: "2004-09-23T15:47:11.000Z"
replies: 5
views: 175
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/112183-dubbla-recordsets"
---

# Dubbla recordsets.

## #1 — Fraggel, 2004-09-23T12:12Z

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
```

Permalänk: https://www.webforum.nu/p/112183

## #2 — yohpops, 2004-09-23T13:51Z

Sätt

Set objRs2   =  nothing
efter objRs2.close

Permalänk: https://www.webforum.nu/p/1443938

## #3 — J.N., 2004-09-23T13:52Z

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å?

Permalänk: https://www.webforum.nu/p/1443939

## #4 — Fraggel, 2004-09-23T14:30Z

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...

Permalänk: https://www.webforum.nu/p/1443964

## #5 — J.N., 2004-09-23T14:48Z

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?

Permalänk: https://www.webforum.nu/p/1443970

## #6 — Fraggel, 2004-09-23T15:47Z

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

Permalänk: https://www.webforum.nu/p/1444004

---

Tråden på webben: https://www.webforum.nu/amne/asp/112183-dubbla-recordsets