--- title: "alfabetisk ordning" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/86764-alfabetisk-ordning" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Meng" published: "2003-09-23T08:57:42.000Z" updated: "2003-09-23T10:36:21.000Z" replies: 7 views: 275 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/86764-alfabetisk-ordning" --- # alfabetisk ordning ## #1 — Meng, 2003-09-23T08:57Z Jag kan inte mycket om ASP men jag lär mig mkt sakta =) Vad eller hur får jag denna koden till att lista objekten från databasen i namn ordning? allså alfabetisk ordning. ``` <%If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId")) End If%> <%If Request.QueryString("catId") = "" Then Set RS=Conn.Execute("Select * From kat Where sub_kat=0") If RS.EOF Then%>
Inga kategorier inlagda
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId")) Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId")) If Antal("antal") <> "0" Then If RS.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"class="vit"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If Else%>
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId")) If Url.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else Do Until Url.EOF%>
" target="_blank" class="rubrik" onclick="javascript:location.reload();" onMouseOver="self.status='<%=Url("url")%>';return true" onMouseOut="self.status=' ';return true"><%=Code(Url("namn"))%> - <%=Url("klick")%> klick
<%=Code(Url("info"))%>
<%Url.MoveNext Loop End If End If If Request.QueryString("catId") <> "" Then Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%> <%End If End If Conn.Close Set Conn=Nothing%> ``` Permalänk: https://www.webforum.nu/p/86764 ## #2 — Palle, 2003-09-23T09:00Z ``` [red]Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY [b]X[/b]")[/red] ``` **X** \= Kolumnen du vill sortera efter.   Permalänk: https://www.webforum.nu/p/1164746 ## #3 — Meng, 2003-09-23T09:06Z Jag provade och döpte X till Namn eller namn men då blev det: Microsoft JET Database Engine fejl '80040e10' Der er ikke angivet nogen værdi for en eller flere krævede parametre. /test/teknisk/index.asp, linje 91 ska jag kanske skriva fldNamn? Permalänk: https://www.webforum.nu/p/1164751 ## #4 — Meng, 2003-09-23T09:10Z ops jag hade bytt ut fel kod, Men det verkar inte funka... 930960017 DK Elektriske ledniger - kompressorer & styretavler Terminalrør / Tyller 57 NEG 16.11.01 1 930960018 DK Signaludveksling Kompressorkontrollpanel LC-1A 57 HHT 24.10.96 2 10.11.97 930960019 DK Signaludveksling Kompressorkontrollpanel LC-1D 57 HHT 24.10.96 2 10.11.97 930960020 DK Signaludveksling Kompressorkontrollpanel LC-2A 57 HHT 24.10.96 2 10.12.97 930960021 DK Signaludveksling Kompressorkontrollpanel LC-4A 57 HHT 24.10.96 2 10.11.97 930960022 DK Diffuser/forrotation Stillemotorer - Justering 57 HHT 12.09.96 0 930930118 DK Flowamp ?? AL 23.07.93 1 16.02.94 930940032 UK Automatic Set Point Control (APSC) ?? SKC 19.10.90 1 06.04.93 930940033 DK Signaler mellem MCP og LC ?? SKC 25.02.94 2 11.10.96 930920056 DK EL-info 57 \* NEG 10 16.08.00 930920072 DK Testblanket for Tryktransmitter for FlowComp ?? KKJ 26.11.92 1 02.03.93 ? 930960024 DK Checkliste for LC-tavler 57 \* HHT 20.11.98 1 02.11.99 930960025 DK Checkliste for MC-tavler 57 \* 930970009 DK Ordreplan for MCP-tavler 57 HHT 07.03.97 26.05.00 930980005 DK Projektoverdragelse til el-afdelingen 57 \* HHT 29.06.98 1 21.11.01 930980006 DK Motorstarter for HV-TURBO kompressorer ?? HHT 15.09.98 1 05.10.98 930990027 DK Vejledning for LC-Checkliste 57 HHT 02.11.99 0 930000009 DK Identifikation af elektroteknisk dokumentation 57 \* NEG 11.05.00 0 930000012 DK Stykliste EL 57 \* NEG 09.09.00 0 930000012 DK Følgeseddel EL 57 \* NEG 09.05.00 0 Det sissta nummret här borde ju vara först? "Namn" âr det första nummret + DK eller UK ``` <%If Request.QueryString("catId") = "" Then Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY Namn") If RS.EOF Then%>
Inga kategorier inlagda
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"><%=RS("kat")%>
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If ``` Permalänk: https://www.webforum.nu/p/1164754 ## #5 — Palle, 2003-09-23T10:04Z Hmm.. ok, så namnet är alltså nummer? Testa då: ``` [red]Set RS=Conn.Execute("Select * From kat Where sub_kat=0 ORDER BY Namn DESC")[/red] ``` Permalänk: https://www.webforum.nu/p/1164786 ## #6 — Meng, 2003-09-23T10:24Z Vilken linje? så jag inte gör fel igen Permalänk: https://www.webforum.nu/p/1164798 ## #7 — Palle, 2003-09-23T10:27Z Linje? \- Bra, fråga.. ingen aning vilken rad det är i din kod. ;) I den kod du skrev här ovan ([denna](http://www.webforum.nu/showthread.php?s=&postid=717490#post717490)) ligger den sql-satsen på rad 2. Permalänk: https://www.webforum.nu/p/1164799 ## #8 — Meng, 2003-09-23T10:36Z Ok jag har varit otydlig.. Bifogad fil visar sidan och hur den ser ut. Jag vill ha att den linjen som heter "Nr" i det grafiska fast den heter "Namn" i databasen och asp hämtar den också som "Namn". så du inte blir förvirrad allså =) Jag vill ha den att sortara "Namn" i bokstavs och sifferordning som du ser att den inte gör på bilden. Här är den riktiga koden *(nog)* ``` Set RS=Conn.Execute("Select * From kat Where sub_kat=" & Request.QueryString("catId")) Set Kat=Conn.Execute("Select * From kat Where id=" & Request.QueryString("catId"))%>
<%=Kat("kat")%> <%Set A1=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId")) Set A2=Conn.Execute("Select Count(*) As antal From url Where kat=" & Request.QueryString("catId")) If A1("antal") = "0" And A2("antal") <> "0" Then%> ">Tilføj link <%ElseIf A1("antal") = "0" And A2("antal") = "0" Then%> ">Tilføj link | ">Tilføj kategori <%ElseIf A1("antal") <> "0" And A2("antal") = "0" Then%> ">Tilføj kategori <%Else%> ">Tilføj link | ">Tilføj kategori <%End If%> | <%If Kat("sub_kat") = 0 Then%> Tilbage <%Else%> ">Tilbage <%End If%> | Log af
<%Set Antal=Conn.Execute("Select Count(*) As antal From kat Where sub_kat=" & Request.QueryString("catId")) If Antal("antal") = "0" Then Set Url=Conn.Execute("Select * From url Where kat=" & Request.QueryString("catId")) If Url.EOF Then%>
Inget finns under <%=Kat("kat")%>
<%Else%>
Nr Betegnelse Udført af Dato Rev. Dato Udgået
<%Do Until Url.EOF%>
" target="content" class="rubrik"><%=Code(Url("namn"))%> <%=Code(Url("info"))%> <%=Code(Url("afd"))%> <%=Code(Url("kh"))%> <%=Code(Url("af"))%> <%=Code(Url("dato"))%> <%=Code(Url("rev"))%> <%=Code(Url("dato2"))%> <%=Code(Url("ud"))%> &do=changelink&id=<%=Url("id")%>" class="mini">Ændre &do=dellink&id=<%=Url("id")%>" class="mini" onClick="return confirm('Vil du virkligen fjerne <%=Url("namn")%>?');">Fjern
<%Url.MoveNext Loop End If Else If RS.EOF Then%>
Ikke noget under <%=Kat("kat")%>
<%Else%>
<%x=0 Do Until RS.EOF Response.Write "" For i=1 to PK%> " Next Response.Write "" Loop%>
<%If RS.EOF then%>
 
<%Else%>
"class="vit"><%=RS("kat")%> - &do=changekat&id=<%=RS("id")%>" class="mini">Ændre &do=delkat&id=<%=RS("id")%>" class="mini" onClick="return confirm('Vil du virkligen fjerne <%=RS("kat")%>?');">Fjerne
<%X=X+1 RS.MoveNext End If Response.Write "
<%End If End If End If%> <%If Request.QueryString("catId") <> "" Then%> <%End If ElseIf Request.Querystring("action") = "logut" Then Session.Abandon Response.Redirect "index.asp" End If Conn.Close Set Conn=Nothing%> ``` Bilagor: - [tek.jpg](https://www.webforum.nu/a/2039.jpg) Permalänk: https://www.webforum.nu/p/1164802 --- Tråden på webben: https://www.webforum.nu/amne/asp/86764-alfabetisk-ordning