---
title: "Två databastabeller i samma asp fil"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7431-två-databastabeller-i-samma-asp-fil"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jacob"
published: "2000-12-15T17:27:00.000Z"
updated: "2000-12-15T17:46:00.000Z"
replies: 5
views: 189
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/7431-två-databastabeller-i-samma-asp-fil"
---

# Två databastabeller i samma asp fil

## #1 — Jacob, 2000-12-15T17:27Z

Det blir något fel här är koden

```
<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\videomonitor\adressbok.mdb" 

Set RecSet = Server.CreateObject("ADODB.Recordset")
Set RS = Server.CreateObject("ADODB.Recordset")

strselectmode = request.querystring("nyheter")
select case strselectmode
case "alla"	
Addera = "SELECT * FROM filmnyheter ORDER BY [Datum] DESC"
Addera1 = "SELECT TOP 10 * FROM dvdnyheter ORDER BY [Datum] DESC"
case "start"	
Addera = "SELECT TOP 10 * FROM filmnyheter ORDER BY [Datum] DESC"
Addera1 = "SELECT TOP 10 * FROM dvdnyheter ORDER BY [Datum] DESC"
end select
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RS.Open Addera1, Connect, adOpenStatic, adLockOptimistic %>

<%Function Radbryt(rfix)

rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix

End Function%>

<link rel="stylesheet" href="main_css.css">

	

<%	Do Until RecSet.EOF 
	Do Until RS.EOF %>

	
</head>
<table width="95%" border="0" cellspacing="10">
  <tr>
    <td width="50%"> 
      <h2 class="rubrik"> 
        <% =RecSet("rubrik") %>
      </h2>
      <p><font face="Verdana" size="1">(<i> 
        <% =RecSet("datum") %>
        </i> )</font> <font face="Verdana" size="2"> 
        <%If Len(RecSet("texten")) > 200 Then
		Response.write Left(RecSet("texten"), 200) & "..."%>
        <a href="id.asp?id=<% =RecSet("id")%>">Läs hela artiklen</a> 
        <%Else
		Response.write RecSet("texten")
		End If%>
        </font></p>
      <p align="right"><font face="Verdana" size="1"> 
        <% =RecSet("forfattare") %>
        </font><font face="Verdana" size="2"> </font> </p>
    </td>
    <td width="50%">
      <h2 class="rubrik">
        <% =RS("rubrik") %>
      </h2>
      <p><font face="Verdana" size="1">(<i> 
        <% =RS("datum") %>
        </i> )</font> <font face="Verdana" size="2"> 
        <%
		If Len(RS("texten")) > 200 Then
		Response.write Left(RS("texten"), 200) & "..."%>
        <a href="dvdnyheter.asp?id=<% =RS("id")%>">Läs hela artiklen</a> 
        <%Else
Response.write RS("texten")
End If%>
        </font></p>
      <p align="right"><font face="Verdana" size="1"> 
        <% =RS("forfattare") %>
        </font><font face="Verdana" size="2"> </font> </p>
    </td>
  </tr>
</table>

<%	RecSet.MoveNext
	Loop
	RecSet.Close
	RS.MoveNext
	Loop
	RS.Close
	Connect.Close	%>
```

Ursäkta att det blevlite långt men det var ända sättet.
Felmedelnadet jag får är:
*Feltyp:
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.*

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

## #2 — @nders, 2000-12-15T17:31Z

vilken rad pekar felmeddelandet på, och vilket case är aktivt?

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

## #3 — Jacob, 2000-12-15T17:35Z

Det står tyvärr inte pekat på någon rad
& när man kör case start

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

## #4 — Jacob, 2000-12-15T17:37Z

Det spela iofs ingen roll vilken case man kör det blir samma fel.

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

## #5 — @nders, 2000-12-15T17:41Z

varför loopar du rs inne i recset, du loopar lite galet då eftersom du loopar igenom hela rs för varje post i recset...

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

## #6 — Jacob, 2000-12-15T17:46Z

Ja varför gör jag det, dumma mig.

jag har nästan löst det nu tack ansers.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/7431-två-databastabeller-i-samma-asp-fil