Omvandla If sats till slinga

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

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 ?)

Det saknas en end if

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

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 ?

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.

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 :)

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?

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 :)