Lave en hr efter sum fra udtræk

post lige den kode du har brugt herinde.

den så sådan her ud:

<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId") & " order by namn")
  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="70%"><%=Code(Url("info"))%></td>
        </tr>
<%if count mod 3 = 0 then %>
<tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></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

Nu kan jeg ikke se noget dato i det kode der.. men du har et dato felt i din database? hedder det bare "dato" eller?
og <hr> vil du have efter udskriften?

dette er den gamle testkode:

......order by starttid")


          <td width="15%"><%=Code(Url("starttid"))%></td>
          <td width="15%"><%=Code(Url("medlemsnr"))%></td>
          <td width="70%"><%=Code(Url("spillernavn"))%></td>

Og det er starttiden den skal loope efter og sette <hr> efter

Skal der bruges flere informationer ?

/cdc

jeg kom til at se vi ikke har med dato'er at gøre så ved ikke om den kan forstå dette

<% if starttid > 18.00 then %>
<td width="15%"><%=Code(Url("starttid"))%><hr></td> <%else%>
<td width="15%"><%=Code(Url("starttid"))%></td>
<% end if %>
<td width="15%"><%=Code(Url("medlemsnr"))%></td>
<td width="70%"><%=Code(Url("spillernavn"))%></td>

hvis koden virker med der bare er fejl med <hr> så er vi glade.

det med starttid kan være alt fra 00.00 til 23.59

18.00 er kun et eksempel

tror ikke jeg har forstået det her

At efter alle som f.eks står med 18.00 skal der sættes en <hr> efter 18.08 det samme osv osv igennem hele loop'en. Det kan være fra 1-5 mellem hver

har svært at se hvordan man ved hvornår det skal sættes efter.. hvad man skal vurdere det ud fra

det jeg tænkte på var om den kunne laves efter hvad der står i starttid, den skal sette efter:

18.00
18.00
18.00
<hr>
18.08
18.08
<hr>
18.16
18.16
18.16
18.16
<hr>
disse tal er kun eksempler, det kunne være 12.00

en hr skal sættes efter  en sammeligning i udtrækket/loopen. de der har samme sum skal adskildes med en hr

/cdc

Det her har jeg aldrig prøvet i ASP, men det nok noget i stil med dette.


<% dim nytid, gamletid

gamletid = "" %>

<%Set Url=Conn.Execute("Select * From Url Where kat=" & Request.QueryString("catId") & " order by namn")
  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><% if nytid = gamletid then %>
          <td width="15%"><%=Code(Url("namn"))%><hr></td>
<% gamletid = nytid %>
<% else %>
          <td width="15%"><%=Code(Url("namn"))%></td>
          <td width="15%"><%=Code(Url("url"))%></td>
          <td width="70%"><%=Code(Url("info"))%></td>
        </tr>
<%if count mod 3 = 0 then %>
<tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></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
nytord = Url("startid")
    Loop
  End If
End If

kigger på det når jeg kommer hjem. Kunne ikke komme ind på E i går da den var lukket, så derfor den sene kommentar

/cdc

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/newsite/junior/torsdag/start_liste.asp, line 383

Loop
^

det er denne i scriptet:

    Loop
  End If
End If

det er den kode som du gav mig

ja men når jeg smider din kode ind kommer fejlen, min virker fin nok som den er
Kommentar: kalp
01/05-2005 01:23:36

/cdc

forstår den ikke.. do er der! prøv at slet loop når nu den brokker sig over den.

loop slettet:

Microsoft VBScript compilation error '800a0400'

Expected statement

/newsite/junior/torsdag/start_liste_01.asp, line 384

End If
^

nu vil den have du fjerner end if:)

det har jeg prøvet det blev den ikke kloger af

har jeg forklaret mig godt nok eller er opgaven for svær at løse.

/cdc

Hejsa:) sorry det lidt svært at huske at give responds på spørgsmål når E hele tiden går ned..

Jeg er lidt lost i problemet desværre så vil ikke have noget imod du lukker spørgsmålet og opretter det igen så du har mulighed for at få nye svar på det:)

oki det vil jeg gøre

lukker