lineskift under loop

lidt mere konkret kode...


forbindelse....

        <table width="100%" border="1"><tr>

        <%    Dim antalRaekker, antalMapper
            Do While Not rs.Eof
            antalMapper = rs("temaKategoriBillede")
            If antalMapper <> "" Then
            antalRaekker = antalRaekker + 1
            End if %>

            <td background="gfx/<%=rs("temaKategoriBillede")%>" height="84px" width="77px" class="form" align="center">
            <font class="menu"><%=rs("temaKategori")%></font>

        <%    rs.MoveNext
            Loop
            Response.Write(antalRaekker) %>

        </td></tr></table>

lukker forbindelse ....

Skal være en table?

Et eksempel kunne være:

<%
noPrRow = 0
maxPrRow = 4
response.write "<table>"
do while not rs.EOF
  if noPrRow = 0 then response.write "<tr>"
  response.write "<td>"

  'Udskriv data her
  Response.write rs("kolonnenavn")

  response.write "</td>"
  noPrRow = noPrRow + 1
  if noPrRow = maxPrRow then
    response.write "</tr>"
    noPrRow = 0
  end if
  rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
%>

Do While Not rs.Eof
  if (change_line MOD 4) = 0 and change_line <> 0 then
    response.write "<br>"
  end if
  change_line = change_line + 1
  rs.("dbfelt")
  rs.MoveNext
Loop

eagleeyes kode kan også skrive med modules:

<%
noPrRow = 0
maxPrRow = 4

response.write "<table>"
  do while not rs.EOF
    if (noPrRow MOD maxPrRow) =  0 then response.write "<tr>"
    response.write "<td>"
      'Udskriv data her
      Response.write rs("kolonnenavn")
    response.write "</td>"
  noPrRow = noPrRow + 1
  if (noPrRow MOD maxPrRow) =  0 then response.write "</tr>"
  rs.Movenext
  loop
  if (noPrRow MOD maxPrRow) <>  0 then response.write "</tr>"
response.write "</table>"
%>

Det ser ud til at være gode svar fra jer begge... jeg prøver det lige af....

/Skjold

afk i 2 timer ....

--> Det virker eagleeye, jeg har brugt din kode som det første, og det virker, så du er berettiget til points... men jeg skal bruge et svar!!!

For god ordens skyld så er koderne her:

        Set rs = Conn.Execute("SELECT * FROM tema") %>

        <table><tr><td><img src="gfx/1x1.gif" width="540" height="1"></td></tr></table>   
        <center><font class="main"><b>Temaer</b><br><br></font></center>
       
        <table width="100%"><tr><td align="center">
       
        <%    Dim noPrRow, maxPrRow
            noPrRow = 0
            maxPrRow = 4 %>
       
            <table width="100%" border="0" cellspacing="10" class="form" align="center">
       
        <%    Do While Not rs.EOF
                If noPrRow = 0 Then
                    Response.Write "<tr>"
                End if %>

                <td background="gfx/<%=rs("temaKategoriBillede")%>" height="96px" width="110px" valign="bottom" align="center">
                <font class="tema"><%=rs("temaKategori")%></font></td>

        <%    noPrRow = noPrRow + 1
                If noPrRow = maxPrRow Then
                    Response.Write "</tr>"
                    noPrRow = 0
                End if
            rs.MoveNext
            Loop
                If noPrRow > 0 Then %>
           
            </table>
           
            <%    End if %>
       
        </td></tr></table>

    <%    rs.Close
        Conn.Close
        Set rs = Nothing

/Skjold - og tak for hjælpen

Ok, her et svar ;(

doh det skulle være en glad mand ;) og ikke en sur...
;)  ;)  ;)  ;)  ;)