JacekMedlem sedan apr. 2000169 inlägg 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...
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
OveRRidEMedlem sedan feb. 200112 078 inlägg 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
------------------
"-Man kan faktiskt supa nykter." -Mange P
[Redigerat av OveRRidE den 10 jan 2002]
OveRRidEMedlem sedan feb. 200112 078 inlägg Hrm. Har du mer kod förresten? ;)
------------------
"-Man kan faktiskt supa nykter." -Mange P
JacekMedlem sedan apr. 2000169 inlägg 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
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
Hur ser rad 192 ut?
Du lär nog visa lite mer av din kod.
------------------
Motto: Flest If-taggar vinner!
OveRRidEMedlem sedan feb. 200112 078 inlägg Mer kod.
------------------
"-Man kan faktiskt supa nykter." -Mange P
[Redigerat av OveRRidE den 10 jan 2002]
JacekMedlem sedan apr. 2000169 inlägg 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
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
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.
------------------
Motto: Flest If-taggar vinner!
JacekMedlem sedan apr. 2000169 inlägg 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>
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
[Redigerat av Jacek den 10 jan 2002]
ä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!)
------------------
Motto: Flest If-taggar vinner!
JacekMedlem sedan apr. 2000169 inlägg åhh ett klant fel! =)
Tack för att du såg och sa till..
------------------
Mikael Tyrsén
</www.tyrsen.nu>
</mikael@tyrsen.nu>
ingen orsak!
funkar det nu?
------------------
Motto: Flest If-taggar vinner!
