---
title: "Utskrift av Huvud + Submeny"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/132501-utskrift-av-huvud-submeny"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MickeA.com"
published: "2005-08-09T20:06:15.000Z"
updated: "2005-08-09T20:28:43.000Z"
replies: 1
views: 213
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/132501-utskrift-av-huvud-submeny"
---
# Utskrift av Huvud + Submeny
## #1 — MickeA.com, 2005-08-09T20:06Z
Hej!
Håller på och gör en meny där vissa val innehåller en sub.
Problemet är det det blir helt konstigt vid utskriften, det skrivs inte alls ut på det sätt jag vill.
Här är koden:
```
<%
sSql = "SELECT mId, mItem_SE " &_
"FROM tbl_mMenu " &_
"WHERE mPageId = 3 " &_
"ORDER BY mSOrder ASC"
Set oRec = oConn.Execute(sSql)
If Not oRec.EOF Then
Response.Write("" & VbCrLf)
Do While Not oRec.EOF
menuId = oRec("mId")
mItem = oRec("mItem_SE")
Response.Write("- " & mItem & "
" & VbCrLf)
sSql = "SELECT sId, sItem_SE " &_
"FROM tbl_sMenu " &_
"WHERE mId = " & SubPageId & " " &_
"ORDER BY sOrder ASC"
Set rsSub = oConn.Execute(sSql)
If Not rsSub.EOF Then
Response.Write( "- " & VbCrLf &_
"
" & VbCrLf)
Do While Not rsSub.EOF
sItem = rsSub("sItem_SE")
Response.Write("- " & sItem & "
- " & VbCrLf)
rsSub.MoveNext
Loop
Response.Write( "
" & VbCrLf &_
" " & VbCrLf)
End If
oRec.MoveNext
Loop
Response.Write("
" & VbCrLf)
End If
Set sSql = Nothing
Set oRec = Nothing
%>
```
Resultatet blir enl. följande:
```
```
Det blir fel, eftersom submenyn endast skall skrivas ut under det val man gjort på huvudmenyn.
Någon som ser något fel i min kod som jag missat?
Tack!
Permalänk: https://www.webforum.nu/p/132501
## #2 — emission, 2005-08-09T20:28Z
Re: Utskrift av Huvud + Submeny
```
if menuID=SubPageId then
sSql = "SELECT sId, sItem_SE " &_
"FROM tbl_sMenu " &_
"WHERE mId = " & SubPageId & " " &_
"ORDER BY sOrder ASC"
Set rsSub = oConn.Execute(sSql)
If Not rsSub.EOF Then
Response.Write( "" & VbCrLf &_
"" & VbCrLf)
Do While Not rsSub.EOF
sItem = rsSub("sItem_SE")
Response.Write("- " & sItem & "
- " & VbCrLf)
rsSub.MoveNext
Loop
Response.Write( "
" & VbCrLf &_
"" & VbCrLf)
End If
end if
%>
```
Om jag inte missförstått dina invariabler
Permalänk: https://www.webforum.nu/p/1655284
---
Tråden på webben: https://www.webforum.nu/amne/asp/132501-utskrift-av-huvud-submeny