Do while

5 svar · 142 visningar · startad av andreas_lindh 31 okt. 2001

andreas_lindhMedlem sedan jan. 20011 140 inlägg

Trådstart31 okt. 2001 19:01#1

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?

LarsGMedlem sedan dec. 200012 464 inlägg

31 okt. 2001 19:07#2

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

jorgenMedlem sedan feb. 20012 412 inlägg

31 okt. 2001 19:08#3

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

andreas_lindhMedlem sedan jan. 20011 140 inlägg

31 okt. 2001 19:10#4

Tack.

Ni löste det som vanligt

andreas_lindhMedlem sedan jan. 20011 140 inlägg

31 okt. 2001 19:11#5

Den loopar ut siffrorna 1-8

jorgenMedlem sedan feb. 20012 412 inlägg

31 okt. 2001 19:15#6

Hej!

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

mvh Jörgen