<hr> efter hver 3 i udtræk

sætter en counter på som tæller..
her blot et dårligt eksempel da jeg ikke ved hvor i koden du ønsker den?
---
<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId") & " order by resultat Desc")
  If Url.EOF Then%>
    <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr>
        <td align="center">Intet under <%=Kat("kat")%></td>
    </tr>
    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
  <%Else
    count = 0
    Do Until Url.EOF
      count = count +1
      if count = 3 then %>
      <td width="500"><hr size="1" color="#AA0000"></td>
      <% count = 0
      end if %>
      <table width="100%" cellpadding="3" cellspacing="0" class="border01" align="center">
        <tr>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="65%"><%=Code(Url("info"))%></td>
          <td width="5%" align="right"><font color="#AA0000"><b><%=Code(Url("resultat"))%></b></font></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%Url.MoveNext
    Loop
  End If
End If

Do Until Url.EOF
i = i + 1
%>
      <table width="100%" cellpadding="3" cellspacing="0" class="border01" align="center">
        <tr>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="65%"><%=Code(Url("info"))%></td>
          <td width="5%" align="right"><font color="#AA0000"><b><%=Code(Url("resultat"))%></b></font></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
if i % 3 = 0
response.write("Do Until Url.EOF%>
      <table width="100%" cellpadding="3" cellspacing="0" class="border01" align="center">
        <tr>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="65%"><%=Code(Url("info"))%></td>
          <td width="5%" align="right"><font color="#AA0000"><b><%=Code(Url("resultat"))%></b></font></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
if i % 3 = 0
response.write("<td width=""500""><hr size=""1"" color=""#AA0000""></td>")
Url.MoveNext
  Loop

prøv med det :)

jeg kan ikke lure legende.dk´s ide...
Men hvis du tager mit skal du blot flytte følgende kode hen hvor du ønsker din <td>
---
<% if count = 3 then %>
<td width="500"><hr size="1" color="#AA0000"></td>
<% count = 0
end if %>
----
da td jo ikke kan være uden for tabellen

arrrgh, det er da gået helt galt med copy paste der

Do Until Url.EOF
i = i + 1
%>
      <table width="100%" cellpadding="3" cellspacing="0" class="border01" align="center">
        <tr>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="65%"><%=Code(Url("info"))%></td>
          <td width="5%" align="right"><font color="#AA0000"><b><%=Code(Url("resultat"))%></b></font></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
if i % 3 = 0
response.write("<td width=""500""><hr size=""1"" color=""#AA0000""></td>")
end if
Url.MoveNext
Loop

så er jeg mere med legende.dk ;o)
Så er vores eksempler rimelig ens må man sige :o)
Det eneste er stadig blot at udskriften i begge eksempler kommer uden for spørgers tabel....
Men i begge tilfælde skal der blot flyttes et par linjer til der hvor det ønskes ;o)

ja, der er ret mange tables må man sige.

response.write("<br>&nbsp;<br>")

:)

<td width="500"><hr size="1" color="#AA0000"></td>

Jeg looper db igennem på denne måde:

<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId") & " order by resultat Desc")
  If Url.EOF Then%>
    <table width="100%" cellpadding="4" cellspacing="0" class="border" align="center">
      <tr>
        <td align="center">Intet under <%=Kat("kat")%></td>
    </tr>
    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
  <%Else
count = 0   
Do Until Url.EOF
count = count + 1
%>
      <table width="100%" cellpadding="3" cellspacing="0" class="border01" align="center">
        <tr>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="65%"><%=Code(Url("info"))%></td>
          <td width="5%" align="right"><font color="#AA0000"><b><%=Code(Url("resultat"))%></b></font></td>
        </tr>
<%if count mod 3 = 0 then %>
<tr><td colspan ="3"><hr></td></tr>
<%end if%>     
</table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%Url.MoveNext
    Loop
  End If
End If

cpufan >> er det ikke rimelig analogt til det jeg skrev? :p

Jeg vil måske synes at dette er en lidt overdrevet måde at lave lidt afstand:

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>

Men ok, der kommer da hul :)

busschou << jo meget
jeg kan bare bedre lide modolus ;-)
selvom din er akkurat ligeså god

er % ikke modulus i asp ?

nej legende, i asp hedder det: 4 mod 3 (=1)

nu skal jeg så ikke gøre mig klog på det da jeg ikke har haft brug for modulus operatoren
Men afhænger det ikke af om man køre det ene eller andet
Altså om man bruger JScript eller VBScript... jeg kunne forestille mig de havde hver deres...ligesom det hedder = i VBScript men == i JScript

ok så skift % ud med mod i mit script, hvis det er vb (og det er det jo nok) :)

hehe bedre endnu...brug mit script :P ha

jeg gider ikke "gø om kap" for points, så brug de andres løsninger og god vind :)

hehe var nu også mest gas ... måske intet af det virker :s

wow....så er jeg tilbage og skal lige kigge tråden igennem for at finde hode og hale i det :o)

Tester lige

/cdc

Gik hurtig de  forskellige forslag igennem og hos mig virkede cpufan's med det samme, og så har jeg bare tilrettet det lidt så det design mæssigt virker på siden også.

på busschou og legende.dk fik jeg en fejl i: if i % 3 = 0  at det var en fejl her

/cdc >> Beklager at måtte sige det...men den fejl kan du altså ikke have fået hos mig da jeg ikke bruger moduls og % ikke optræder i min kode :o) ... Men som jeg skrev skulle if sætningen i mit foreslag (og tilsvarende i legende.dk´s) flyttes derhen hvor du ønskede den givne linje at blive skrevet ud!
Med andre ord så har cpufan været heldig at ramme lige der hvor du ville skrive ud

Bare det...ikke at points gør noget.. men fejl..når jeg ikke har lavet fejl..uhhh jeg bliver #%&# hehe ;o) gas

Jeg tog bare en kopi af det I har lavet og smed ind, og fik ikke fejl på cpufan's, som var den sidste.
Men tråden har været lærerig så jeg vil da give alle points så derfor hæver jeg den lidt, så smid et svar alle sammen

//cdc

kommer her

oki doki

legende.dk--> Points ?

27/04-2005 21:17:00

virker som om han afmeldte abbonering på spørgsmålet der

ok