APS-Script : Do/While

<% Do while rs.EOF%>

<tr><font face="Arial" color="#000000">
  <td bordercolor="#c0c0c0"><font size="2"face="Arial" color="#000000"><a href="#Brancher og myndighederB"><%=rs("PRODUCTGROUP")%></a></font></td></font>
</tr>
<%           
rs.movenext 
loop
%>

Prøve dette her...

<% WHILE NOT RS.EOF %>
<tr><font face="Arial" color="#000000">
  <td bordercolor="#c0c0c0"><font size="2"face="Arial" color="#000000"><a href="#Brancher og myndighederB"><%=rs("PRODUCTGROUP")%></a></font></td></font>
</tr>
<%
RS.MoveNext
WEND

Der mangler et NOT eller køre loopet kun hvis dit record set er tomt...

<% Do while NOT rs.EOF%>

okay, det virkede ikke, men jeg har lavet det på en andenmåde:

<%
rs.MoveFirst
Do while Not rs.EOF
strLink="<tr><font face=Arial color=#000000> <td bordercolor=#c0c0c0><font size=2 face=Arial color=#000000><a href=#Brancher og myndighederB>" & rs("PRODUCTGROUP") & "</a></font></td></font></tr>"
               
Response.Write strLink
rs.MoveNext
loop
%>


Dette virker, men nu får melding til sidst i Tabelrækken, hvor der står:

ADODB.Field fejl '80020009'

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record.


Hvordan får jeg dette væk?

rs.MoveFirst

uhmm det behøver du ikke det der

<% WHILE NOT RS.EOF %>
<tr><font face="Arial" color="#000000">
  <td bordercolor="#c0c0c0"><font size="2"face="Arial" color="#000000"><a href="#Brancher og myndighederB"><%=rs("PRODUCTGROUP")%></a></font></td></font>
</tr>
<%
RS.MoveNext
WEND

Lenn: er du sikker på at jeg kan bruge Wend?

Ja, temmelig sikker - har du prøvet at indsætte "mit kode"???

...eller hvad...

Nej jeg får en fejl:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0400'

En sætning var ventet

/udst-pro.asp, linje 123

Wend

Men kan det have noget at gøre med, at jeg bruger Autonumering i databasen?

Hvad for en funktion skal jeg bruge for at finde ud af hvor mange poster der er i tablen? Det er noget med rs.RecordCount?

denne skulle virke...

<%
Do while Not rs.EOF
  strLink="<tr><font face=Arial color=#000000> <td bordercolor=#c0c0c0><font size=2 face=Arial color=#000000><a href=#Brancher og myndighederB>" & rs("PRODUCTGROUP") & "</a></font></td></font></tr>"
  Response.Write strLink
  rs.MoveNext
loop
%>

ar du noget inden den kode som udsriver fra samme recordset?

Kunne også gøre det på den her måde.:
<%
If not RS.EOF then
      Do until RS.EOF
%>
<tr><font face="Arial" color="#000000">
  <td bordercolor="#c0c0c0"><font size="2"face="Arial" color="#000000"><a href="#Brancher og myndighederB"><%=rs("PRODUCTGROUP")%></a></font></td></font>
</tr>
<% RS.Movenext
Loop
End if
%>

Eller
<%
If not RS.EOF then
      Do until RS.EOF
        response.write "<tr><font face='Arial' color='#000000'>"
        response.write "<a href='" & "#Brancher og myndighederB"  & "'>" & rs("PRODUCTGROUP") & "</a></font></td></font></tr>"
        RS.Movenext
      Loop
End if
%>

og så kunne du lige efter du har åbnet dit recordset sige noget i retning af.
<%
If RS.EOF then
Response.write " Intet i databasen "
RS.close
Set RS = Nothing
End if

%>