"
For Z = 1 To intIndent
Response.Write(" ")
Next
IF intIndent=0 then
Sublink=arrLinks(0,X)
IF cstr(qstLnkId) = cstr(arrLinks(0,X)) THEN
strClass = "catlinkactive"
strBullet = " "
ELSE
strClass = "catlink"
strBullet = " "
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 = "- "'kan även vara bild som ovan
ELSE
strClass = "sublink"
strBullet = "- "
END IF
END IF
Response.Write(""&VbCrlf)
Response.Write(strBullet & arrLinks(2,X)& " |
"&VbCrlf)
Call LinkTree(arrLinks(0,X),intIndent + 1)
End If
Next
End Sub
Function GetRows(ByVal SQL)
Dim arrRecords, rs
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("\meny\links.mdb"))
Set rs = Connection.Execute(SQL)
If Not rs.BOF Or Not rs.EOF Then
arrRecords = rs.GetRows()
ELSE
arrRecords = ""
End If
rs.Close
Set rs = nothing
Connection.Close
Set Connection = nothing
GetRows = arrRecords
End Function
%>