2 x Do While Not
Jeg har 2 DO WHILE NOT rs.EOF, men jeg får kun resultatet frem i den første loop.Hvad skal jeg lave om før resultaterne fra begge DO WHILE NOT rs.EOF vises i browseren.
<%
response.buffer = true
set Conn =Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"mug\"
SQLstmt=\"SELECT personer.cprnr, personer.navn, aktivitet.aktivitet,aktivitet.antaltimer,aktivitet.kgodtkr,aktivitet.morgen,aktivitet.frokost,aktivitet.aften,aktivitet.kostialt,aktivitet.ydelseikr FROM aktivitet INNER JOIN personer ON aktivitet.aktivitet = personer.aktivitet\"
%>
<html>
<head>
<title>Home Page</title>
</head>
<body>
<p><%Conn.Execute (SQLstmt)
Set rs = conn.Execute(SQLstmt) %> </p>
<%aktivitet = rs(\"aktivitet\")
\'første loop
DO WHILE NOT rs.EOF
aktivitet = rs(\"aktivitet\")
response.write aktivitet
rs.MoveNext
LOOP
%>
<table border=\"1\" width=\"972\">
<tr>
<td width=\"109\">CPRNR</td>
<td width=\"143\">NAVN</td>
<td width=\"83\">Aktivitet</td>
<td width=\"84\">K-GODT antal</td>
<td width=\"86\">K-GODT kr</td>
<td width=\"76\">Morgenmad</td>
<td width=\"48\">Frokost</td>
<td width=\"65\">Aftensmad</td>
<td width=\"60\">Kost ialt</td>
<td width=\"158\">Ydelse før øreafrundning</td>
<%
\'anden loop
DO WHILE NOT rs.EOF
cprnr = rs(\"cprnr\")
navn = rs(\"navn\")
aktivitet = rs(\"aktivitet\")
antaltimer=rs(\"antaltimer\")
kgodtkr=rs(\"kgodtkr\")
morgen=rs(\"morgen\")
frokost=rs(\"frokost\")
aften=rs(\"aften\")
kostialt=rs(\"kostialt\")
ydelseikr=rs(\"ydelseikr\")
%>
</tr>
<tr>
<td width=\"109\"><%=cprnr%>
</td>
<td width=\"143\"><%=navn%>
</td>
<td width=\"83\"><%=aktivitet%>
</td>
<td width=\"84\"><%=antaltimer%>
</td>
<td width=\"86\"><%=kgodtkr%>
</td>
<td width=\"76\"><%=morgen%>
</td>
<td width=\"48\"><%=frokost%>
</td>
<td width=\"65\"><%=aften%>
</td>
<td width=\"60\"><%=kostialt%>
</td>
<td width=\"158\"><%=ydelseikr%>
</td>
<%
rs.MoveNext
LOOP
RS.Close
Response.Write \"</TABLE>\"
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</tr>
</table>
</body>
</html>
