Do while

Den här koden fungerar perfekt förutom att när den har skrivit ut de 8 poeterna som finns i databasen får jag ett felmeddelande.

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'RS'

/tik/test4.asp, rad 7

Koden ser ut så här

<!-- #include file="anslutning/connect.asp" -->

<% 
sql = "select * from Tabell order by poang1 DESC, skillnad1 DESC"
Set RS = oConn.Execute(sql)
%>
            <% do until RS.eof %>
<% 
Dim Summa
Summa = 0 

Do while Summa < 8 

Summa = Summa + 1 

%>            
<table width="100%" border="0" cellspacing="0" cellpadding="00">
              <tr> 
                <td width="11" height="21"><%=Summa%>

</td>
                <td width="109" height="21"><%= Rs("Lag1")%></td>
                <td width="62" height="21"><%= Rs("Match1")%></td>
                <td width="45" height="21"><%= Rs("vinst1")%></td>
                <td width="72" height="21"><%= Rs("oav1")%></td>
                <td width="84" height="21"><%= Rs("lost1")%></td>
                <td width="108" height="21"><%= Rs("skillnad1")%></td>
                <td width="67" height="21"><%= Rs("poang1")%></td>
              </tr>
            </table>

<%
Rs.MoveNext
Loop %>
<% Set Rs = Nothing
oConn.Close
Set oConn = Nothing
%>
<% Loop%>

Någon som ser felet?

Jo.

<!-- #include file="anslutning/connect.asp" -->
<% 
sql = "select * from Tabell order by poang1 DESC, skillnad1 DESC"
Set RS = oConn.Execute(sql)
Dim Summa
Summa = 0 
do until RS.eof

Summa = Summa + 1 
if summa = 8 then exit do
%> 
<table width="100%" border="0" cellspacing="0" cellpadding="00">
<tr> 
<td width="11" height="21"><%=Summa%>

</td>
<td width="109" height="21"><%= Rs("Lag1")%></td>
<td width="62" height="21"><%= Rs("Match1")%></td>
<td width="45" height="21"><%= Rs("vinst1")%></td>
<td width="72" height="21"><%= Rs("oav1")%></td>
<td width="84" height="21"><%= Rs("lost1")%></td>
<td width="108" height="21"><%= Rs("skillnad1")%></td>
<td width="67" height="21"><%= Rs("poang1")%></td>
</tr>
</table>

<%
Rs.MoveNext
Loop %>
<% 
Rs.close
Set Rs = Nothing
oConn.Close
Set oConn = Nothing
%>

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 31 okt 2001]

<%
Rs.MoveNext
Loop %>
<% Set Rs = Nothing
oConn.Close
Set oConn = Nothing
%>
[b]<% Loop%> [/b]

Du måste stänga RS innan du förstör det. Vad gör den senaste loopen?

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

Tack.

Ni löste det som vanligt

Den loopar ut siffrorna 1-8

Hej!

Använd en exit do i din tidigare loop då, när den når upp till 8.

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?