---
title: "Visa lista"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8662-visa-lista"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "diablo"
published: "2001-03-22T13:29:00.000Z"
updated: "2001-03-23T15:12:00.000Z"
replies: 15
views: 444
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/8662-visa-lista"
---

# Visa lista

## #1 — diablo, 2001-03-22T13:29Z

Tjena! .. 
Vill lista upp spel ur en db som jag har, men det vägrar fungera som det ska!

```
<%

	Set Connect = Server.CreateObject("ADODB.Connection")
	ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
	Connect.Open ConnectString

	Set game = Request.QueryString("show")

	showGames = "SELECT * FROM "& game &" "
	Set RS = Connect.Execute(showGames)

	countGames = "SELECT COUNT(id) AS antal FROM "& game &" "
	Set RS_C = Connect.Execute(countGames)

%>
```

Så ser koden ut som jag använder mig av när jag ska hämta spelen ur databasen!
När jag öppnar sidan, så skickar jag med en sträng typ: "games.asp?show=flipper", men ibland så blir det felet:

```
Microsoft JET Database Engine fel '80040e14' 

Syntaxfel i FROM-instruktion. 

/test/games.asp, rad 12
```

eller också så blir det:

```
ADODB.Field fel '80020009' 

Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats; åtgärden som programmet begärt kräver en aktuell post. 

?
```

Varför blir det så? 

Vissa kategorier som jag vill lista upp funkar. Alltså, jag tycker att om det är nåt som är knas så borde det ju bli samma fel hela tiden men det blir det inte! Vissa funkar juh till och med!

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

## #2 — Rossifumi, 2001-03-22T13:32Z

Det finns alltså inga poster i de kolumnerna...

Du får köra:

```
if rs.eof then
Response.Write "Inga poster"
Else
'Loopa ut
End If
```

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

## #3 — diablo, 2001-03-22T13:34Z

Jo jag har gjort så här:

```
<% If RS_C("antal") = 0 Then %>

<font face="verdana" size="1">
<strong> Kategori: </strong> <%= RS("category") %>  <br />
<strong> Antal: </strong> 0 </font> <br /><br />

	<br />

	<%
		RS.Close
		Set RS = Nothing
		RS_C.Close
		Set RS_C = Nothing
		Connect.Close
		Set Connect = Nothing
	%>

<% Else %>
```

Men det hjälper juh inte!
Det blir i alla fall samma fel!

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

## #4 — Rossifumi, 2001-03-22T13:37Z

Vet ju inte riktigt ifall det är samma sak men jag är ju ingen expert...

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

## #5 — diablo, 2001-03-22T13:40Z

Jag vet inte heller, men om jag gör på ditt sätt så kommer den ju till slut att skriva ut "Inga poster", eftersom när jag loopat igenom hela databasen så blir den ju EOF. eller tänker jag fel?

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

## #6 — Rossifumi, 2001-03-22T13:46Z

Den kollar ju ifall det finns några poster... Gör det inte det så skriver den "Det finns..." annars så börjar den ju loopa tills det tar slut!

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

## #7 — diablo, 2001-03-22T13:48Z

Ja just det, jag som tänkte fel! ..
Ska testa det! :)

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

## #8 — diablo, 2001-03-23T12:12Z

Får det fortfarande inte att fungera! Det känns ju som att det är väldigt simpelt att kolla om det är tomt i db:n, men jag kommer inte på nåt mer att testa! hjäälp! :)

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

## #9 — @nders, 2001-03-23T12:27Z

får du alltså syntax-fel?

skriv ut sql-frågan då med response.write så kan man kanske se vad som är paj.

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

## #10 — diablo, 2001-03-23T12:34Z

Nää då, syntax felet ordnade sig, de verkade som om man inte fick ha en tabell som heter "action", bytte bara namn på den så funkade det! ..

Problemet nu är om det är helt tomt i databasen så vill jag skriva ut det, som det är nu så står det: 

```
ADODB.Field fel '80020009' 
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats; åtgärden som programmet begärt kräver en aktuell post. 

?
```

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

## #11 — @nders, 2001-03-23T12:37Z

då har du inte gjort som rossi menade.

släng upp hela koden så ska vi se till att det lirar.

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

## #12 — diablo, 2001-03-23T12:40Z

hehe, okej! :)

```

<%

	Set Connect = Server.CreateObject("ADODB.Connection")
	ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")
	Connect.Open ConnectString

	Set game = Request.QueryString("show")

	showGames = "SELECT * FROM "& game &" "
	Set RS = Connect.Execute(showGames)

	countGames = "SELECT COUNT(id) AS antal FROM "& game &" "
	Set RS_C = Connect.Execute(countGames)

%>

<html>
<head>

</head>
<body bgcolor="#FFFFFF" background="pics/bgbig.gif">

<% If RS_C("antal") = 0 Then %>

<font face="verdana" size="1">
<strong> Kategori: </strong> <%= RS("category") %>  <br />
<strong> Antal: </strong> 0 </font> <br /><br />

	<br />

	<%
		RS.Close
		Set RS = Nothing
		RS_C.Close
		Set RS_C = Nothing
		Connect.Close
		Set Connect = Nothing
	%>

<% Else %>

<font face="verdana" size="1">
<strong> Kategori: </strong> <%= RS("category") %>  <br />
<strong> Antal: </strong> <%= RS_C("antal") %> </font> <br /><br />

<div align="center">

<table border="0" cellspacing="0" cellpadding="0">

<% Do until RS.EOF

	counter = counter + 1
	If counter Mod 2 = 0 then
	   color = "#FCFCF3"
	Else
	   color = ""
	End If

%>

<tr>
	<td width="120" bgcolor="<%= color %>"><font face="verdana" size="1"><a href="<%= RS("path") %>"><%= RS("name") %></a></font></td>
	<td width="50" bgcolor="<%= color %>" align="right"><font face="verdana" size="1" color="#606060"><%= RS("size") %></font></td>
	<td width="20" bgcolor="<%= color %>">&nbsp;</td>
	<td width="170" bgcolor="<%= color %>" align="right"><a href="<%= RS("path") %>">Info</a></td>
</tr>

<% RS.MoveNext
   Loop
%>

</table>
</div>

<br />

<% End If %>

</td>
</tr>
</table>

</body>
</html>

<%
	RS.Close
	Set RS = Nothing
	RS_C.Close
	Set RS_C = Nothing
	Connect.Close
	Set Connect = Nothing
%>
```

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

## #13 — @nders, 2001-03-23T13:50Z

då får inte veta vilken rad i koden som levererar felmeddelandet?

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

## #14 — LarsG, 2001-03-23T14:05Z

```

<% If RS_C("antal") = 0 Then %>

<font face="verdana" size="1">
<strong> Kategori: </strong> <%= RS("category") %> <br />
<strong> Antal: </strong> 0 </font> <br /><br />

<br />
```

Om RS_C("antal") är 0 så är ju RS tomt, men du försöker ändå skriva ut RS("category") inom detta if-block.

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

## #15 — @nders, 2001-03-23T14:07Z

bra där, LarsG!

jag är ett blindstyre... ;)

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

## #16 — diablo, 2001-03-23T15:12Z

hehe, ja du ser! 
Tack så mycket! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8662-visa-lista