Aşağıda ki kodlarla accesten aldığım veriyi nasıl accordion menu haline getirebilirim yardımcı olabilecek varmıı?
<% sub subRecursive(ParentID, intLevel) 'Burada ParentID değişkeni üst kategorimizin id değeri için , intLevel değişkeni kategorilere soldan boşluk bırakmak için kullancağız. dim objRs dim strSql strSql = "SELECT * FROM menu WHERE UstId= " & ParentID set objRs = objConn.Execute(strSql) if Not objRs.EOF then do while Not objRs.EOF %> <tr> <td> <img src="bosluk.gif" border="0" width="<%=25*intLevel%>" height="1"> <a data-test="test" rel="nofollow" style="word-wrap: break-word; text-decoration: underline;" target="_blank" onclick="return dhExternalLinkRedirect(this)" href="/ExternalLinkRedirect?module=pgdcode&messageId=41381966&url=default.asp?id=<%=ObjRs("id")%>" data-href="default.asp?id=<%=ObjRs("id")%>"><%=ObjRs("m enuad")%></a> </td> </tr> <%subRecursive objRs("id"), intLevel + 1 objRs.MoveNext loop end if
if Not objRs Is Nothing then objRs.Close end if set objRs = Nothing