Vad är felet? Tycker att allt ser bra ut.

ADODB.Field error '80020009'

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

/muffinman/db/Acomunity/read_message.asp, line 0


<!-- # include file="adovbs.inc" -->
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/messages.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From messages Where tillID = " &Request.QueryString("readID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<table width="430" cellspacing="0" align="top" valign="top">
<tr>
<td height="15" width="430" background="http://www21.brinkster.com/muffinman/db/Acomunity/images/tables/Top_Main.gif" align="middle"><font color="#ffffff"><b><%=RecSet("rubrik")%></b></font>
</tr>
<tr>
<td height="284" width="430" class="boxlook" valign="top">
<%=RecSet("text")%>
<tr>
<%
RecSet.Close
Connect.Close
%>
</table>

Det finns ingen post med det ID du har angett, du måste kontrollera det:

<code>
<!-- # include file="adovbs.inc" -->
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/messages.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From messages Where tillID = " &Request.QueryString("readID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
If Not RecSet.EOF Then
%>

<table width="430" cellspacing="0" align="top" valign="top">
<tr>
<td height="15" width="430" background="http://www21.brinkster.com/muffinman/db/Acomunity/images/tables/Top_Main.gif" align="middle"><font color="#ffffff"><%=RecSet("rubrik")%></font>
</tr>
<tr>
<td height="284" width="430" class="boxlook" valign="top">
<%=RecSet("text")%>
<tr>
<%
End If
RecSet.Close
Connect.Close
%>
</table>
</code>

/Johan

Får det här felmedelandet nu

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/muffinman/db/Acomunity/read_message.asp, line

Testa:
<code>
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<%
Dim RecSet
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("db/messages.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM messages WHERE tillID = " & Request.QueryString("readID"), Connect

If RecSet.EOF Then
Response.Write "<H5>Posten ej funnen!</H5>"
Else
%>
<table width="430" cellspacing="0" align="top" valign="top">
<tr>
<td height="15" width="430" background="http://www21.brinkster.com/muffinman/db/Acomunity/images/tables/Top_Main.gif" align="middle"><font color="#ffffff"><%=RecSet("rubrik")%></font>
</tr>
<tr>
<td height="284" width="430" class="boxlook" valign="top">
<%=RecSet("text")%>
<tr>
<%
End If

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
%>
</table>
</code>