webForumDet fria alternativet
Logga in / Bli medlem

Loop fel!

ASP

11 svar · 183 visningar · startad av Jacek

JacekMedlem sedan apr. 2000169 inlägg
Trådstart#1

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

OveRRidEMedlem sedan feb. 200112 078 inlägg
#2

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
OveRRidEMedlem sedan feb. 200112 078 inlägg
#3

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

JacekMedlem sedan apr. 2000169 inlägg
#4

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

doggelitoMedlem sedan juni 20003 076 inlägg
#5

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

OveRRidEMedlem sedan feb. 200112 078 inlägg
#6

Mer kod.

JacekMedlem sedan apr. 2000169 inlägg
#7

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

doggelitoMedlem sedan juni 20003 076 inlägg
#8

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.

JacekMedlem sedan apr. 2000169 inlägg
#9

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>
doggelitoMedlem sedan juni 20003 076 inlägg
#10

ä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!)

JacekMedlem sedan apr. 2000169 inlägg
#11

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

doggelitoMedlem sedan juni 20003 076 inlägg
#12

ingen orsak!
funkar det nu?

266 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)