Jeg forsøger at lave et ganske almindeligt loope, hvor nogle data vises i en
tabel. Men jeg får hele tiden fejlmeldingen "Loop uden Do". Hvad betyder
det, og hvad gør jeg forkert?
Her er min kode:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("dbtopdating.mdb")
%>
<html><head></head><body>
<%
SQL = "SELECT * FROM favorit"
Set RS = Conn.Execute(SQL)
Response.Write "<table width=100>"
recCount = 0
Do WHILE NOT RS.EOF
IF recCount Mod 3 = 0 THEN
IF recCount <> 0 THEN
Response.Write "</tr>"
Response.Write "<tr><td>"& RS("brugernavn")&"</td>"
ELSE
Response.Write "<td>" & RS("brugernavn")&"</td>"
END IF
recCount = recCount + 1
RS.MoveNext
Loop
Response.Write "</tr></table>"
ELSE
Response.Write "Der er ingen records i databasen!"
END IF
%>
v.h.
Jakob Munck