hvordan undgår man at udskrive 1 record

<%
  forste = 0 
While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))
    if ( f0rste > 0 )
%>
            <a href="side.asp?id=<%=(rs_menu.Fields.Item("id").Value)%>" class="blaa_txt"><%="<a href='side.asp?id="& rs_menu.Fields.Item("id").Value & "'> "& rs_menu.Fields.Item("link").Value & "</a><br>" %></a>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_menu.MoveNext()
    Endif
    forste = forste +1
Wend
%>

mvh JakobA

Ups.  f0rste -> forste    i if betingelsen

den giver:

Microsoft VBScript compilation error '800a03f9'

Expected 'Then'

/kunder/aakn/index.asp, line 126

if ( forste > 0 )
-----------------^


og hvis jeg retter til:
          <%
  forste = 0 
While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))
    if ( forste > 0 ) then
%>
            <a href="side.asp?id=<%=(rs_menu.Fields.Item("id").Value)%>" class="blaa_txt"><%="<a href='side.asp?id="& rs_menu.Fields.Item("id").Value & "'> "& rs_menu.Fields.Item("link").Value & "</a><br>" %></a>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_menu.MoveNext()
    Endif
    forste = forste +1
Wend
%>


og jeg ændre til:

          <%
  forste = 0 
While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))
    if ( forste > 0 ) then
%>
            <a href="side.asp?id=<%=(rs_menu.Fields.Item("id").Value)%>" class="blaa_txt"><%="<a href='side.asp?id="& rs_menu.Fields.Item("id").Value & "'> "& rs_menu.Fields.Item("link").Value & "</a><br>" %></a>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_menu.MoveNext()
    End if
    forste = forste +1
Wend

SÅ ER DEN FØRSTE RECORD STADIGT UDSKREVET.... ?

tak, dette virkede:

<%DIM forste
forste = 0 %> <%
While ((Repeat1__numRows <> 0) AND (NOT rs_menu.EOF))
%>
<% if ( forste > 0 ) then%>
            <a href="side.asp?id=<%=(rs_menu.Fields.Item("id").Value)%>" class="blaa_txt"><%="<a href='side.asp?id="& rs_menu.Fields.Item("id").Value & "'> "& rs_menu.Fields.Item("link").Value & "</a><br>" %></a>
              <% End if
    forste = forste +1%>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_menu.MoveNext()
Wend
%>