---
title: "Får inte ut något från databasen!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/91509-får-inte-ut-något-från-databasen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "oGGo"
published: "2003-11-28T20:01:35.000Z"
updated: "2003-11-28T20:09:07.000Z"
replies: 2
views: 164
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/91509-får-inte-ut-något-från-databasen"
---

# Får inte ut något från databasen!

## #1 — oGGo, 2003-11-28T20:01Z

Sitter som bäst och håller på att lära mig ASP men har nu stött på ett problem.
Jag har följande kod, men när värdena från databasen skall skrivas ut så kommer inte ett enda jota!

```php
<html>

<!-- #include virtual="/Virtual/adovbs.inc" -->

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\webs\ASP\Lektion39\adressbok.mdb"

	If Request.QueryString("ordning") = "Fornamn" OR Request.QueryString("ordning") = "Efternamn" OR Request.QueryString("Ordning") = "Adress" Then

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	If Request.Querystring("ordning") = "FOrnamn" Then
	Addera = "SELECT * FROM adressbok ORDER BY Fornamn"

	ElseIf Request.Querystring("ordning") = "Efternamn" Then
	Addera = "SELECT * FROM adressbok ORDER BY Efternamn"

	ElseIf Request.Querystring("ordning") = "Adress" Then
	Addera = "SELECT * FROM adressbok ORDER BY Adress"

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

	Följande adresser finns i adressboken:

	<ul>

<%	Do Until RecSer.EOF %>

	<li><% =RecSet("Fornamn") %> <b><% =("Efternamn") %></b><br>
	<%=RecSet("Adress")%> <hr noshade size="1">

<%	RecSet.MoveNext
	Loop
	RecSet.Close %>

<%	ElseIf Request.Querystring("ordning") = "Annasson" Then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	Addera = "SELECT * FROM adressbok WHERE efternamn = 'Annasson' ORDER BY Fornamn"

	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	DO Until RecSet.EOF %>

<li>
<%=RecSet("Fornamn")%> <b><%=RecSet("Efternamn")%></b><br>
<%=RecSet("Adress")%>
<hr noshade size="1">

<%	RecSet.MoveNext
	Loop
	RecSet.Close

	Connect.Close

	End If %>

</ul>

</html>
```

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

## #2 — oGGo, 2003-11-28T20:06Z

Adressen till sidan som ni skall besöka är fö. <http://oggo.ath.cx:8080/ASP/Lektion39/>

& ja, jag har värden i databasen.  :e

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

## #3 — oGGo, 2003-11-28T20:09Z

Ähh, fick det att fungera nu, så never mind.
Var ett enkelt fel...

Tolka denna som postwhore eller spam tråd om ni vill!  :birp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/91509-får-inte-ut-något-från-databasen