Loop without DO

gør os allesammen en tjeneste og marker, hvilken linje, der er #26

Prøv også at forklare hvad ud ønsker for dine loops står inde i else delen af if sætninger..

Jeg vil gerne have en menu hvor man vælger en kategori derefter en underkategori og til sidst et emne. Men det skal ske på samme derfor brugen af ID...

Jeg paster lige min kode igen indtil linje 26:

<%SQL2 = "Select * from Kategori"
Set RS2 = Conn.Execute(SQL2)%>
<%Do while not RS2.EOF%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <a href="kategori.asp?ID=<%=RS2("ID")%>"><img src="../../Images/plus.gif" width="9" height="9" border="0">
      <%=RS2("KatNavn")%></a> </td>
  </tr>
</table>

<%
KO = request.querystring("ID")
IF KO  = "" Then%>
<%
RS2.Movenext <----------------Her er linjen der laver fejl...
Loop%>

Jeg mener:

Men det skal ske på samme side derfor brugen af ID...

Jeg kan ikke helt gennemskue hvad du ønsker af dit script men jeg vel gætte på koden skal se sådan ud eller i stil med dette. Der hvor du åbner rs udskriver du fra rs2 og laver movenext på rs1... så det har jeg rettet til rs:


<%SQL2 = "Select * from Kategori"
Set RS2 = Conn.Execute(SQL2)%>
<%Do while not RS2.EOF%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <a href="kategori.asp?ID=<%=RS2("ID")%>"><img src="../../Images/plus.gif" width="9" height="9" border="0">
      <%=RS2("KatNavn")%></a> </td>
  </tr>
</table>
<%
KO = request.querystring("ID")
IF KO <> "" Then
  SQL1 = "Select * from Underkategori where Kategori = '"&request.querystring("ID")&"' AND Kategori = '"&RS2("ID")&"'"
  Set RS1 = Conn.Execute(SQL1)
  Do while not RS1.EOF
  %>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td> <a href="kategori.asp?ID=<%=RS2("ID")%>&ID1=<%=RS1("ID")%>"><img src="../../Images/plus.gif" width="9" height="9" border="0">
        <%=RS2("Underkategori")%></a> </td>
    </tr>
  </table>
  <%KO2 = request.querystring("ID1")
  IF KO <> "" AND KO2 <> "" Then
    SQL = "Select * from Pages where Kategori = '"&request.querystring("ID")&"' And Underkategori = '"&request.querystring("ID1")&"'"
    Set RS = Conn.Execute(SQL)
    Do while not RS.EOF  %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <a href="#"><img src="../../Images/plus.gif" width="9" height="9" border="0">
      <%=RS("Overskrift")%></a> </td>
  </tr>
</table>
      <%RS.Movenext
    Loop %>
<%end if
  RS1.Movenext
  Loop
end if
RS2.Movenext
Loop
end if%>