---
title: "visa sorterat fungerar inte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/134874-visa-sorterat-fungerar-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Krister"
published: "2005-09-27T12:36:15.000Z"
updated: "2005-09-27T13:39:22.000Z"
replies: 2
views: 199
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/134874-visa-sorterat-fungerar-inte"
---

# visa sorterat fungerar inte

## #1 — Krister, 2005-09-27T12:36Z

Hej
Jag har ett gammalt adressboksscript som jag tänkte utnyttja men får inte det att funka
så här ser navigeringen ut
\<html\>

\<body\>

\<html\>

\<body\>

\<b\>Ta en titt i min adressbok!\</b\>
\<hr noshade size="1"\>

Sortera efter:

\<ul\>
\<li\>\<a href="visa.asp?ordning=Fornamn"\>Förnamn\</a\>
\<li\>\<a href="visa.asp?ordning=Efternamn"\>Efternamn\</a\>
\<li\>\<a href="visa.asp?ordning=Telefon"\>Telefon\</a\>
\<li\>\<a href="visa.asp?ordning=Fax"\>Fax\</a\>
\<p\>
\<li\>\<a href="visa.asp?ordning=Annasson"\>Enbart personer med efternamnet Annasson\</a\>

\</ul\>

\<hr noshade size="1"\>

Hur ska visa.asp se ut för att detta ska funka. Det script jag har ser ut så här

\<html\>

\<!-- #include virtual="/adressbok31/databas/adovbs.inc" --\>

\<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/adressbok31/databas/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"

   End If

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

	Följande adresser finns i adresseboken.\<p\>

	\<ul\>

\<%	Do Until RecSet.EOF %\>

	\<li\>\<% =RecSet("Fornamn") %\>&nbsp;\<b\>\<% =RecSet("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 %\>

	Följande adresser finns i adresseboken.\<p\>

	\<ul\>

\<%	Do Until RecSet.EOF %\>

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

\<%	RecSet.MoveNext
	Loop
	RecSet.Close

	Connect.Close

	End If %\>

   \<p\>\<a href="default.asp"\>Sortera i ny ordning\</a\>

   \</ul\>

\</html\>

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

## #2 — Engine^, 2005-09-27T13:33Z

Jag föreslår att du gör om det scriptet från början annars kommer du bli knasig på sidan ;)

Vänligen använd &#91;kod\]-taggar.

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

## #3 — Krister, 2005-09-27T13:39Z

OK hur skulle du gjort om det i så fall?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/134874-visa-sorterat-fungerar-inte