lave en <hr> efter samme tid (klokke) i et udtræk

smid lige din kode, som den ser ud nu,
og fortæl hvilken kolonne der rummer tidspunkt

Kunne man sætte en variabel der er lig første ud træk og så med en if lige chekke variablen ?

Noget lig:

varTid = 18:00 '(udtræk 1)
If udtræk = varTid Then
  Response.Write(Udtræk)
Else:
  Response.Write("<HR>")
  varTid = udtræk
  Response.Write(Udtræk)
End If

Hvis du vil have en efter hver eneste som starter med 18 så kan du jo teste på tallets to første cifre
--
if left(rs("tid"),2)) = 18 then
//evt andre udskrifter
response.write "<hr>"
else
//andre udskrifter
end if

Ahh kan se iflg det gamle spørgmål at de kan være ens ..godt så. Så sætter du en midlertidig værdi til at være lig det _første_ tids udtræk
---
tempTime = rs("tid")
---
herefter henter du resten tider ud og tester mod den midlertidige
---
if tempTimer = rs("tid") then
//andre udskrifter
else
tempTime = rs("tid")
//andre udskrifter
response.write "<hr>"
end if

Jeg skal have <hr> efter alle som starter klokken 18:00 f.eks.

Startene kan gå fra klokken 07:00 til 19:00 så denne:
if left(rs("tid"),2)) = 18 then ville jo være lidt umulig, eller hur ?

mit andet eksempel 20:02:01 burde gøre det, det den siger er
Husk tiden 18:00
Hvis det der hentes ud er lig det huskede så lav ingen hr
Hvis det der hentes ud ikke er lig det huskede så gem denne værdi som den nye huskede værdi og udskriv hr

sådan her ser en startliste ud.... her er de så lavet med farveforskelle, men nu vil de have en <hr> mellem startiderne

http://www.hillerodgolf.dk/match/

mit andet eksempel 20:02:01 burde gøre det, det den siger er <-- er det ikke magen til mit indlæg ?

tubber >> øhh jooo..hehe ups ;o) det har du vist pænt ret i der

varTid = 18:00 '(udtræk 1) du starter med denne med 18:00. Dette er bare et eksempel på tid se mit link her over

hvis min kode som her er testkoden, og namn er startiden, hvor skal så koden ind ?

<%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

varTid = 0700 '(udtræk 1)
do while varTid <> 19:10
If udtræk = varTid Then
  Response.Write(Udtræk)
Else:
  Response.Write("<HR>")
  varTid = varTid + 0010
  Response.Write(Udtræk)
End If
Loop

kan ikke lige gennemskue klokken......

varTid = føste mulige tid
If Url("namn") = varTid Then
%>
      <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>
<%
Else
%>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
    varTid = Url("namn")
    Url.MoveNext
    Loop
  End If
End If
End If

noget ala det der

kan være der skal et check ind der chekker om der er nogen i tiden før, kommer an på hvordan db er lavet

dvs. hele koden som jeg har den skal se således 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>
  <%varTid = føste mulige tid
If Url("namn") = varTid Then
%>
      <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>
<%
Else
%>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
    varTid = Url("namn")
    Url.MoveNext
    Loop
  End If
End If
End If

ja men som sagt måske skal der et check ind, hvis der nu ikke er nogen kl. 10:10 så kan det være den siger der skal 2x HR ind

starttiden kører altid fortløbende

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

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

Loop

loopen er her:

<%
    varTid = Url("namn")
    Url.MoveNext
    Loop
  End If
End If
End If

<%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   
varTid = føste mulige tid
Do Until Url.EOF
count = count + 1
If Url("namn") = varTid Then
%>
      <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>
<%
Else
%>
    <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
      <tr>
        <td></td>
      </tr>
    </table>
    <%
    varTid = Url("namn")
    Url.MoveNext
    Loop
  End If
End If
End If

fejl:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

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

Loop
^

i stedet for denne: varTid = føste mulige tid
skriver jeg : varTid = 06.00
er det OK ?

Det var meningen den skulle skiftes ud med den først mulige tid.....

varTid = Url("namn")

samme fejl:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

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

Loop
^

smutter i seng nu, men er på igen i morgen ?

//Freddy

hmm er det svært

Nu ved jeg ikke hvor godt den viser det herinde!.
Men sørg altid for din egen skyld at lave ordenlig indent sering så du kan se om du får afsluttet rigtig
Din fejl skyldes at den støder på et Loop hvor den regner med noget andet.
Hvis du tæller efter vil du se at du laver en DO, inden i den en IF, laver dit Loop, og afslutter din IF. Men IF skal afsluttes inden Loop når den er sat inden i loopet :o)
---
sådan her:
---
<%
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 
  varTid = føste mulige tid
  Do Until Url.EOF
    count = count + 1
    If Url("namn") = varTid Then %>
      <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>
<%
    Else %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr>
          <td></td>
        </tr>
      </table>
<%
    End If
    varTid = Url("namn")
    Url.MoveNext
  Loop
End If

Din struktur før
---
If Then
Else
  Do Until
    If Then
      If Then
      End If
    Else
      Loop
    End If
  End If
End If
--
Din struktur nu
--
If Then
Else
  Do Until
    If Then
      If Then
      End If
    Else
    End If
  Loop
End If
--
håber du kan se forskellen :o)

de første 3 starter ser det fint ud, og så går det i koks:

<%
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 
  varTid = Url("namn")
  Do Until Url.EOF
    count = count + 1
    If Url("namn") = varTid Then %>
      <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>
<%
    Else %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr>
          <td></td>
        </tr>
      </table>
<%
    End If
    varTid = Url("namn")
    Url.MoveNext
  Loop
End If
End If

Ved ikke om det har noget med denne at gøre:

<%   
      if count mod 3 = 0 then %>
        <tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></td></tr>
<%

Denne blev brugt før noget lignende før da vi mente det kun skulle være tre personer pr. start, men det er lavet om

Hvad er Url("namn") ? det er vel ikke et navn når du ville sammenligne tider?...ellers er jeg lost ;o)
Har prøvet fjerne de dersens 3 tællinger som du ikke bruger mere
---
<%
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
  varTid = Url("namn")
  Do Until Url.EOF
    If Url("namn") = varTid Then %>
      <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>
      </table>
<%
    Else %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></td></tr>
      </table>
<%
    varTid = Url("namn")
    End If
    Url.MoveNext
  Loop
End If
End If

Hej igen og undskylder mange gange jeg har været lidt væk......
Blev ringet om jeg ville have job sådan fra den ene dag til den anden så har arbejdet, spist og sovet de mange dage......

Og nu er jeg lige lidt lost hvor vi kom til vil prøve om jeg kan samle lidt op i det :)

Url("namn") er kun på testsiden...er et andet script jeg har brugt, i den riktige hedder det starttid :o)

virker det i min kommentar 13/05-2005 20:56:54 så ikke hvis du udskrifter
Url("namn") med Url("starttid") ?

Det mærkelige er at det er 22 poster i DB. når jeg bruger din her viser den kun 14 ?
F.eks har jeg 3 med starttid klokken 17:00 og der vises kun 1 på listen

Det er klart nok ...ups hehe... det er fordi else delen fanger dem..prøv sådan her
---
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
  varTid = Url("namn")
  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="70%"><%=Code(Url("info"))%></td>
        </tr>
      </table>
<% If Url("namn") = varTid Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></td></tr>
      </table>
<% varTid = Url("namn")
  End If
  Url.MoveNext
  Loop
End If

og så selvfølgelig med Url("starttid").. glemte jeg lige

ups igen
Skal jo teste om de er forskellige... sådan her
---
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
  varTid = Url("starttid")
  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="70%"><%=Code(Url("info"))%></td>
        </tr>
      </table>
<% If Url("starttid") <> varTid Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></td></tr>
      </table>
<% varTid = Url("starttid")
  End If
  Url.MoveNext
  Loop
End If

og og så skal de byttes om. Ellers får du vist en linje med for meget hver gang
--
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
  varTid = Url("starttid")
  Do Until Url.EOF
  If Url("starttid") <> varTid Then %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="5" align="center">
        <tr style="background-color: #DFDFD0;"><td colspan ="4"><hr size="1" color="#AA0000"></td></tr>
      </table>
<% varTid = Url("starttid")
  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="70%"><%=Code(Url("info"))%></td>
        </tr>
      </table>
<%
  Url.MoveNext
  Loop
End If
%>

Det ser fint ud frem til hvor starten går klokken 17:00
Har ikke her taget højde for at der bliver et spring, da de der starter der spiller på par 3 banen:

http://www.hillerodgolf.dk/newsite/test/start_liste_02.asp?catId=2

jeg er ikke med på hvad du mener med par 3?
Jeg kan godt se den fejler..men jeg kan ikke umiddelbart se hvorfor.
For koden tænker jo ikke på "hvad" klokken er, blot om den er magen til den forrige tid
Har du lavet noget om?

det med par tre er lige meget....bare at de starter på stor og lille bane på forskellige tidspungter.

Har ikke lavet noget om...

Det er strange

det kan jeg ikke lige umiddelbart lure
For det betyder jo at den siger at 17:00 er forskellig fra 17:00

prøver lige at rode lidt med det sener i dag, skal ud af døren nu

aha....det står 17.00 det ene sted og 17:00 det andet sted :o) Så blev man da så meget kloger......
Smider du lige et svar :o)

/cdc

ja :o) godt du fandt det :o)