---
title: "Loop fel!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13679-loop-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jacek"
published: "2002-01-10T09:03:00.000Z"
updated: "2002-01-10T14:34:00.000Z"
replies: 11
views: 183
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/13679-loop-fel"
---

# Loop fel!

## #1 — Jacek, 2002-01-10T09:03Z

Jag har denna kod innanför en loop:

```
	SQL = "SELECT * FROM User Where UserId =" & RsForumSvar("ForumSvarUserId")
	SQL = SQL & " Order by UserId"
	Set RsUserForumSvar = Conn.Execute(SQL)
```

Det fungerar och den listar ut så många mallar som det finns poster i loopen.
Men så fort jag slänger in \<%= RsUserForumSvar("UserNamn")%\> innanför lopen så kommer detta felmeddelande:

```
ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. 

/p6intranet/forum/inlagg.asp, line 0
```

Det skumma är att alla lopar som är liknande har typ precis samma kod med dom fungerar utmärkt!
Det kanske bara är nå slarvfel någonstans men jag kan inte se det i alla fall...

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

## #2 — OveRRidE, 2002-01-10T09:26Z

Det ditt felmeddelande säger är att recordset:et har kommit till EOF eller BOF (End Of Fields är det va :q), vilket även innebär att frågan du ställer mpt databasen inte returnerar några rader i recordset:et, det finns troligtvis inga som matchar dina kriteria i just det fallet då det inte fungerar.

testa detta får du se:

```
if RsUserForumSvar.eof then
response.write "Inga rader valda!"
else
 do untilRsUserForumSvar.eof
  response.write RsUserForumSvar("dinKolumn") & "<br>"
 RsUserForumSvar.movenext
 loop
end if
```

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

## #3 — OveRRidE, 2002-01-10T09:37Z

Hrm. Har du mer kod förresten? ;)

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

## #4 — Jacek, 2002-01-10T09:49Z

När jag använder mig av din kod så kommer detta felmeddelande:

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/p6intranet/forum/inlagg.asp, line 192

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

## #5 — doggelito, 2002-01-10T10:08Z

Hur ser rad 192 ut?
Du lär nog visa lite mer av din kod.

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

## #6 — OveRRidE, 2002-01-10T10:12Z

Mer kod.

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

## #7 — Jacek, 2002-01-10T10:45Z

Okej kanske var lite otydlig men det jag mena var att när jag använda din kod så fick jag felet, och felet hänvisar till raden:

if RsUserForumSvar.eof then

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

## #8 — doggelito, 2002-01-10T10:58Z

Ett fel som inte kan hända, typ!
Du lär nog slänga upp åtminstone koden för de båda looparna för att man ska kunna felsöka.

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

## #9 — Jacek, 2002-01-10T11:17Z

Detta felmeddelande får jag:

```
Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/p6intranet/forum/inlagg.asp, line 189
```

Detta är felsöks raden/raderna (loop):

```
<%

if RsUserForumSvar.eof then
' ** inga svar **
Else

Do Until RsForumSvar.EOF

' ############# ANVÄNDARE SOM SVARAT #####################

	SQL = "SELECT * FROM User Where UserId =" & RsForumSvar("ForumSvarUserId")
	SQL = SQL & " Order by UserId"
	Set RsUserForumSvar = Conn.Execute(SQL)

%>
```

Och så här ser hela sidan ut:

```
<%

KundId = Request.Querystring("KundId")
ForumId = Request.Querystring("ForumId")
UserId = Session("UserId")

 set conn=server.createobject("adodb.connection")
 path="DBQ=" & server.mappath("../db/p6intranet.mdb")
 conn.open "driver={microsoft access driver (*.mdb)}; " & path,"name","name" 

' ############# KUND #####################

	SQL = "SELECT * FROM Kund Where KundId =" & Request("KundId")
	SQL = SQL & " Order by KundId"
	Set RsKund = Conn.Execute(SQL)

' ############# FORUM INLÄGGET #####################

	SQL = "SELECT * FROM Forum Where ForumId =" & Request("ForumId")
	SQL = SQL & " Order by ForumId"
	Set RsForum = Conn.Execute(SQL)

AntalLasningar = RsForum("ForumAntalLast")

' ############# FORUM SVAR #####################

Set RsForumSvar = conn.Execute("SELECT * FROM ForumSvar Where ForumSvarForumId = '" & ForumId & "' Order by ForumSvarDatum")

' ############# ANVÄNDARE DET ANGÅR #####################

If RsForum("ForumAngarUserId") = "ingen" Then
Else

	SQL = "SELECT * FROM User Where UserId =" & RsForum("ForumAngarUserId")
	SQL = SQL & " Order by UserId"
	Set RsUserForumAngar = Conn.Execute(SQL)
End If

' ############# ANVÄNDARE SOM STARTA INLÄGGET #####################

	SQL = "SELECT * FROM User Where UserId =" & RsForum("ForumUserId")
	SQL = SQL & " Order by UserId"
	Set RsUserForum = Conn.Execute(SQL)

' ############# ANTAL SVAR #####################

Set RsForumAntalSvar = conn.Execute("Select Count(*) As AntalSvar FROM ForumSvar WHERE ForumSvarForumId = '" & ForumId & "'")

%>
<html>
<head>
<title>Forum</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr>
    <td align="center" valign="middle"> <br>
      <br>
      <table width="480" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><b>Forum /</b> <%= RsKund("KundNamn")%> </td>
        </tr>
        <tr>
          <td> </td>
        </tr>
      </table>
      <%

' ############# PLUSA 1 PÅ ANTAL LÄSNINGAR #####################

	SQLStmt = "Update Forum SET ForumAntalLast = '" & AntalLasningar & "' + 1 WHERE ForumId ="& Request("ForumId")
	conn.execute SQLStmt

' ############# OM DET ANGÅR DEN RÄTTA PERSONEN #####################

If RsForum("ForumAngarLast") = "False" AND RsForum("ForumAngarUserId") = Session("UserId") Then

	SQLStmt = "Update Forum SET ForumAngarLast = True WHERE ForumId ="& Request("ForumId")
	conn.execute SQLStmt
	Response.Write "HEJ PÅ DEJ!"

End If

%>
      <table width="480" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td bgcolor="#<% If RsForum("ForumAngarUserId") = "ingen" Then %>FFEECD<% Else %><% If RsUserForumAngar("UserId") = Session("UserId") Then %>FFFF99<% Else %>FCD3CF<% End If %><% End If %>"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="4">
              <tr> 
                <td><b>· <a href="#"><%= RsForum("ForumRubrik")%></a></b></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> </td>
              </tr>
              <tr>
                <td align="center">
<table width="440" border="0" cellspacing="0" cellpadding="4">
                    <tr>
                      <td><%= RsForum("ForumMeddelande")%></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td> </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td><img src="../bilder/linje_480.gif" width="480" height="1"></td>
        </tr>
        <tr> 
          <td height="2"> 
            <table width="480" border="0" cellspacing="0" cellpadding="2">
              <tr> 
                <td rowspan="<% If RsForum("ForumAngarUserId") = "ingen" Then %>4<% Else %>5<% End if %>" width="53" valign="middle"> 
                  <div align="center"><img src="../bilder/user/<%= RsUserForum("UserBild")%>" width="42" height="56" border="1"></div>
                </td>
                <td width="356" valign="bottom">Postat av: <b><%= RsUserForum("UserNamn")%> <%= RsUserForum("UserEfternamn")%></b> 
                </td>
                <td rowspan="<% If RsForum("ForumAngarUserId") = "ingen" Then %>4<% Else %>5<% End if %>" valign="bottom" width="59" align="right"> 
                  <% If RsUserForum("UserId") = Session("UserId") Then %>
                  <b> <a href="../nyheter.asp?Status=Tabort">Ta bort </a></b> 
                  <% End IF %>
                </td>
              </tr>
              <tr> 
                <td valign="top" width="356" height="16">Datum: <b> 
                  <%
dag = FormatDateTime(RsForum("ForumDatum"), 2)
if datediff("d", dag, date) = 1 then
response.write "Igår"
elseif datediff("d", dag, date) = 0 then
response.write "Idag"
else
response.write dag
end if
%>
                  <font color="#999999"> <%= FormatDateTime(RsForum("ForumDatum"),4)%></font></b></td>
              </tr>

              <tr> 
                <td valign="top" width="356">Läst: <b><%= RsForum("ForumAntalLast")%> 
                  gång<% If RsForum("ForumAntalLast") = "1" Then %><% Else %>er<% End If %>
                  </b></td>
              </tr>
              <% If RsForum("ForumAngarUserId") = "ingen" Then %>
              <% Else %>
              <tr> 
                <td valign="top" width="354">Angår: <b><%= RsUserForumAngar("UserNamn")%> <%= RsUserForumAngar("UserEfternamn")%> 
                  <% If RsForum("ForumAngarLast") = "False" Then %>
                  <font color="#FF0000">(ej läst)</font> 
                  <% End If %>
                  </b></td>
              </tr>
              <% End If %>
            </table>
          </td>
        </tr>
        <tr> 
          <td height="2"><img src="../bilder/linje_480.gif" width="480" height="1"></td>
        </tr>
        <tr> 
          <td height="2"> </td>
        </tr>
      </table>
<b>
<% If RsForumAntalSvar("AntalSvar") = "0" Then %>
Inga svar på detta inlägg!
<% Else %>
Svar (<%= RsForumAntalSvar("AntalSvar")%> )
</b>
<% End If %>
<br>
      <br>
      <%

if RsUserForumSvar.eof then
' ** inga svar **
Else

Do Until RsForumSvar.EOF

' ############# ANVÄNDARE SOM SVARAT #####################

	SQL = "SELECT * FROM User Where UserId =" & RsForumSvar("ForumSvarUserId")
	SQL = SQL & " Order by UserId"
	Set RsUserForumSvar = Conn.Execute(SQL)

%>
      <table width="480" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="../bilder/linje_480.gif" width="480" height="1"></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFCC"> 
            <table width="480" border="0" cellspacing="0" cellpadding="4">
              <tr> 
                <td width="26" valign="middle"> 
                  <div align="center"><img src="../bilder/user/<%' = RsUserForumSvar("UserBild")%>" width="21" height="28" border="1"></div>
                </td>
                <td width="362" valign="middle">Skrivet av: <b><%= RsUserForumSvar("UserNamn")%> <%' = RsUserForumSvar("UserEfternamn")%></b><br>
                  Datum: <b>2002-01-10 14:34</b></td>
                <td width="68" valign="bottom" align="right"><b><a href="../nyheter.asp?Status=Tabort">Ta 
                  bort</a></b></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td><img src="../bilder/linje_480.gif" width="480" height="1"></td>
        </tr>
        <tr> 
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td> </td>
              </tr>
              <tr> 
                <td align="center"> 
                  <table width="440" border="0" cellspacing="0" cellpadding="4">
                    <tr> 
                      <td>Meddelande!!!</td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr> 
                <td> </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td height="2"><img src="../bilder/linje_480.gif" width="480" height="1"></td>
        </tr>
      </table>
      <br>
      <br>
      <%
 RsForumSvar.MoveNext
 Loop
 RsForumSvar.close
 End If
%>
      <br>
    </td>
  </tr>
</table>
</body>
</html>
```

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

## #10 — doggelito, 2002-01-10T12:41Z

ändra raden(192): if RsUserForumSvar.eof then
till: if RsForumSvar.eof then

så kanske det funkar bättre.
(du kan inte ha en if-tagg på RsUserForumSvar när den inte är skapad!)

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

## #11 — Jacek, 2002-01-10T13:46Z

åhh ett klant fel! =)
Tack för att du såg och sa till..

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

## #12 — doggelito, 2002-01-10T14:34Z

ingen orsak!
funkar det nu?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13679-loop-fel