---
title: "Plocka ut från db till två variabler"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61089-plocka-ut-från-db-till-två-variabler"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "glidarn"
published: "2002-12-04T10:56:53.000Z"
updated: "2002-12-04T11:10:34.000Z"
replies: 3
views: 336
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/61089-plocka-ut-från-db-till-två-variabler"
---

# Plocka ut från db till två variabler

## #1 — glidarn, 2002-12-04T10:56Z

Hur kan jag ändra i den här koden så att den senaste inlagda posten i news hamnar i strLatestNews och de övriga nio i strOldNews?

```
<%
 
	Dim strNews

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news" 'ORDER BY newsId DESC
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
	Do Until RecSet.EOF
		
		strNews = strNews & "<br>" & RecSet("newsid") & "<br>" 
		strNews = strNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		strNews = strNews & RecSet("newslatest")
		strNews = strNews & " <br><br>"
		
		RecSet.movenext
		
	Loop
	
	Response.Write "&txtNews=" & strNews
	Conn.close
%>
```

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

## #2 — Brimba, 2002-12-04T11:02Z

En temporär lösning kan vara exempelvis:

```
<%
 
	Dim strLatestNews, strOldNews

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news" 'ORDER BY newsId DESC
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
	Do Until RecSet.EOF
		
		if (len(trim(strLatestNews)) = 0) then
			strLatestNews = strLatestNews & "<br>" & RecSet("newsid") & "<br>" 
			strLatestNews = strLatestNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
			strLatestNews = strLatestNews & RecSet("newslatest")
			strLatestNews = strLatestNews & " <br><br>"
		else
			strOldNews = strOldNews & "<br>" & RecSet("newsid") & "<br>" 
			strOldNews = strOldNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
			strOldNews = strOldNews & RecSet("newslatest")
			strOldNews = strOldNews & " <br><br>"
		end if
		RecSet.movenext
		
	Loop
	
	Response.Write "&txtNews=" & strOldNews
	Conn.close
%>
```

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

## #3 — LarsG, 2002-12-04T11:05Z

```
Dim strLatestNews,strOldNew,First

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("tobias.mdb")

   	SQL = "SELECT TOP 10 newsId, newsDate, newsLatest FROM news ORDER BY newsId DESC"
	
	Set RecSet = Conn.Execute(SQL)
	
	RecSet.movefirst
	
        First = true
	Do Until RecSet.EOF
		
                 if  first then 
  		     strLatestNews = strLatestNews & "<br>" & RecSet("newsid") & "<br>" 
		     strLatestNews = strLatestNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		      strLatestNews = strLatestNews & RecSet("newslatest")
		     strLatestNews = strLatestNews & " <br><br>"
		     first = false
                else
                      strOldNews = strOldNews & "<br>" & RecSet("newsid") & "<br>" 
		     strOldNews = strOldNews & "<br><font color=""#999933"">" & RecSet("newsDate") & " </font><br>"
		      strOldNews = strOldNews & RecSet("newslatest")
		     strOldNews = strOldNews & " <br><br>"
                end if
		RecSet.movenext
		
	Loop
```

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

## #4 — glidarn, 2002-12-04T11:10Z

Jorå det funkade precis som jag hade tänkt mig, tack.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61089-plocka-ut-från-db-till-två-variabler