---
title: "Omvandla If sats till slinga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51897-omvandla-if-sats-till-slinga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-09-01T15:43:59.000Z"
updated: "2002-09-01T19:54:08.000Z"
replies: 8
views: 256
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/51897-omvandla-if-sats-till-slinga"
---

# Omvandla If sats till slinga

## #1 — CatZ, 2002-09-01T15:43Z

Jag har följande if sats: 

```
If Not rs.EOF Then			
	If rs("KalDd") = aKalenderDagar((iRaderLoop-1)*7+iKolumnerLoop) Then
	Response.Write "<tr><td valign=top align=left>"
     	Response.Write rs("KalTitel") & "<br>"
	rs.MoveNext
	iAntalBokningar = iAntalBokningar +1
    Response.Write "</td><tr>"				
	End If
End If
```

 Hur tusan ska jag göra en slinga av det? som kollar villka poster som ska vara med ? Som det är nu listas bara en post per dag.

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

## #2 — UlfT, 2002-09-01T15:50Z

do until rs.EOF

	If rs("KalDd") = aKalenderDagar((iRaderLoop-1)\*7+iKolumnerLoop) Then
	Response.Write "\<tr\>\<td valign=top align=left\>"
     	Response.Write rs("KalTitel") & "\<br\>"
	rs.MoveNext
	iAntalBokningar = iAntalBokningar +1
    Response.Write "\</td\>\<tr\>"

Loop

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

## #3 — CatZ, 2002-09-01T16:06Z

```
Do Until rs.EOF
If rs("KalDd") = aKalenderDagar((iRaderLoop-1)*7+iKolumnerLoop) Then
Response.Write "<tr><td valign=top align=left>"
Response.Write rs("KalTitel") & "<br>"
rs.MoveNext
iAntalBokningar = iAntalBokningar +1
Response.Write "</td><tr>"
Loop
```

 Ger följande fel Loop utan Do (är min server cp eller ?)

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

## #4 — LarsG, 2002-09-01T16:14Z

Det saknas en end if

Det här ligger väl inuti en yttre loop där du loopar över veckodagar?

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

## #5 — CatZ, 2002-09-01T16:16Z

Japp, Om jag kör på UlfT's förslag så kör jag minnet i botten och cpu på 100% det verkar aldrig vilja sluta :) Några fler förslag ?

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

## #6 — LarsG, 2002-09-01T16:22Z

```
if not rs.eof then
for IraderLoop = 1 to 7
If rs("KalDd") = aKalenderDagar((iRaderLoop-1)*7+iKolumnerLoop) Then
Response.Write "<tr><td valign=top align=left>"
Response.Write rs("KalTitel") & "<br>"
rs.MoveNext
[b]if rs.eof then exit for[/b]
iAntalBokningar = iAntalBokningar +1
Response.Write "</td><tr>"
end if
next
end if
```

Strukturellt borde det bli så, med reservation för detaljer.

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

## #7 — CatZ, 2002-09-01T16:33Z

Och lösningen som kom till tack vare LarsG ser ut som följer (så att alla ska kunna ha nytta av den)

```
If Not rs.Eof then													
	For iSlinga = iRader to iKolumner
		If rs("KalDd") = aKalenderDagar((iRaderLoop-1)*7+iKolumnerLoop) Then
			Response.Write "<tr><td valign=top align=left>"
			Response.Write rs("KalTitel") & "<br>"
		rs.MoveNext
		iAntalBokningar = iAntalBokningar +1
			if rs.eof then Exit for
				Response.Write "</td><tr>"
		End If
	Next
End If
```

 Jag vet inte varför detta funkar... men det gör det iaf :)

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

## #8 — UlfT, 2002-09-01T19:52Z

> **CatZ skrev:**
>
> Japp, Om jag kör på UlfT's förslag så kör jag minnet i botten och cpu på 100% det verkar aldrig vilja sluta :) Några fler förslag ?

Konstigt. Hade du verkligen rs.MoveNext i den lösningen?

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

## #9 — CatZ, 2002-09-01T19:54Z

Enda sättet att lära sig är att experimentera och sedan fråga dem som vet bättre när man helt enkelt inte kan. Jag är iofs inget bra på att ställa rätt frågor så du får ha lite överseende med mig :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/51897-omvandla-if-sats-till-slinga