---
title: "Trädmeny"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/110603-trädmeny"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2004-09-02T18:26:20.000Z"
updated: "2004-09-02T23:26:00.000Z"
replies: 1
views: 235
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/110603-trädmeny"
---

# Trädmeny

## #1 — Gimbo, 2004-09-02T18:26Z

Hejsan, har snickrat ihop denna kod, som jag vill skall fungera som en tradmeny, dvs nar jag klickar pa nagonting i menyn sa skall dess undermny dyka upp under och inte helt ensamma som de gor nu, just nu nar jag klickar pa ngt i menyn sa dyker dess underlankar upp helt ensamma dvs huvudmenyn forsvinner, hur skall jag fixa detta??

```
                  <%
            		Set Conn = Server.CreateObject("ADODB.Connection")
		    		Conn.Open "xxx", "xxx", "xxx"
		    		
		    		If Request.Querystring("s") = "" then
		    		
                  	  SQL = "SELECT DISTINCT productCategoryID FROM ProductItem" 
                  	  set rs = Conn.execute(SQL)
                  	
                  	  '0=======================
                  	  '0====Getting the menu===
                  	  '0=======================
                  	     response.write "<b>HOME</b>"
                  	     response.write "<br>"
                  	  do until rs.eof 
                  	     response.write "<a href=""products.asp?s=1&product="&rs("productCategoryID")&" "">&nbsp;- "&rs("productCategoryID")&"</a> <br>"
                  	  rs.MoveNext
                  	  loop
                  	
                  	elseif Request.Querystring("s") = "1" then 
                  	
                  	  SQL = "SELECT DISTINCT productTypeID FROM ProductItem WHERE productCategoryID = '"&Request.Querystring("product")&"' " 
                  	  set rs = Conn.execute(SQL)
                  	
                  	  '0==========================
                  	  '0====Getting the SubMenu===
                  	  '0==========================
                  	  do until rs.eof 
                  	     response.write "<a href=""products.asp?s=1&rug="&rs("productTypeID")&" "">&nbsp;- "&rs("productTypeID")&"</a> <br>"
                  	  rs.MoveNext
                  	  loop                  	
                  	
                  	else
                  	  response.write "problems"
                    end if
                  	
                  	  conn.close
                  	  set Conn = nothing
                  	  set rs = nothing
                  %>
```

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

## #2 — WebbisNet, 2004-09-02T23:26Z

själv kör jag med en nästlad sats, nackdelen är att man inte kan fälla ihop den :-)

```
<%if request("info") = "" then%>
<table><tr>
<td></td>
</tr></table>
<%else%>
&nbsp;
<%end if%>
<!--                               -->

<!-- Ändra Lösenord -->
<%if request("info") = "personal" and request("change") = "pass" then%>

o s v
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/110603-trädmeny