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