--- title: "loopelliloop" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/40793-loopelliloop" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "sven" published: "2002-04-03T14:17:27.000Z" updated: "2002-04-06T16:01:32.000Z" replies: 14 views: 353 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/40793-loopelliloop" --- # loopelliloop ## #1 — sven, 2002-04-03T14:17Z Jag har dennakoden just nu..... ``` Databokning <% DagensDatum = Date Nu = Time %> <% Tid = #16:15# while Tid <= #21:45# SQL = " SELECT * FROM bokning WHERE datum = #2002-03-21# " set rs = db.Execute(SQL) datornamn = rs("dator") strNamn = rs("namn") bokadTid = rs("tid") %> <% if datornamn = "Mia" AND bokadTid = Tid then %> <% else %> <% end if if datornamn = "Monica" AND bokadTid = Tid then %> <% else %> <% end if if datornamn = "Thorsten" AND bokadTid = Tid then %> <% else %> <% end if if datornamn = "Ronny" AND bokadTid = Tid then %> <% else %> <% end if %> <% Tid = dateadd("n",30,Tid) wend %>
<% = DagensDatum %>    Klockan är nu <% = FormatDateTime(Nu,4) %>
Tid Mia Monica Thorsten Ronny
 <% = FormatDateTime(Tid,4) %> <% = strNamn %>  <% = strNamn %>  <% = strNamn %>  <% = strNamn %> 
``` Min fråga är nu.... hur får jag SQL satsen att loopa? Eller är jag helt fel ute? Permalänk: https://www.webforum.nu/p/40793 ## #2 — @nders, 2002-04-03T14:20Z ``` set rs = db.Execute(SQL) while not rs.eof . . . . . rs.movenext wend ``` Mvh, Permalänk: https://www.webforum.nu/p/634418 ## #3 — sven, 2002-04-03T14:28Z Nu blev loopen lite konstig.... Ser kanske inte så snyggt ut.... Framför allt vill jag inte ha det riktigt så :) Permalänk: https://www.webforum.nu/p/637353 ## #4 — Jörgen HP, 2002-04-03T14:36Z Menar du att den skriver ut flera av varje tidpunkt? i så fall kan du skriva: ``` SQL = " SELECT * FROM bokning WHERE [datum] = #2002-03-21# GROUP BY [datum] ORDER BY [datum]" ``` Permalänk: https://www.webforum.nu/p/637367 ## #5 — sven, 2002-04-03T14:40Z Jepp.... sen skriver den inte ut allt från databasen..... ex om jag har bokning på två datorer... ( ja våra datorer heter Monica, Ronny osv) vid samma tid... Permalänk: https://www.webforum.nu/p/637369 ## #6 — sven, 2002-04-03T14:45Z Den gillar inte \* Permalänk: https://www.webforum.nu/p/637374 ## #7 — Jörgen HP, 2002-04-03T14:57Z Vad får du för fel? jag gissar på att något reserverat ord finns bland fälten bakom \*. Ta som vana att alltid skriva ut dina fältnamn. SELECT field1, field2, field3, field4 osv datum är ett reserverat ord i många sql-dialekter. Det var därför jag klammrade det. mvh Jörgen HP Permalänk: https://www.webforum.nu/p/637380 ## #8 — sven, 2002-04-03T15:19Z Nu har jag ändrat på alla fältord... Så här ser SQL satsen ut ``` SQL = " SELECT ddatum, ddator, namn, ttid FROM bokning WHERE ddatum = #2002-03-21# GROUP BY ddatum ORDER BY ddatum" ``` Nu gillar den inte ordet ddator... eller så som det står... You tried to execute a query that does not include the specified expression 'ddator' as part of an aggregate function. Hmmm... :q Permalänk: https://www.webforum.nu/p/637404 ## #9 — Jörgen HP, 2002-04-03T15:27Z Denna kan nog hjälpa dig på traven: Om du inte vill använda GROUP BY kan du ju välja distinct på tidpunkten för att slippa dubletter. Permalänk: https://www.webforum.nu/p/637408 ## #10 — sven, 2002-04-03T15:48Z Förstår inte riktigt... Om jag tar med alla fälten och skriver dom i GROUP BY så blir det ju ingen skillnad... Permalänk: https://www.webforum.nu/p/637415 ## #11 — @nders, 2002-04-03T15:58Z > Menar du att den skriver ut flera av varje tidpunkt? Man kan ju alltid sätta kontrollvariabler i asp för att se till att *man inte skriver ut* datumen mer än en gång. Är iofs inte hundra på att jag förstått problemet. :) Mvh, Permalänk: https://www.webforum.nu/p/637420 ## #12 — sven, 2002-04-03T17:43Z Facit @nders hjälpte mig... och ändrade allt (nästan) ((tack)) ``` Databokning <% DagensDatum = Date Nu = Time %> <% SQL = " SELECT ddatum, ddator, namn, ttid FROM bokning WHERE ddatum = #2002-03-21# ORDER BY ddatum" set rs = db.Execute(SQL) Tid = #16:15# while Tid <= #21:45# NewTime = Tid strMia = " " strMonica = " " strThorsten = " " strRonny = " " rs.movefirst while not rs.eof datornamn = rs("ddator") strNamn = rs("namn") bokadTid = FormatDateTime(rs("ttid"),4) jmfTid = FormatDateTime(Tid,4) if datornamn = "Mia" AND bokadTid = jmfTid then strMia = strNamn if datornamn = "Monica" AND bokadTid = jmfTid then strMonica = strNamn if datornamn = "Thorsten" AND bokadTid = jmfTid then strThorsten = strNamn if datornamn = "Ronny" AND bokadTid = jmfTid then strRonny = strNamn rs.movenext wend %> <% Tid = dateadd("n",30,Tid) wend %>
<% = DagensDatum %>    Klockan är nu <% = FormatDateTime(Nu,4) %>
Tid Mia Monica Thorsten Ronny
 <% = FormatDateTime(Tid,4) %>  <% = strMia %>  <% = strMonica %>  <% = strThorsten %>  <% = strRonny %>
``` Snyggt va? Permalänk: https://www.webforum.nu/p/637467 ## #13 — sven, 2002-04-06T15:57Z Tänkte göra en ändring.... Så här ser det ut nu... ``` strMia = " " ``` Men jag skulle vilja ha typ så här istället... ``` strMia = "Lägg till" ``` Men jag får inget värde med i tid... Något fnutt problem eller är jag helt fel ute? Permalänk: https://www.webforum.nu/p/638925 ## #14 — @nders, 2002-04-06T15:59Z ``` strMia = "Lägg till" ``` Mvh, Permalänk: https://www.webforum.nu/p/638926 ## #15 — sven, 2002-04-06T16:01Z Tackar.... Nu fick jag användning av NewTime... jag sa ju att jag skulle det :) Permalänk: https://www.webforum.nu/p/638927 --- Tråden på webben: https://www.webforum.nu/amne/asp/40793-loopelliloop