---
title: "Två recordset"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8383-två-recordset"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-03-01T21:56:00.000Z"
updated: "2001-03-03T13:15:00.000Z"
replies: 10
views: 139
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/8383-två-recordset"
---

# Två recordset

## #1 — aleborg, 2001-03-01T21:56Z

Har lite problem med den här koden, skratta inte nu, den är åt \*#%!

```
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include virtual="unisafe\admin\adovbs.inc" -->
<%
dim Accessgroup
Accessgroup = Session("svAccessgroup")
	If Accessgroup <> "Admin" And Accessgroup <> "Layout" Then
		Response.Redirect "noaccess.asp"
	End If
%>
<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "mindb"
 %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM Tabsid, Sidor"
   rs.Open SQLstr, conn
%>

<%
Set rs = conn.Execute("SELECT * FROM Tabsid Where ID = " & Request.QueryString("ID") & " ")
%>
      <form name="form" method="post" action="layouttabchasucc.asp?ID=<%=rs("ID")%>">
        <table border="0" cellspacing="0" cellpadding="0" width="100%">
          <tr valign="top"> 
<%
set  mrs = conn.Execute("SELECT * FROM Sidor")
%>
<%
If len(mrs("Tabell1namn"))> 0 Then
%>
            <td width="20%" class="ie"><%=mrs("Tabell1namn")%><br>
              <input type="text" name="Tabell1" size="15" class="ie" value="<%=rs("Tabell1")%>">
            </td>
            <% End If %>
```

dvs i en IF sats så ska den kolla från två stycken recordset! Det ända som syns är från \<%=rs("Tabell1")%\> resten dyker aldrig upp, inget felmess!

Vad gör jag? Lite defus fortfarande på recordset och dess användande!

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

## #2 — PatrikB, 2001-03-01T22:14Z

\[r\]
glöm detta inlägg .... 
\[/r\]

ParikB

\[Redigerat av PatrikB den 01 mar 2001\]

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

## #3 — PatrikB, 2001-03-02T07:07Z

Helo,

nu har jag kollat in lite mer =P

Du måste nog bestämma dig för vilket rs du vill ha.
Antingen:

```
<%
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM Tabsid, Sidor"
rs.Open SQLstr, conn
%>
```

Eller:

```
<%
Set rs = conn.Execute("SELECT * FROM Tabsid Where ID = " & Request.QueryString("ID") & " ")
%>
```

Båda dessa recordsets finns i koden direkt efter varandra med OLIKA sql-uttryck.
Som du ser är det den senare av dem som du checkar mot som är det aktiva recordsetet av de båda rs.
Skulle behålla det och fimpa bort det som har med adodb.recordset.

gör du det så kan du oxå fimpa de 2 första raderna som ej behövs...

cya,

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

## #4 — aleborg, 2001-03-02T11:12Z

Gjorde om det lite, men Recordset mrs visas fortfarande inte

```
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include virtual="unisafe\admin\adovbs.inc" -->
<%
dim Accessgroup
Accessgroup = Session("svAccessgroup")
	If Accessgroup <> "Admin" And Accessgroup <> "Layout" Then
		Response.Redirect "noaccess.asp"
	End If
%>
<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "mindb"
 %>
<%
SQL="SELECT * FROM Tabsid Where ID = " & Request.QueryString("ID") & " "
Set rs = conn.Execute(SQL)
%>
      <form name="form" method="post" action="layouttabchasucc.asp?ID=<%=rs("ID")%>">
<%
SQL1 ="SELECT * FROM Sidor"
set  mrs = conn.Execute(SQL1)
Do Until mrs.EOF
%>
<%
If len(mrs("Tabell1namn"))> 0 Then
%>
            <td width="20%" class="ie"><%=mrs("Tabell1namn")%><br>
              <input type="text" name="Tabell1" size="15" class="ie" value="<%=rs("Tabell1")%>">
            </td>
            <% End If %>
<%
mrs.MoveNext
Loop
mrs.Close
rs.Close
%>
```

\[Redigerat av aleborg den 02 mar 2001\]

\[Redigerat av aleborg den 02 mar 2001\]

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

## #5 — PatrikB, 2001-03-02T12:33Z

Du kan börja med att ta bort dessa 2 rader:

```
<%@LANGUAGE="VBSCRIPT"%>
<!-- #include virtual="unisafe\admin\adovbs.inc" -->
```

Denna rad: \<%@LANGUAGE="VBSCRIPT"%\> fyller ingen funktion. VBSCRIPT är redan satt som default script att köra på en IIS webserver. Att sätta språket en ggn till tar bara resurser från burken.

Hela filen adovbs.inc tycker jag inte heller är så speciellt bra att includera. Bättre att kopiera de konstanter man ska använda och lägga på sidan, eller i en egen inklud-fil.

Har du provat med att ta bort if-satsen och köra utan den?

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

## #6 — aleborg, 2001-03-02T12:48Z

Recordset mrs funkar utanför If satsen!
Recordsetet rs funkar i If satsen!

Har tagiy bort dom första två raderna, tack för tipset :)

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

## #7 — aleborg, 2001-03-02T13:00Z

Men If satsen funkar, text rutan syns!

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

## #8 — aleborg, 2001-03-02T13:04Z

Däremot ifall jag byter ut \<%=mrs("Tabell1namn")%\> till \<%=mrs("Tabell2namn")%\> så dyker Tabell2namn datan upp!

Går det inte att använda \<%=mrs("Tabell1namn")%\> i en If sats som baserar sig på (len(mrs("Tabell1namn"))?

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

## #9 — aleborg, 2001-03-02T23:06Z

Ingen som vet varför det inte funkar?

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

## #10 — aleborg, 2001-03-02T23:37Z

Måste jag skriva så här?

```
<%
If len(mrs("Tabell1namn"))> 0 Then
%>
<%
SQL1 ="SELECT * FROM Sidor"
set  mrs = conn.Execute(SQL1)
%>
            <td width="20%" class="ie"><%=mrs("Tabell1namn")%><br>
              <input type="text" name="Tabell1" size="15" class="ie" value="<%=rs("Tabell1")%>">
            </td>
            <% End If %>
```

Det verkar lite onödigt, efter som jag
redan har startat ett recordset för den!

Då borde ju inte Tabell1 funka heller!?

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

## #11 — aleborg, 2001-03-03T13:15Z

\*sliter i mitt hår och kan inte komma på vad som är fel\* :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8383-två-recordset