---
title: "Ta fram lista från databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/52871-ta-fram-lista-från-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mav"
published: "2002-09-11T14:56:10.000Z"
updated: "2002-09-12T08:42:20.000Z"
replies: 11
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/52871-ta-fram-lista-från-databas"
---

# Ta fram lista från databas

## #1 — Mav, 2002-09-11T14:56Z

Hej!
Är inte så super haj på asp så jag hoppas ngn kan hjälpa till.

Så här är tanken: Man loggar in med användarnamn och lösen. Man kommer då till en sida där jag vill få upp en lista på alla projekt som finns under mitt kundnr. Man ska sedan kunna klicka sig vidare för att läsa mer om resp. projekt.
Jag har kommit så långt att jag loggar in men får bara upp det första projektet, tyvärr inte alla som jag skulle vilja...

Här är koden

```
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid

If RS.EOF Then
Response.Redirect("../feluser.asp") 
End If

If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp") 
End If
%>
.....
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
.....
```

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

## #2 — doggelito, 2002-09-11T15:30Z

Har du mer kod där du skrivit ...?

```
.....
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
.....
```

För att se fler så lär en loop finnas på sidan, typ:

```
While Not rs.eof
response.write "<a href=""kampanjinfo.asp?ID=" & rs("ID") & """>" & rs("Kampanjid") & "</a>"
rs.MoveNext
Wend
```

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

## #3 — OveRRidE, 2002-09-11T15:30Z

Eftersom din kod inte verkar vara fullständig, förutsätter jag att du inte har med detta:

```
<% do until rs.eof %>
<a href=kampanjinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
%>
```

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

## #4 — Mav, 2002-09-12T07:40Z

Tack! Precis så jag ville ha det, skall nu krångla till det lite :)
Har ett fält i databasen som heter "trk". Jag vill även här få upp en lista på dem men bara om det står "Ja" i "trk" fältet. Alltså behövs det en "if" sats ngnstans...
Har testat denna men får inte upp ngt

```
<%
If trk = Ja Then
do until rs.eof %>
<a href=trkinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
End If
%>
```

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

## #5 — @nders, 2002-09-12T07:45Z

Det fixar du enklast i din SQL-fråga: 

```
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "' [b]AND trk = 'Ja'[/b]"
```

Men, om fältet trk är av typen Ja/Nej, så ska det se ut så här i stället:

```
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "' [b]AND trk = True[/b]"
```

Mvh,

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

## #6 — Mav, 2002-09-12T08:01Z

Tack men det fungerar inte eftersom jag har andra saker jag ska visa som har trk = nej.
Så här ser hela koden på sidan ut, har hoppat över html delen...

```
Här är SQL frågan...
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid

If RS.EOF Then
Response.Redirect("../feluser.asp") 
End If

If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp") 
End If
%>
............
Här listar jag alla poster som finns på mitt kundnr....
<% do until rs.eof %>
<a href=infokampanj.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>, Trk: <%=rs("trk")%>
<br>
<% rs.movenext
loop
%>
............
Här vill jag då lista de som har trk = ja...
<%
If trk = Ja Then
do until rs.eof %>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<% rs.movenext
loop
End If
%>
```

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

## #7 — @nders, 2002-09-12T08:06Z

Ok, då förstår jag. Jag trodde du endast hade den koden du visade.

Du kör en rs.movefirst innan du börjar loopa igenom ditt recordset igen?

Vilken datatyp är fältet i tabellen? Är det text eller är det av Ja/Nej-typ?

Om det är text:

```
<%
do until rs.eof 
If rs("trk") = "Ja" Then 
%>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
```

Om det är Ja/nej:

```
<%
do until rs.eof 
If CBool(rs("trk")) Then 
%>
<a href=trackerinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
```

Mvh,

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

## #8 — Mav, 2002-09-12T08:19Z

Har provat precis som du skrev (textvarianten) men då listas inget trots att det finns "Ja" på flera poster i databasen. Har dubbelkollat den så att jag inte skrivit fel men allt är ok. 
Vad kan det bero på att det inte listas?

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

## #9 — @nders, 2002-09-12T08:20Z

Posta hela koden, från det att du öppnar recordsetet tills dess att du stänger det.

Mvh,

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

## #10 — Mav, 2002-09-12T08:28Z

Ok,

```
<%
Set fritid = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\kampanjlogg.mdb"
SQL = "SELECT * FROM logg Where Kundnr = '" & Request.Form("kundnr") & "'"
rs.OPEN SQL, fritid

If RS.EOF Then
Response.Redirect("../feluser.asp") 
End If

If NOT rs("Password")=Request.Form("password") Then
Response.Redirect("../felpass.asp") 
End If
%>
<html>
<body>
<b><%=rs("Kundnamn")%></b>
<br>
<br>
<% do until rs.eof %>
<a href=infokampanj.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>, Trk: <%=rs("trk")%> 
<br>
<% rs.movenext
loop
%>
<br>
<br>
<%
do until rs.eof 
If rs("trk") = "Ja" Then 
%>
<a href=trkinfo.asp?ID=<%=rs("ID")%>><%=rs("Kampanjid")%></a>
<%
End If
rs.movenext
loop
%>
</body>
</html>
```

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

## #11 — @nders, 2002-09-12T08:33Z

> **@nders skrev:**
>
> Du kör en rs.movefirst innan du börjar loopa igenom ditt recordset igen?

Alltså: Du måste göra en rs.movefirst innan du kan loopa igenom ditt recordset om du ska göra det en andra gång.

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

## #12 — Mav, 2002-09-12T08:42Z

Tusen tack!!!
Det fattade inte jag...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/52871-ta-fram-lista-från-databas