'loop' without 'do'

må vi se din kode ?

Det fejlen siger at du har lavet et LOOP, men uden at havde specifieret en DO

DO UNTIL RS.EOF

bla bla

RS.MOVENEXT
LOOP

Man kan også skrive
Do While(not rs.eof)
{
...
}
rs.movenext
loop

hbhansen ... Vist ikke med { og } ..*gg*

Det er smag og behag, nogen bruger det andre gør ikke :-)

loos hvis jeg bruger den der DO UNTIL RS.EOF hvor skal den så stå i min kode?

Min kode ser lidt sådan ud (Jeg har kun smid det der har noget at gøre med denne loop)

<%

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../../db/Booking.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};Password=1234 ;" & DBPath

'Find Bookninger for valgte dato
SQL = "SELECT booking.start , booking.firma , booking.initialer , booking.mail , booking.kommentar FROM booking WHERE dato = #" & dato & "#"
set rs = con.execute (SQL)

DO WHILE NOT rs.EOF
%>

en masse anden kode

<%


tid = "07:30:00"
tid = CDate(tid)
tid = FormatDateTime(tid, 4)

start = rs("start")
start = CDate(start)
start = FormatDateTime(start, 4)

If start = tid Then
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=7:30"" style=""text-decoration: none"">7:30</a>"
Else
response.write "7:30"
End if
%></td>
            <td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If start = tid Then
response.write rs("kommentar")
Else
response.write "&nbsp;"
End if
%>

Overstående bliver så gentaget en masse gange bare med andre tider og så kommer denne tilsidst:

<%
rs.movenext
loop
con.close
%>

Jeg håber det kan hjælpe ... det fylder lidt hvis jeg skal smide en kode på godt 700 linjer :-D

du er erstatter bare

DO WHILE NOT rs.EOF

med ¨

DO UNTIL rs.EOF

og inde i den LOOP sætningen har du ikke andre loops du starter vel?..

nope det har jeg ikke

ok.. gotta go. vender tilbage senere...

jeg har lige prøvet at ændre

DO WHILE NOT rs.EOF til DO UNTIL rs.EOF men får stadig den samme fejl :-(

Nu sad jeg lige og lejede lidt med mine koder ... hvis jeg bruger kun har følgende kode:

<%


tid = "07:30:00"
tid = CDate(tid)
tid = FormatDateTime(tid, 4)

start = rs("start")
start = CDate(start)
start = FormatDateTime(start, 4)

If start = tid Then
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=7:30"" style=""text-decoration: none"">7:30</a>"
Else
response.write "7:30"
End if
%></td>
            <td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If start = tid Then
response.write rs("kommentar")
Else
response.write "&nbsp;"
End if
%>

2 gange så melder den ingen fejl. Har jeg den flere gange får jeg den fejl med loop og do ... jeg syntes det er underligt.

Hejsa.. nu er jeg klar på at kigge lidt på det igen....

det lyder godt loss ... kan du hjælpe eller har jeg lavet en masse lort?

Jeg må indrømme at jeg har lidt svært ved at kunne gennemskue hvad fejlen kan skyldes.. lyder lidt mystisk, men det må jo være noget med det loop der, siden der er det som asp fejlen meddeler dig....

fik det til at virke ... takker for hjælpen!