linjeskrift, i hensyn til løkke...

Noget i den her stil:

  counter = 5
Do While (Not rs.EOF)
  Response.Write objRs(\"id\")
  counter = counter-1
  If counter == 0 then
    Response.Write \"<BR>\"
    counter = 5
  End If
  rs.MoveNext
Loop

hmm... jeg fatter lige minus af det du skrev...


altså jeg har dette kode...:

<%
    strSQL = \"SELECT * FROM mapper\"
    Set rs = Conn.Execute(strSQL)
   
    While NOT rs.EOF
%>

      <td align=\"center\" width=\"106\" valign=\"middle\"><a class=\"fag\" href=\"vis_opg.asp?visfag=<%= rs(\"navn\") %>\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><img border=\"0\" src=\"img/folder.gif\"><br>
        <%= rs(\"navn\") %></font></a></td>
<%
    rs.MoveNext
    Wend
%>


og for hver gang der har været 5 gentagelser skal den hoppe ned på næste linje...

Prøv med det her:

<%
    strSQL = \"SELECT * FROM mapper\"
    Set rs = Conn.Execute(strSQL)
    counter = 5  \' Tæller lig med 5
    While NOT rs.EOF
%>

      <td align=\"center\" width=\"106\" valign=\"middle\"><a class=\"fag\" href=\"vis_opg.asp?visfag=<%= rs(\"navn\") %>\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><img border=\"0\" src=\"img/folder.gif\"><br>
        <%= rs(\"navn\") %></font></a></td>
<%
    If counter = 0 then
      Response.Write \"<BR>\"
      counter = 0  \' nulstil tæller
    End If
    rs.MoveNext
    Wend
%>

Der skal en ny TR til for at komme til næste linie.


<%
    strSQL = \"SELECT * FROM mapper\"
    Set rs = Conn.Execute(strSQL)
    counter = 5  \' Tæller lig med 5

    While NOT rs.EOF
      If counter = 0 Then
        response.write(\"<tr>\" & vbcrlf)
        End If
      counter = counter + 1
%>

      <td align=\"center\" width=\"106\" valign=\"middle\"><a class=\"fag\" href=\"vis_opg.asp?visfag=<%= rs(\"navn\") %>\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><img border=\"0\" src=\"img/folder.gif\"><br>
        <%= rs(\"navn\") %></font></a></td>
<%
      If counter = 5 then
        Response.Write(\"</tr>\" & vbcrlf)
        counter = 0  \' nulstil tæller
      End If
      rs.MoveNext
    Wend
%>

nope.. der sker slet ik\' noget...
Den udskriver bare det samme som før...?! (alle teksterne bliver bare udskrevet i ét)

Lige meget hvilken kode du bruger ??  Min eller x-tra\'s ??

yep det er lige meget hvilken en af dem...!

Sker der helt fuldstændig præcis det samme med begge stumper kode. Eller er der en eller anden lille bitte minimal forskel på resultatet ??

Kan du ikke vise os enten resultatet eller hele den omkringliggende kode??

Der sker slet ik\' noget... der hele står bare ud i et.. der sker ingen forskel...

Hele koden er den i har her... der står ikke andet som sådan...!

jeg ligger det lige ud på www.medions.dk/eksperten/

her kom det:
http://www.medions.dk/eksperten/forside.asp

Prøv Lige med det her:

<%
    strSQL = \"SELECT * FROM mapper\"
    Set rs = Conn.Execute(strSQL)
    counter = 5  \' Tæller lig med 5

    While NOT rs.EOF
      If counter = 0 Then
        response.write(\"<tr>\" & vbcrlf)
        End If
      counter = counter - 1
%>

      <td align=\"center\" width=\"106\" valign=\"middle\"><a class=\"fag\" href=\"vis_opg.asp?visfag=<%= rs(\"navn\") %>\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><img border=\"0\" src=\"img/folder.gif\"><br>
        <%= rs(\"navn\") %></font></a></td>
<%
      If counter = 5 then
        Response.Write(\"</tr>\" & vbcrlf)
        counter = 0  \' nulstil tæller
      End If
      rs.MoveNext
    Wend
%>

Vi prøver lige igen igen :-)

<%
    strSQL = \"SELECT * FROM mapper\"
    Set rs = Conn.Execute(strSQL)
    counter = 5  \' Tæller lig med 5

    While NOT rs.EOF
      If counter = 5 Then
        response.write(\"<tr>\" & vbcrlf)
      End If
      counter = counter - 1
%>

      <td align=\"center\" width=\"106\" valign=\"middle\"><a class=\"fag\" href=\"vis_opg.asp?visfag=<%= rs(\"navn\") %>\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><img border=\"0\" src=\"img/folder.gif\"><br>
        <%= rs(\"navn\") %></font></a></td>
<%
      If counter = 0 then
        Response.Write(\"</tr>\" & vbcrlf)
        counter = 5  \' nulstil tæller
      End If
      rs.MoveNext
    Wend
%>

x-tra du er jo guldet det selv ;-)

takker for dit svar!!!