4 svar · 221 visningar · startad av JAreMANNEN
Behöver veta hur jag ska göra om jag vill ha nummer + 1 i varje "varv" i loopen...?
Ska förklara närmare...
Loopen körs 9ggr, och jag behöver värde 1 på det första "varvet, 2 på det andra osv. upp till 9..
Så varje nytt varv adderas det gamla värdet med 1...
Provat med en enkel For slinga men det vill inte fungera inuti Loopen...
For borde vara det du behöver. Vad är det som inte fungerar? Kan du visa lite kod och förklara närmare?
for i = 1 to 9
...
next
Använder en DHTML-meny och det är därför jag måste använda en unik siffra för varje nytt uppbyggande av en meny...
Nummret som jag behöver skall placeras här:
<div id="divTop<%=i%>" class="clTop">
onclick="menu(<%=i%> )
<div id="divSub<%=i%>" class="clSub">
Som du ser har jag redan satt in variabeln "i" där...
Den ska börja på 0 och sluta på 8 om jag ska vara exakt..
<div id="divCont">
<%
Do UNTIL objRS.EOF
%>
[b]<div id="divTop<%=i%>" class="clTop">[/b]
<table width="150" border="0" cellspacing="0" cellpadding="2">
<tr>
<td bgcolor="#000000">
<table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#99CCCC" cellpadding="0"> <a href="#" [b]onclick="menu(<%=i%> )[/b]; return false" onfocus="this.blur()"><%= objRS("FLD_huvrub")%></a></td>
</tr>
</table>
</td>
</tr>
</table>
[b]<div id="divSub<%=i%>" class="clSub">[/b]
<table width="150" border="0" cellspacing="1" cellpadding="2">
<%
strSQL = "SELECT * FROM TBL_rubrik Where " &objRS("id")& " LIKE TBL_huvudid"
Set objRS2 = objConn.Execute(strSQL)
Do UNTIL objRS2.EOF
%>
<tr>
<td bgcolor="#000000">
<table width="150" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#CBE4E4"> <a href="#"><%= objRS2("FLD_rub")%></a></td>
</tr>
</table>
</td>
</tr>
<%
objRS2.MoveNext
Loop
Set objRS2 = Nothing
%>
</table>
</div>
<br>
<%
objRS.MoveNext
Loop
Set objRS = Nothing
%>
</div>
</div>
<div id="divCont">
<%
[b]i=0[/b]
Do UNTIL objRS.EOF
%>
<div id="divTop<%=i%>" class="clTop">
<table width="150" border="0" cellspacing="0" cellpadding="2">
<tr>
<td bgcolor="#000000">
<table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#99CCCC" cellpadding="0"> <a href="#" onclick="menu(<%=i%> ); return false" onfocus="this.blur()"><%= objRS("FLD_huvrub")%></a></td>
</tr>
</table>
</td>
</tr>
</table>
<div id="divSub<%=i%>" class="clSub">
<table width="150" border="0" cellspacing="1" cellpadding="2">
<%
strSQL = "SELECT * FROM TBL_rubrik Where " &objRS("id")& " LIKE TBL_huvudid"
Set objRS2 = objConn.Execute(strSQL)
Do UNTIL objRS2.EOF
%>
<tr>
<td bgcolor="#000000">
<table width="150" border="0" cellspacing="0" cellpadding="1">
<tr>
<td bgcolor="#CBE4E4"> <a href="#"><%= objRS2("FLD_rub")%></a></td>
</tr>
</table>
</td>
</tr>
<%
objRS2.MoveNext
Loop
Set objRS2 = Nothing
%>
</table>
</div>
<br>
<%
objRS.MoveNext
[b] i = cint(i) + 1[/b]
Loop
Set objRS = Nothing
%>
</div>
</div>