---
title: "Senaste medlemmarna?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11627-senaste-medlemmarna"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2001-09-15T12:21:00.000Z"
updated: "2001-09-15T14:30:00.000Z"
replies: 19
views: 384
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/11627-senaste-medlemmarna"
---

# Senaste medlemmarna?

## #1 — ampy, 2001-09-15T12:21Z

Ja gör ett community och på min framsida vill jag att de 5 senaste medlemmarna ska stå. Hur gör man?

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

## #2 — jorgen, 2001-09-15T12:38Z

Hej!

Du får hämta de senaste 5 med TOP i selectfrågan.

Tex i access:

```
SELECT TOP 5 * FROM tabell ORDER BY field DESC
```

Ex i MySQL:

```
SELECT * FROM tabell ORDER BY field DESC LIMIT 5
```

och sedan skriva ut resultatet.

mvh Jörgen

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

## #3 — ampy, 2001-09-15T12:43Z

Hej!

Jag är inte så bra på asp så skulle inte du kunna skriva ut hela koden. Databasen är i access.

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

## #4 — jorgen, 2001-09-15T12:50Z

Hej!

Något i stil med:

```
strSQL = "SELECT TOP 5 Username " & _
"FROM tabellen " & _
"ORDER BY field DESC "
strConn = "DSN="
Set objConn = Server.CreateObject("ADOdb.Connection")
objconn.Open strConn
arrMedlem = objConn.Execute(strSQL).GetRows()
objConn.Close()
Set objConn = Nothing

For I = 0 To UBound(arrMedlem,2)

Username = arrMedlem(0,I)

Response.Write "" & Username & "<br> "

Next
```

mvh Jörgen

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

## #5 — ampy, 2001-09-15T12:56Z

Det verkar inte fungera. Min databas heter members.mdb.

Skriv hela koden från \<% till %\>

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

## #6 — jorgen, 2001-09-15T13:01Z

Hej!

Det är hela koden, men du får byta till rätt fältnamn i SQL-frågan, jag antar att ditt fält i databasen inte heter Username.

Ändra de markerade sakerna till dina uppgifter:

```
strSQL = "SELECT TOP 5 [b]Username[/b] " & _
"FROM [b]tabellen[/b] " & _
"ORDER BY [b]field[/b] DESC "
strConn = "[b]DSN=[/b]"
Set objConn = Server.CreateObject("ADOdb.Connection")
objconn.Open strConn
arrMedlem = objConn.Execute(strSQL).GetRows()
objConn.Close()
Set objConn = Nothing
For I = 0 To UBound(arrMedlem,2)

Username = arrMedlem(0,I)

Response.Write "" & Username & "<br> "

Next
```

mvh Jörgen

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

## #7 — ampy, 2001-09-15T13:12Z

Det funkar inte. Måste man inte öppna databasen först. Om man måste det hur blir koden då.

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

## #8 — jorgen, 2001-09-15T13:27Z

Hej!

Jo det måste du. Det var därför du skulle byta ut de markerade bitarna:

Du får byta ut:

```
strConn = "DSN="
```

mot (om din connection nu ser ut så här)

```
strConn = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databas.mdb"
```

mvh Jörgen

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

## #9 — ampy, 2001-09-15T13:32Z

"ORDER BY field DESC "

Vad ska jag ändra där?

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

## #10 — jorgen, 2001-09-15T13:34Z

Hej!

Byt ut **field** mot det fältnamnet i databasen du vill sortera efter. Rekomenderat är det fältet som är räknare tex **Id** eller något.

mvh Jörgen

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

## #11 — ampy, 2001-09-15T13:40Z

Det blir detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80004005' 

\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Det går inte att hitta filen '(okänt)'. 

/community/default.asp, rad 86

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

## #12 — jorgen, 2001-09-15T13:43Z

Hur ser hela koden ut nu och vilken är rad 86?

Du måste angett fel databasnamn när du öppnar databasen.

Mvh Jörgen

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

## #13 — ampy, 2001-09-15T13:44Z

Så här ser hela koden ut:

\<%
strSQL = "SELECT TOP 5 username " & \_
"FROM username " & \_
"ORDER BY ID DESC "
strConn = "driver={Microsoft Access Driver (\*.mdb)};dbq=members.mdb" &";pwd=losen"
Set objConn = Server.CreateObject("ADOdb.Connection")
objconn.Open strConn
arrMedlem = objConn.Execute(strSQL).GetRows()
objConn.Close()
Set objConn = Nothing
For I = 0 To UBound(arrMedlem,2)
Username = arrMedlem(0,I)

Response.Write "" & Username & "\<br\> "

Next
%\>

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

## #14 — jorgen, 2001-09-15T13:56Z

Är

```
"driver={Microsoft Access Driver (*.mdb)};dbq=members.mdb[b]" &"[/b];pwd=losen"
```

det denna du brukar använda för den ser inte rätt ut? Jag brukar inte använda en sådan anslutning så jag vet inte riktigt hur den ska se ut, men det markerade verkar vara överflödigt.

och är sökvägen till databasen rätt?

mvh Jörgen

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

## #15 — ampy, 2001-09-15T14:06Z

Så här ser koden ut nu: 

\<%
strSQL = "SELECT TOP 5 username " & \_
"FROM username " & \_
"ORDER BY datum DESC "
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"
Set objConn = Server.CreateObject("ADOdb.Connection")
objconn.Open strConn
arrMedlem = objConn.Execute(strSQL).GetRows()
objConn.Close()
Set objConn = Nothing
For I = 0 To UBound(arrMedlem,2)
Username = arrMedlem(0,I)

Response.Write "" & Username & "\<br\> "

Next
%\>

Och detta felmeddelande blir det:

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/community/default.asp, rad 84

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

## #16 — Pace, 2001-09-15T14:15Z

Vilken är rad 84 då?

Annars kan du testa att splitta ned 

```
arrMedlem = objConn.Execute(strSQL).GetRows()
```

till

```
rs = objConn.Execute(strSQL)
arrMedlem = rs.GetRows()
```

det brukar krångla ibland har jag märkt.

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

## #17 — ampy, 2001-09-15T14:17Z

Så här ser rad 84 ut:

Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"

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

## #18 — jorgen, 2001-09-15T14:19Z

Nu är det läge att inte förivra sig när saker inte fungerar. Du har bytat ut strConn mot Connect.Open helt plötsligt.

```
strConn "driver={Microsoft Access Driver(*.mdb)};dbq=members.mdb"
```

Anger du den databaskoppling som du brukar använda så fungerar det.

mvh Jörgen

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

## #19 — ampy, 2001-09-15T14:23Z

Nu blir det istället detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer: 'strConn' 

/community/default.asp, rad 84

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

## #20 — @nders, 2001-09-15T14:30Z

jorgen glömde ett likhetstecken:

```
strConn = "driver={Microsoft Access Driver(*.mdb)};dbq=members.mdb"
```

mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11627-senaste-medlemmarna