---
title: "Kalender, oväntade Next"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/51854-kalender-oväntade-next"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2002-09-01T06:23:38.000Z"
updated: "2002-09-01T10:39:27.000Z"
replies: 6
views: 283
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/51854-kalender-oväntade-next"
---
# Kalender, oväntade Next
## #1 — CatZ, 2002-09-01T06:23Z
Skulle någon kunna hjälpa mig att felsöka koden, jag har snurrat in mig på ett spår och kommer inte väck.
```
For iRaderLoop = 1 to iRader
response.write ""
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write ""
Response.Write ""
Response.Write "| "
If Not rs.EOF Then
If rs("KalDd") = aKalenderDagar((iRader - 1) * 7 + iKolumnerLoop) Then
Response.Write "" & aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) & ""
rs.MoveNext
Response.Write " | "
Else
Response.Write aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop)
Response.Write ""
End If
Response.Write " "
Response.Write " | "
Else
Response.Write " | "
end If
Next
Response.Write "
"
Next
```
Permalänk: https://www.webforum.nu/p/51854
## #2 — @nders, 2002-09-01T07:26Z
Visa felmeddelande och kodrad som felmeddelandet pekar på.
Permalänk: https://www.webforum.nu/p/769716
## #3 — trexter.com, 2002-09-01T07:27Z
Jag vet inte om jag verkligen har hittat felet men iaf gett dig en intenderad kod. ;)
```
For iRaderLoop = 1 to iRader
response.write ""
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write ""
Response.Write ""
Response.Write "| "
If Not rs.EOF Then
If rs("KalDd") = aKalenderDagar((iRader - 1) * 7 + iKolumnerLoop) Then
Response.Write "" & aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) & ""
rs.MoveNext
Response.Write " | "
Else
Response.Write aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop)
Response.Write ""
End If
Response.Write " "
Response.Write " | "
Else ' <-- Vad hänger den ihop med?
Response.Write " | "
end If ' <-- Och den?
Next
Response.Write "
"
Next
```
:)
Permalänk: https://www.webforum.nu/p/769717
## #4 — CatZ, 2002-09-01T08:17Z
Tack trexter, jag hade tänkt fel, nästa gång ska jag försöka med att skriva om allt för han och inte ändra lite här och lite där :P
Du hjälpte mig att komma på bättre tankar iaf ;)
Permalänk: https://www.webforum.nu/p/769732
## #5 — CatZ, 2002-09-01T09:28Z
Hmm nu är jag lite ute och cyklar igen, men jag vill göra ungefär såhär:
```
For Each rs("KalDd") = aKalenderDagar((iRader - 1) * 7 + iKolumnerLoop)
Response.Write "" & iTitel & "
"
next
```
Och får upp detta meddelandet:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0410)
Ogiltig kontrollvariabel för 'for'-loop
/TMP5rc0f1r68b.asp, line 89, column 21
For Each rs("KalDd") = aKalenderDagar((iRader - 1) \* 7 + iKolumnerLoop)
Jag fattade lixom att man inte kan göra så, men går det på något sätt ?
Permalänk: https://www.webforum.nu/p/769762
## #6 — trexter.com, 2002-09-01T09:58Z
Hmm.. bygg upp en For Each så här:
For each x in "ett objekt"
' saker o ting händer
Next
Till exempel:
\<%
For Each i in myarray
Rem Placera koden som ska loopas här!
Next
%\>
Så tror iaf jag att man måste göra...
:)
Permalänk: https://www.webforum.nu/p/769770
## #7 — CatZ, 2002-09-01T10:39Z
Ok nu går det Inte längre :x Jag har följande kod:
```
Dim iDag, iManad, iAr, iTitel, iId
If Not rs.EOF Then
iDag = rs("KalDd")
iManad = rs("KalMm")
iAr = rs("KalYy")
iTitel = rs("KalTitel")
iId = rs("KaID")
arrLank = Array("" & iTitel & "")
End If
Dim iAntalBokningar, iTotalt
iAntalBokningar = 0
Dim iRaderLoop, iKolumnerLoop
For iRaderLoop = 1 to iRader
response.write ""
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write ""
Response.Write ""
Response.Write "| "
Response.Write aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop)
Response.Write " | "
response.write ""
[b] If Not rs.Eof Then
if iDag = aKalenderDagar((iRader - 1) * 7 + iKolumnerLoop) Then
For i = 0 to UBound(arrDag)
Response.Write arrLank(i) & "
"
Next
iAntalBokningar = iAntalBokningar +1
End If
End If
[/b] Response.Write " | "
Response.Write " "
Response.Write " | "
Else
Response.Write " | "
end If
Next
Response.Write "
"
Next
```
Ok jag vet den är lång men det är väl egentligen bara den **FETA** delen som krånglar, jag får ut samma sak flera gånger, och de hamnar då fan inte där datumet ska vara... hjälp?
ps. Det är en kalenderaplikation
Permalänk: https://www.webforum.nu/p/769798
---
Tråden på webben: https://www.webforum.nu/amne/asp/51854-kalender-oväntade-next