---
title: "Do while"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12383-do-while"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "andreas_lindh"
published: "2001-10-31T19:01:00.000Z"
updated: "2001-10-31T19:15:00.000Z"
replies: 5
views: 142
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12383-do-while"
---

# Do while

## #1 — andreas_lindh, 2001-10-31T19:01Z

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?

Permalänk: https://www.webforum.nu/p/12383

## #2 — LarsG, 2001-10-31T19:07Z

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
%>
```

Permalänk: https://www.webforum.nu/p/293334

## #3 — jorgen, 2001-10-31T19:08Z

```
<%
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 :)

Permalänk: https://www.webforum.nu/p/293335

## #4 — andreas_lindh, 2001-10-31T19:10Z

Tack.

Ni löste det som vanligt

Permalänk: https://www.webforum.nu/p/293336

## #5 — andreas_lindh, 2001-10-31T19:11Z

Den loopar ut siffrorna 1-8

Permalänk: https://www.webforum.nu/p/293337

## #6 — jorgen, 2001-10-31T19:15Z

Hej!

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

mvh Jörgen :)

Permalänk: https://www.webforum.nu/p/293338

---

Tråden på webben: https://www.webforum.nu/amne/asp/12383-do-while