Skippade frames ändå :)
Nu blev det riktigt bra tycker jag! Tack Macce!
Funderar dock lite på tabellerna som presenterar produkterna. beroende på vilka produktgrupper som efterfrågas, visar den tomma kolumner: Finns det nåt sätt att bara skriva ut kolumner som har innehåll? -och hur fixar jag så den skriver ut rubrikerna på första rad?
<%Dim intParentId,strParentId,arrLinks,intGrpId,Sublink,strClass,strBullet,qstLnkId,qstParentId,strPid
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)
If Len(qstParentId)<1 AND IsArray(arrLinks) THEN ' om man inte har querystring så öppnas den första länken automatiskt
For I = 0 To Ubound(arrLinks,2)
qstLnkId = arrLinks(0,I)
qstParentId =arrLinks(0,I)
IF intGrpId = arrLinks(1,I) THEN Exit For
Next
END IF
Response.Write "<HTML><HEAD><STYLE TYPE=""text/css"">"&VbCrlf
Response.Write ".catlink {color: #3A3A3A; font-family: verdana,arial; font-size: 10px; text-decoration: none;}"&VbCrlf
Response.Write ".sublink {color: #3A3A3A; font-family: verdana,arial; font-size: 10px; text-decoration: none;}"&VbCrlf
Response.Write ".catlinkactive{color: #000000; font-family: verdana,arial; font-size: 10px; text-decoration: none; Font-weight:bold;}"&VbCrlf
Response.Write ".sublinkactive{color: #000000; font-family: verdana,arial; font-size: 10px; text-decoration: none; Font-weight:bold;}"&VbCrlf
Response.Write "</STYLE></HEAD><BODY>" & VbCrlf
Response.Write "<table border='0' width='100%'><tr><td width='29%' valign='top' align='left'>"
If IsArray(arrLinks) Then
Response.Write "<br><br><TABLE border='0' cellspacing='0' cellpadding='1' width='100%' align='center'>"&VbCrlf
Call LinkTree(intGrpId,0)
Response.Write "</TABLE>"
ELSE
Response.Write "Finns inga länkar"&VbCrlf
END IF
arrArtiklar = GetRows("SELECT Artnr, Namn5, Storlek, Storlektyp, Farg, Ant_forp FROM varor Where page_id="&qstLnkId)
Response.Write "</td>"
Response.Write "<td width='71%' valign='top' align='left'>"
If IsArray(arrArtiklar) THEN
Response.Write("<br><TABLE border=1><tr><td>Art.nr</td><td>Namn</td><td>Storlek</td><td>S-typ</td><td>Färg</td><td>Antal/förpackn;</td></tr>")
For u = 0 To Ubound(arrArtiklar,2)
Response.Write("<TR>")
For m = 0 To Ubound(arrArtiklar,1)
Response.Write("<TD bgcolor='#C0C0C0'>"&arrArtiklar(m,u)&"</TD>")
Next
Response.Write("</TR>")
Next
Response.Write("</TABLE>")
END IF
Response.Write "</td></tr></table></BODY></HTML>"
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 bgcolor='#ffffff'>"
For Z = 1 To intIndent
Response.Write("<img src='1px.gif' width='6' height='8' align='left'>")
Next
IF intIndent=0 then
Sublink=arrLinks(0,X)
IF cstr(qstLnkId) = cstr(arrLinks(0,X)) THEN
strClass = "catlinkactive"
strBullet = "<img src='icon-active-dot.gif' border=0 align='left'>"
ELSE
strClass = "catlink"
strBullet = "<img src='icon-inactive-dot.gif' border=0 align='left'>"
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 = "<b>- </b>"'kan även vara bild som ovan
ELSE
strClass = "sublink"
strBullet = "- "
END IF
END IF
Response.Write("<a href='"&scriptname&"?lnkid="&arrLinks(0,X) &"&parid="&Sublink&"' class='"&strClass&"'>"&VbCrlf)
Response.Write(strBullet & arrLinks(2,X)& "</a></TD></TR>"&VbCrlf)
'Response.Write "<A HREF=""java script:load2('"&scriptname&"?lnkid="&arrLinks(0,X) &"&parid="&Sublink&"', 'prod.asp?lnkid="&arrLinks(0,X)&"')"" class='"&strClass&"'>" & arrLinks(2,X)& "</a>"
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("..\sys\dbgam.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
%>
