---
title: "Hämta poster ur databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63821-hämta-poster-ur-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "[AMD]Zmaster"
published: "2003-01-04T13:12:59.000Z"
updated: "2003-01-04T14:33:16.000Z"
replies: 13
views: 245
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/63821-hämta-poster-ur-databas"
---

# Hämta poster ur databas

## #1 — [AMD]Zmaster, 2003-01-04T13:12Z

Hejsan, jag har en databas som heter databas.mdb, i den finns det en som heter "nyhetsbrev".
I tabellen finns det 2 fält, ett ID och ett som heter "email".

Hur skriver jag nu en sida som hämtar alla emailadresser och skriver ut dem 1 på varje rad?

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

## #2 — CatZ, 2003-01-04T13:16Z

\<%
SQL = "SELECT \* FROM nyhetsbrev Order BY id"
set rs = connect.Execute(SQL)

  response.write email & "\<br\>"
%\>

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

## #3 — [AMD]Zmaster, 2003-01-04T13:21Z

Räcker den lilla kodsnutten??

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

## #4 — Josef, 2003-01-04T13:27Z

```
<%
Dim objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

Dim objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")

Do until objRs.EOF
     Response.Write(objRs("email") & "<br>")
     objRs.MoveNext
Loop

Set objRs = Nothing
Set objConn = Nothing
%>
```

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

## #5 — [AMD]Zmaster, 2003-01-04T13:30Z

Josef:
Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/test/index.asp, line 2 

Dim objConn = Server.CreateObject("adodb.Connection")
\------------^

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

## #6 — alj, 2003-01-04T13:33Z

Men josef då ;)

```
<%
Dim objConn
objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

Dim objRs
objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")

Do until objRs.EOF
     Response.Write(objRs("email") & "<br>")
     objRs.MoveNext
Loop

Set objRs = Nothing
Set objConn = Nothing
%>
```

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

## #7 — [AMD]Zmaster, 2003-01-04T13:35Z

Hmm, verkar som det ändå inte vill funka:
Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/test/index.asp, line 4

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

## #8 — Josef, 2003-01-04T13:39Z

> **alj skrev:**
>
> Men josef då ;)

Aha... Sorry, har suttit med .Net nu ett tag... :r

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

## #9 — [AMD]Zmaster, 2003-01-04T13:43Z

Oki, men vad är felet i alj's senaste inlägg?

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

## #10 — cyprys, 2003-01-04T14:07Z

**Set** objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")

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

## #11 — [AMD]Zmaster, 2003-01-04T14:21Z

```
<%
Dim objConn
objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

Dim objRs
Set objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")

Do until objRs.EOF
     Response.Write(objRs("email") & "<br>")
     objRs.MoveNext
Loop

Set objRs = Nothing
Set objConn = Nothing
%>
```

 

Var det så du menade så fungerar inte det :(

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

## #12 — Josef, 2003-01-04T14:25Z

```
<%
Dim objConn
[b]Set[/b] objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")

Dim objRs
Set objRs = objConn.Execute("SELECT email FROM nyhetsbrev ORDER BY id")

Do until objRs.EOF
     Response.Write(objRs("email") & "<br>")
     objRs.MoveNext
Loop

Set objRs = Nothing
Set objConn = Nothing
%>
```

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

## #13 — cyprys, 2003-01-04T14:26Z

/ r

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

## #14 — [AMD]Zmaster, 2003-01-04T14:33Z

Ahh, äntligen, tack så hemskt mycket!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/63821-hämta-poster-ur-databas