Hej om man inte har något i databasen brukar man ju få detta felmedelandet .. Lägg till en koll: Där du skrivit.... <b>något fel på loopningen..
ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/sweasp/gammal/forum_las.asp, line 0
och de får jag...
men jag har loopat men jag har troligtvis loopat fel . men nu lägger jjag hela koden här så få vi se om ni kan hjälpa mej med den ..
<code>
<!--#include file="settings.asp" -->
<html>
<head>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<BR>
<BR>
<center>
<%
'öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/forum/forum.mdb")
' öppnar tabellen där id är samma som det som skickades med
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblForum where id = "&request.QueryString("id")
rs.Open Addera, Connect, 3, 3
'Skapar en variabel
titel = rs("titel")
' frågar om vi ska spara ett svar
if request.QueryString("action") = "spara" then
' lägger till senaste svaret i trådens rad
rs("senaste") = now
rs.update
' skapar en ny rad i tabellen
rs.addnew
rs("namn") = request.form("namn")
rs("email") = request.form("email")
rs("med") = request.form("med")
rs("titel") = "sv: "&titel
rs("org") = "nej"
rs("svarpa") = request.QueryString("id")
rs("datum") = now
rs("IP") = Request.ServerVariables("REMOTE_ADDR")
rs.update
'stänger databasen efter oss
rs.close
connect.close
set rs = nothing
set connect = nothing
response.Redirect "default.asp?category=show&forum=1&id="&request.QueryString("id")
end if
%>
<!-- Här ska jag ändra för här är satsen som skriver ut det hela.. -->
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="130">
<tr>
<td width="290" height="19" bgcolor="#CCCCCC"><b><%=rs("titel")%></b></font></td>
</tr>
<tr>
<td width="290" height="90" bgcolor="#DFDFDF">
<%
While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%> </td>
</tr>
<tr>
<td width="290" height="19" bgcolor="#CCCCCC">"><%=rs("namn")%> | <%=rs("datum")%> | <%=rs("IP")%></td>
</tr>
</table>
<br>
<!-- Till hit.. -->
<%
' nu ska vi plocka fram alla svaren, om några finns
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM tblForum where svarpa = '"&request.QueryString("id")&"' order by id"
rs.Open Addera, Connect, 3, 3
'Räknar antalet svar
antal = rs.recordcount
%>
<!-- svar -->
Svar: <%=antal%> st
<br>
<%
if rs.eof then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="130">
<tr>
<td width="290" height="19" bgcolor="#CCCCCC"><b><%=rs("titel")%></b></font></td>
</tr>
<tr>
<td width="290" height="90" bgcolor="#DFDFDF">
<%
While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%> </td>
</tr>
<tr>
<td width="290" height="19" bgcolor="#CCCCCC">"><%=rs("namn")%> | <%=rs("datum")%> | <%=rs("IP")%></td>
</tr>
</table>
<%
else
%>
<%do until rs.eof %>
<!-- svar-->
<%
rs2.movenext
loop
%>
<script language="JavaScript">
<!--
function validate()
{
if (!document.form.namn.value.length) {
alert('Du måste ange ditt namn...');
return false;}
if (!document.form.med.value.length) {
alert('Du måste ange en text...');
return false;
}
//du kan lägga till fler if-satser
return true;
}
-->
</script>
<br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" height="228">
<tr>
<td bordercolor="#000000" bgcolor="#CCCCCC" height="19">
<p align="left"><b>
Svara på tråden...</font></b></td>
</tr>
<tr>
<td bgcolor="#DFDFDF" height="208">
<center>
<form name="form" method="post" action="default.asp?category=show&forum=1&action=spara&id=<%=request.QueryString("id")%>" onSubmit="return validate();">
Ditt namn:<br>
<input name="namn" type="text" size="50">
<br>
Min email:<br>
<input name="email" type="text" size="50">
<br>
Inlägg:<br>
<textarea name="med" cols="50" rows="10"></textarea>
<br>
<input type="submit" name="Submit" value="Skicka">
</form>
</center>
</td>
</tr>
</table>
<br>
<br>
Tillbaka
</center>
<BR>
<BR>
</body>
</html>
<%
rs.close
connect.close
set rs = nothing
set connect = nothing
end if
%>
</code>Sv: något fel på loopningen..
<code>
If rs.EOF Then
Respons.Write "Record not found!"
Else
'Kod som använder recordsetet
End If
</code>Sv: något fel på loopningen..
Detta:
<code> <%
While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%></code>
Ändra det till:
<code><%
Do While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%></code>Sv: något fel på loopningen..
Där du skrivit....
Detta:
<%
While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%>
Ändra det till:
<<%
Do While Not RS.EOF
Response.Write forumKod(RS("med")) & "<br>"
RS.MoveNext
Wend
%>
</b>
Näe, det första är allt riktigt, däremot är ditt fel... Har du en "Do While-loop" avslutas den med "Loop"
/Johan