---
title: "kan bara hämta värde från recordset en gång"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51343-kan-bara-hämta-värde-från-recordset-en-gång"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jymdis"
published: "2002-08-26T19:39:15.000Z"
updated: "2002-08-27T15:28:12.000Z"
replies: 8
views: 489
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/51343-kan-bara-hämta-värde-från-recordset-en-gång"
---

# kan bara hämta värde från recordset en gång

## #1 — Jymdis, 2002-08-26T19:39Z

Hej!
Jag har ett \_jäkligt\_ mysko problem.

Jag har ett recordset där jag hämtar information ur (konstigt va!). 
Säg jag har ett fält som heter loptext. 

Om jag försöker skriva ut det mer än en gång så bara försvinner värdet. Försöker jag sen ge en variabel värdet så försvinner det också.

Hela sidans kod är såhär: 

```
>Här är en include fil (som den hämtar MM_gora_string ifrån) samt vbscript defination som jag inte kan skriva pga webforum tolkar dom fel.<
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_gora_STRING
Recordset1.Source = "SELECT *  FROM main  ORDER BY overrubrikID asc,yearID desc"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "4"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_gora_STRING
Recordset2.Source = "SELECT *  FROM main  WHERE typID = " + Replace(Recordset2__MMColParam, "'", "''") + ""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>

<HTML>
<HEAD>
<TITLE>1</TITLE>
<link href="links.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY text=#003f3f vLink=#003f3f link=#003f3f bgColor=#ffffff><BASEFONT size=2>
<P>
<CENTER>
</CENTER>

<CENTER>
  <TABLE cellSpacing=0 cellPadding=0 width=700 border=0>
    <TBODY>
      <TR> 
        <TD width="250" align="center" valign="top">&nbsp;</TD>
        <TD width="450"><p><img src="bilder/gora.gif" width="115" height="70"></p>
          <p>&nbsp;</p></TD>
      </TR>
      <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
      <% 
		select case recordset1("typid") 
		
		case "1"
		skriv = "<br><font size='3' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & recordset1("rubrik") &"</strong></font>" 
		case "2"
		skriv = "<font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & recordset1("rubrik") &"</strong></font>" 
		case "3" 
		skriv = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'><strong>" & recordset1("rubrik") & "</strong> - " &"</font>" 
		if not recordset1("underrubrikbild") = "" then bild = "<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>" else bild = "" end if 
		recordset2.movefirst
		
		do while not recordset2.eof
		if recordset2("overrubrikID") = recordset1("overrubrikID") AND recordset2("year") = recordset1("year") AND recordset2("underrubrikID") = recordset1("underrubrikID") then 
		skriv = "<font size='1' face='Verdana, Arial, Helvetica, sans-serif'><a href='lank.asp?id=" & recordset2("id") & "&underrubrikID=" & recordset2("underrubrikID") & "&overrubrikID=" & recordset2("overrubrikID") & "&year=" & recordset2("year") & "&lankID=" & recordset2("lankID") &"'>" & recordset1("underrubriktext") & "</a></font>" 
     	if not recordset1("underrubrikbild") = "" then bild = "<img src='upload/" & recordset1("underrubrikbild") & "' width='100' height='80'  border='1'><br> <font size='1' face='Verdana, Arial, Helvetica, sans-serif'>" & recordset1("underrubrikbildtext") & "</font>" else bild = "" end if 
		
		end if
		recordset2.movenext
		loop
		
		case else
		skriv = ""
		end select
	
		%>
      <% if not skriv = "" then %>
      <TR> 
        <TD width="250" height="10" align="center" valign="top"> <% if not bild = "" then response.write bild end if  %>
        </TD>
        <TD width="450" height="10" valign="top"><% response.write skriv %></TD>
      </tr>
      <% end if %>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
      
      
      
      
      
      
      <TR>
        <TD width="250" align="center" valign="top">&nbsp;</TD>
        <TD width="450"></TD>
      </TR>
      <TR> 
        <TD width="250" align="center" valign="top">&nbsp;</TD>
        <TD width="450"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">&copy; 
                    
      </font></TD>
      </TR>
    </TBODY>
  </TABLE>
  <p>&nbsp;</p>
  <p>&nbsp; </p>
  </CENTER></BODY></HTML>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
```

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

## #2 — @nders, 2002-08-26T19:42Z

Jag har inte kollat på din kod, men det är inte så konstigt. Eller rättare sagt, lite konstigt är det, men inte speciellt ovanligt.

Du har fält av typen PM / Memo i ditt recordset, eller hur?
Gör då så här:
\* Specificera i din SQL-fråga alla fält du vill ha, med PM/Memo-fälten sist i fältlistan. **Select Fält1, Fält2, PMFält1, PMFält2 From Tabellen**
\* Lägg in fältvärdena i variabler *i den ordning fälten specificerades* i SQL-frågan. 
\* Använd sedan de variablerna istället för att referera till recordsetet.

Mvh,

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

## #3 — Jymdis, 2002-08-26T21:47Z

jepps =)
du har rätt.. jag inte provat lösningen men jag vill dra mig till minnes att jag har haft det här problemet innan.. :)
det brukar oftast räcka med att lägga pmfälten sist i tabellen, då jag använder dreamweaver mx och dess inbyggda recordset-byggare så sorterar den då sql frågan efter hur databasen ser ut. 

tack så mycket för hjälpen =)

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

## #4 — Erik Juhlin, 2002-08-27T06:23Z

Jymdis, du har inte händelsevis gjort Zoegas hemsida?
Koden där ser nästan precis ut som du skrivit här uppe. Eller kommer den koden från något annat ställe? Eller är det nån skola som lär ut att man ska koda så?

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

## #5 — CatZ, 2002-08-27T06:29Z

> **Jymdis skrev:**
>
> MM_gora_STRING

MM = MacroMedia, skulle tro han försöker sig på att göra saker med dreamweaver MX villket är något jag verkligen inte rekommenderar. JAg sitter själv med Macromedia MX för att färgbilden är suvvvvvve där. Men som sagt försök skriva allt själv :)

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

## #6 — Erik Juhlin, 2002-08-27T06:41Z

Ah fan...

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

## #7 — solbulle, 2002-08-27T08:12Z

> **Jymdis skrev:**
>
> då jag använder dreamweaver mx och dess inbyggda recordset-byggare...

Som sagt...

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

## #8 — Jymdis, 2002-08-27T15:05Z

```
"SELECT ID, typID, overrubrikID, YearID, Year, underrubrikbild, underrubrikbildtext, underrubrikID, Lankbild, LankID, Lankbildtext, Lanktext, underrubriktext, rubrik FROM main"
```

Jag har den här, och alla PM fält ligger sist i tabellen. Men det fungerar ändå inte?
Inte ens när jag lägger in det i en variabel.

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

## #9 — CatZ, 2002-08-27T15:28Z

red. Year ÄR ett reserverat ord i Access byt ut det mot nagonting annat!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51343-kan-bara-hämta-värde-från-recordset-en-gång
