krånglig if-sats

jag hade löst det med CSS och en ul-listor för att skapa noderna under och om ul ul ul finns så skall den ha en margin-left på x antal pixlar...

Jo, fast måste jag inte då skriva in vad varje undernivå specifikt skall innehålla? vill att det skall vara möjligt att ha 100 undermenynivåer om man nu nån gång skulle få för sig en sån galen idé

Vad är det för typ av meny du bygger? är det inte en träd-meny du gör? För varje nivå du "kommer" upp i lägger du bara in en ny ul-lista.

hade förvisso inte tänkt att använda mig av listor men om koden ser bra ut är jag öppen för förändring... hur skulle din kod se ut voigtann1?

Om det är en navigering som skall vara som en treeview lösning (meny i huvudtaget vill jag ha som en ul-lista) hur ser din ASP kod ut just nu?

så här ser den ut i dagsläget:

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/rohdinsdb.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
    Visa = "SELECT all * FROM menydb WHERE visa = 'ja' order by niva ASC"
   RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
  
   <% Do Until RecSet.EOF %> 
   <% if RecSet("link") = page then%><div id="meny2">
   <%else%><div id="meny"><%end if%>
   <%if RecSet("underniva") = 1 then %><div id="meny">&nbsp;</div><b><a class="black" href="<%= RecSet("link")%>"><%= UCase(RecSet("namn"))%></a></b>
   <%else%><img border="0" src="images/submeny.gif" width="7" height="8"><a class="black" href="<%= RecSet("link")%>"><%= UCase(RecSet("namn"))%></a><%end if%></div> <% RecSet.Movenext
                loop
             %>
	
	
	<% 
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%>

<% Do Until RecSet.EOF %> 
   <% if RecSet("link") = page then%><div id="meny2">
   <%else%><div id="meny"><%end if%>
   <%if RecSet("underniva") = 1 then %><div id="meny">&nbsp;</div><b><a class="black" href="<%= RecSet("link")%>"><%= UCase(RecSet("namn"))%></a></b>
   <%else %><img border="0" src="images/submeny.gif" width="<%=RecSet("underniva")*7%>" height="8"><a class="black" href="<%= RecSet("link")%>"><%= UCase(RecSet("namn"))%></a><%end if%></div> <% RecSet.Movenext
                loop

Då ökar bildens bredd med 7px för varje underniva ökar!

Om du nu måste köra med en sådan struktur:

dim lRepeat
lRepeat = RecSet("underniva") - 2
If lRepeat>0  Then

	Response.Write(String(lRepeat,"<img border=""0"" src=""images/submeny.gif"" width=""7"" height=""8">""))
End If

Otestad men den borde skriva ut img elementet så många gånger den behöver, 3 => 1 gång, 4 => 2 ggr osv.

redigerad, nej String() är tecken, inte ord. noshornin är inte helt fel lösning.

Annars om du måste ha en bild för varje nivå du kör, kör en for sats:

dim lRepeat
lRepeat = RecSet("underniva") - 2
If lRepeat > 0  Then
	For i = 0 To lRepeat
		Response.Write("<img border=""0"" src=""images/submeny.gif"" width=""7"" height=""8">"")
	Next
End If

Kan du inte bygga det som en funktion som kallar på sig själv (rekursivt)? Så hade jag gjort och sen skriva ut det som en ul li lista.

Lite beroende på hur din databas ser ut i övrigt skulle det även funka att ta bort "level" helt, förutsatt att du har t.ex. "parent_id" istället.