---
title: "Problemsub"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/133569-problemsub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2005-09-01T07:49:21.000Z"
updated: "2005-09-01T07:49:21.000Z"
replies: 0
views: 175
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/133569-problemsub"
---

# Problemsub

## #1 — timedia, 2005-09-01T07:49Z

Har i dag nedanstående menyträd. Försöker nu göra ett administrationsverktyg, men har lite problem.
I varje kategori vill jag ha en 'Gör ny rubrik' där värdet parent_page_id skickas med till ett formulär. Hur gör jag detta?

Bilar
  AlfaRomeo
  Ford
    Transit
    Escort
    Gör ny rubrik
  Renault
  Gör ny rubrik

```
qstLnkId		=		Request.Querystring("lnkid")
qstParentId		=		Request.Querystring("parid")
scriptname		=		Request.ServerVariables("SCRIPT_NAME")
arrLinks		=		GetRows("SELECT page_id,parent_page_id,linktext FROM tbl_links ORDER BY orderid ")
intGrpId		=		1 'de länkar som ska vara på nivå ett är barn till grupp 1 (alltså parent_page_id i databasen är =1)

Sub LinkTree(intParent,intIndent) :	Dim X,Z
		For X = 0 To Ubound(arrLinks,2)		
			If arrLinks(1,X) = intParent AND (Cstr(arrLinks(1,X))=Cstr(intGrpId) OR instr(","&qstParentId&",",","&intParent&",")>0) Then
			strPid=""
				Response.Write VbCrlf & "<TR><TD align='top'>"	
				For Z = 1 To intIndent									  
				  Response.Write("<img src='1px.gif' width='20' height='1' align='left'>")
				Next			
				IF intIndent=0 then 
				 Sublink=arrLinks(0,X)	
					 IF cstr(qstLnkId)  =  cstr(arrLinks(0,X)) THEN 
					 strClass  =  "catlinkactive"
					 strBullet =  "<img src='1px.gif' border=0 align='left' width='0' height='0' hspace='0' vspace'0'>"
					 ELSE 
					 strClass  =  "catlink"
					 strBullet =  "<img src='1px.gif' border=0 align='left' width='0' height='0' hspace='0' vspace'0'>"
					 END IF
				ELSE							
				For Z = 1 To intIndent : strPid=strPid&split(qstParentId,",")(Z-1) & "," : next
				 Sublink=strPid & arrLinks(0,X)
					 IF cstr(qstLnkId)  =  cstr(arrLinks(0,X)) THEN 
					 strClass  =  "sublinkactive"
					 strBullet =  "<img src='bilder/1px.gif' border=0 align='left' class='gi'>"'kan även vara bild som ovan
					 ELSE 
					 strClass  =  "sublink"
					 strBullet =  "<img src='bilder/1px.gif' border=0 align='left' class='gi'>"
					 END IF
				END IF				
				Response.Write(strBullet & "<a href='"&scriptname&"?lnkid="&arrLinks(0,X) &"&parid="&Sublink&"' class='"&strClass&"'>"&VbCrlf)	
				Response.Write(arrLinks(2,X)& "</a></TD></TR>"&VbCrlf)
			
				Call LinkTree(arrLinks(0,X),intIndent + 1)			
			End If
		Next 
End Sub
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/133569-problemsub