---
title: "loop i loopen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88496-loop-i-loopen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "evesve"
published: "2003-10-14T18:29:56.000Z"
updated: "2003-10-14T21:51:53.000Z"
replies: 4
views: 297
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/88496-loop-i-loopen"
---

# loop i loopen

## #1 — evesve, 2003-10-14T18:29Z

Hej!
Jag har knyckt en kalender som visar dagens datum.
Jag har lagt till att den ska visa rubriker (RS("Rubrik") för inlagda händelser i datumrutan.
Så långt fungerar det bra.
Problemet är om jag lagt i flera händelser samma dag.
Då kommer bara första händelsens rubrik med.
Alltså måste jag få in en loop i loopen.
Nån som kan hjälpa mig?

```
<%SET RS = Conn.Execute("Select * From cal_Mess Where  manad= " & manad & "")

If Int(Dag) = Int(dagar)+1 Then%>
  <td>&nbsp;</td>
<%Else
   If i >= sn Then
      If dagens = datum Then
         RS.Filter = "datum = #" & dagens & "#"%>
            <td>
               <%If RS.EOF Then%>
                <%=Dag%>
               <%Else
                  If RS("datum") < date() Then%>
                   <%=Dag%>
                  <%Else
                  If Request.QueryString("date") <> "" Then%>
                 <%=Dag%>
                  <%Else%>
                  <%=Dag%><BR><%=RS("Rubrik")%>
                  <%End If
                 End If
               End If%>
            </td>
    <%Else
         RS.Filter = "datum = #" & dagens & "#"
            If RS.EOF Then%>
               <td>
                  <%=Dag%>
               </td>
	     <%Else%>
               <td>
                  <%If RS("datum") < date() Then%>
                  <%=Dag%><BR>z_<%=RS("Rubrik")%>
                  <%Else%>
                  <%If Request.QueryString("date") <> "" Then%>
                    <%=Dag%><BR><%=RS("Rubrik")%>
                  <%Else%>
                    <%=Dag%><BR><%=RS("Rubrik")%>
                  <%End If
                 End If%>
               </td>
            <%End If
      End If
   Dag = Dag + 1
   dagens = DateAdd("d", 1, dagens)
   Else%>
      <td>&nbsp;</td>
   <%End If
End If%>
<%Next
sn = 1%>
<TD>w.<%=vecka +vka%></TD>
<%vka = vka+1%>
</tr>
<%If Int(Dag) = Int(dagar)+1 Then
   Exit For
End If

Next%>
```

Permalänk: https://www.webforum.nu/p/88496

## #2 — OveRRidE, 2003-10-14T19:56Z

Skapa två recordset istället, ett som visar alla poster och ett som visar underposter. 

Annars håller jag med LarsG som en gång sade; metoden **filter** går att använda, men den *bör* inte användas. ;)

Permalänk: https://www.webforum.nu/p/1187068

## #3 — evesve, 2003-10-14T21:18Z

> **OveRRidE skrev:**
>
> Skapa två recordset istället, ett som visar alla poster och ett som visar underposter.

Jo, det är just problemet med hur dom två recordseten jobbar tillsammans som jag inte får till att fungera.
Nån som har ett enkelt grundexempel?

Permalänk: https://www.webforum.nu/p/1187193

## #4 — Fredde Mannen, 2003-10-14T21:23Z

```
 ' SQL-sats för att plocka ut evenemang
	 Set rs = Server.CreateObject("ADODB.RecordSet")
	 SQL = "SELECT id, col_rubrik from tbl_kalender WHERE col_year=" & curYear & " AND col_month=" & curMonth  & " AND col_day=" & currentDay & " AND col_accepted=1"
	 rs.Open SQL, MyConn
	 
	 if rs.eof then
	 
	 else
	 Do until rs.eof
	 Response.Write("&#8226;&nbsp;<a href=""javascript:evenemang('kalender.asp?col_id=" & rs("id") & "');"">" & rs("col_rubrik") & "</a><br />")
	 rs.MoveNext
	 Loop
	 end if
```

Vet inte om detta hjälper dig, men min kalender som jag har skapat.. visar alla rubriker under varje dag...

Permalänk: https://www.webforum.nu/p/1187200

## #5 — evesve, 2003-10-14T21:51Z

Tackar!!!!!!
Det kom direkt!
Hade missat ett "Do untill..."

Permalänk: https://www.webforum.nu/p/1187226

---

Tråden på webben: https://www.webforum.nu/amne/asp/88496-loop-i-loopen