Unexpected 'Next'
Hvad er der lige galt her?<%
function CStr2(Value)
if Value < 10 then
CStr2 = "0" & CStr(Value)
else
CStr2 = CStr(Value)
end if
end function
TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter
for Cnt = 1 to 28 ' Antal linier
strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu
if not rs.EOF then
start = rs("start")
else
RTime = 0
end if
RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
If TTime = RTime Then
strKommentar = rs("kommentar")
rs.movenext
Else
' Check for frokostpause
if booWeekend and (TTime >= 1130 and TTime <= 1230) then
strKommentar = "Kantinen serverer frokost"
else
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = " "
end if
SkrivLinie strTid, strKommentar
' Tiden i næste linie
MCnt = MCnt + 30
if (MCnt = 60) then
MCnt = 0
TCnt = TCnt + 1
end if
next
Response.Write("</table>")
%>
Jeg får denne fejl:
Unexpected 'Next'
next
^
Den skriver at det ligger heromkring:
next
Response.Write("</table>")
%>
