---
title: "optimera hämtning av meny från db"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100747-optimera-hämtning-av-meny-från-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2004-04-01T10:22:41.000Z"
updated: "2004-04-02T07:44:19.000Z"
replies: 1
views: 146
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/100747-optimera-hämtning-av-meny-från-db"
---
# optimera hämtning av meny från db
## #1 — timedia, 2004-04-01T10:22Z
Har en meny där rubrikerna ligger i db sorterade under vanster1, vanster 2 o.s.v. När jag ska hämta dom verkar det orimligt att skapa nya recset för varje undermeny? Hur fixar jag detta med mindre och mer optimal kod?
```
Sub menylistning()
Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Menyn WHERE Rub = 'vanster1'"
RS.Open Visa, Connect
Response.Write "
"
end if
Loop
Set RS = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM Menyn WHERE Rub = 'vanster2'"
RS.Open Visa, Connect
Response.Write "
"
end if
Loop
[B]o.s.v. med vanster3
o.s.v. med vanster4
o.s.v.[/B]
RS.Close: Set rs = nothing
End Sub
```
Permalänk: https://www.webforum.nu/p/100747
## #2 — Engine^, 2004-04-02T07:44Z
En förkortad variant går att göra, men om det är någon större optimering vete tusan.
Frågan är om det ens blir rätt ;)
```
Sub MenyListning()
Dim objRS, strSql, strLast, strEnd
Set objRS = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT Rub, Kategori FROM Menyn ORDER BY Rub"
objRS.Open strSql, Connect
blnEnd = False
strLast = ""
While Not objRS.EOF
If Not strLast = objRS(1) Then
Response.Write "
"
strLast = objRS(1)
objRS.MoveNext
If blnEnd Then
Response.Write "
"
blnEnd = False
End If
Wend
objRS.Close
Set objRS = Nothing
End Sub
```
Permalänk: https://www.webforum.nu/p/1313249
---
Tråden på webben: https://www.webforum.nu/amne/asp/100747-optimera-hämtning-av-meny-från-db
" & RS("Kategori") & "