Hjælp til "BOF or EOF"-problem
Hej..Jeg sidder og roder med nogle koder som jeg ændre lidt i, da jeg ikke et hardcore programmør og selv starter helt hundrede fra bunden. Jeg her en kode fra en side jeg har lavet herunder, men når jeg vil opdatere profilen fra Access-dabatasen (som er hentet frem i siden/koden herunder vises følgende fejl:
ADODB.Recordset error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/timeline_edit.asp, line 18
Kan I hjælpe??
Her følger koden for hele siden:
--------------------------------------------
<!-- #include file = "meny.asp" -->
<table width="750" border="0" align="center" cellpadding="0" cellspacing="1" class="roundTabel">
<tr>
<td height="20" class="topTabel"><div align="center"><strong><font size="2">[ÆNDRE PROFIL] </font></strong></div></td>
</tr>
<tr>
<td class="mainTabel">
<form name="form1" method="post" action="timeline_edit.asp?action=spara">
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databas/timeline.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM timeline where id='"&request.querystring("id")&"'"
rs.Open Addera, Connect, 3, 3
if request.querystring("action")="spara" then
rs("projekt")=request.form("projekt")
rs("programtype")=request.form("programtype")
rs("aftalt")=request.form("aftalt")
rs("optagedag")=request.form("optagedag")
rs("deadline")=request.form("deadline")
rs("broadcast")=request.form("broadcast")
rs("ambizz")=request.form("ambizz")
rs("kontaktet")=request.form("kontaktet")
rs("optaget")=request.form("optaget")
rs("klippet")=request.form("klippet")
rs("klar")=request.form("klar")
rs("producent")=request.form("producent")
rs("redaktor")=request.form("redaktor")
rs("journalist")=request.form("journalist")
rs("foto")=request.form("foto")
rs("klip")=request.form("klip")
rs("viptak")=request.form("viptak")
rs("bemaerk")=request.form("bemaerk")
if request.form("bild")&"" = "" then
rs("bild")=request.form("radiobutton")
else
rs("bild")=request.form("bild")
end if
rs("farg")=request.form("farg")
rs.update
response.Redirect "timeline_edit.asp"
end if
%>
<div align="center">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="body3">
<td height="20" colspan="6"><div align="center"><strong>REDIGÉR EN PRODUKTION </strong></div></td>
</tr>
<tr>
<td width="100" height="30"><strong>Projektnavn:</strong></td>
<td height="30" colspan="5"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="projekt" type="text" class="infoBoxBg" value="<%=rs("projekt")%>" size="40">
</font></font> </font></span></span></td>
</tr>
<tr>
<td width="100" height="30"><strong>Programtype:</strong></td>
<td height="30" colspan="5"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="programtype" type="text" class="infoBoxBg" id="programtype3" value="<%=rs("programtype")%>" size="40">
</font></font> </font></span></span></td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr class="body3">
<td width="100" height="20"><strong>Datoer:</strong></td>
<td width="100" height="20"><div align="center"><strong>Aftalt</strong></div></td>
<td width="100" height="20"><div align="center"><strong>Optagedag</strong></div></td>
<td width="100" height="20"><div align="center"><strong>Deadline</strong></div></td>
<td width="100" height="20"><div align="center"><strong>Broadcast</strong></div></td>
<td width="100" height="20"><div align="center"></div></td>
</tr>
<tr>
<td width="100" height="30"> </td>
<td width="100" height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="aftalt" type="text" class="infoBoxBg" id="aftalt4" value="<%=rs("aftalt")%>" size="10">
</font></font></font></font></font> </font></font></font></font></font></span></span> </div></td>
<td width="100" height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="optagedag" type="text" class="infoBoxBg" id="optagedag5" value="<%=rs("optagedag")%>" size="10">
</font></font></font></font></font></font></font></font></font></font></font></font></font> </font></font></font></font></font></span></span> </div></td>
<td width="100" height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="deadline" type="text" class="infoBoxBg" id="deadline5" value="<%=rs("deadline")%>" size="10">
</font></font></font></font></font> </font></font></font></font></font></font></font></font> </font></font></font></font></font></span></span> </div></td>
<td width="100" height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="broadcast" type="text" class="infoBoxBg" id="broadcast5" value="<%=rs("broadcast")%>" size="10">
</font></font></font></font></font> </font></font></font></font></font></span></span> </div></td>
<td width="100" height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"> </font></font></font></font></font></span></span> </div></td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr class="body3">
<td height="20"><strong>Status:</strong></td>
<td height="20"><div align="center"><strong>Ambizz</strong></div></td>
<td height="20"><div align="center"><strong>Kontaktet</strong></div></td>
<td height="20"><div align="center"><strong>Optaget</strong></div></td>
<td height="20"><div align="center"><strong>Klippet</strong></div></td>
<td height="20"><div align="center"><strong>Klar</strong></div></td>
</tr>
<tr>
<td height="30"> </td>
<td height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<select name="ambizz" size="1" class="infoBoxBg" id="select6">
<option value="Ja" <%If (Not isNull(rs("ambizz"))) Then If ("Ja" = CStr(rs("ambizz"))) Then Response.Write("SELECTED") : Response.Write("")%>>Ja</option>
<option value="Nej" <%If (Not isNull(rs("ambizz"))) Then If ("Nej" = CStr(rs("ambizz"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nej</option>
</select>
</font></font></font></font> </font></span></span></div></td>
<td height="30"><div align="center">
<select name="kontaktet" size="1" class="infoBoxBg" id="select7">
<option value="Ja" <%If (Not isNull(rs("kontaktet"))) Then If ("Ja" = CStr(rs("kontaktet"))) Then Response.Write("SELECTED") : Response.Write("")%>>Ja</option>
<option value="Nej" <%If (Not isNull(rs("kontaktet"))) Then If ("Nej" = CStr(rs("kontaktet"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nej</option>
</select>
</div></td>
<td height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"> <font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<select name="optaget" size="1" class="infoBoxBg" id="select8">
<option value="Ja" <%If (Not isNull(rs("optaget"))) Then If ("Ja" = CStr(rs("optaget"))) Then Response.Write("SELECTED") : Response.Write("")%>>Ja</option>
<option value="Nej" <%If (Not isNull(rs("optaget"))) Then If ("Nej" = CStr(rs("optaget"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nej</option>
</select>
</font></font></font></font> </font></font></font> </font></span></span></div></td>
<td height="30"><div align="center">
<select name="klippet" size="1" class="infoBoxBg" id="select9">
<option value="Ja" <%If (Not isNull(rs("klippet"))) Then If ("Ja" = CStr(rs("klippet"))) Then Response.Write("SELECTED") : Response.Write("")%>>Ja</option>
<option value="Nej" <%If (Not isNull(rs("klippet"))) Then If ("Nej" = CStr(rs("klippet"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nej</option>
</select>
</div></td>
<td height="30"><div align="center"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<select name="klar" size="1" class="infoBoxBg" id="select10">
<option value="Ja" <%If (Not isNull(rs("klar"))) Then If ("Ja" = CStr(rs("klar"))) Then Response.Write("SELECTED") : Response.Write("")%>>Ja</option>
<option value="Nej" <%If (Not isNull(rs("klar"))) Then If ("Nej" = CStr(rs("klar"))) Then Response.Write("SELECTED") : Response.Write("")%>>Nej</option>
</select>
</font></font></font> </font></span></span></div></td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr class="body3">
<td width="100" height="20"><strong>Crew:</strong></td>
<td width="100" height="20"> </td>
<td width="100" height="20"> </td>
<td width="100" height="20"> </td>
<td width="100" height="20"> </td>
<td width="100" height="20"> </td>
</tr>
<tr>
<td width="100" height="30"><strong>Producent:</strong></td>
<td height="30" colspan="2"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="producent" type="text" class="infoBoxBg" id="producent4" value="<%=rs("producent")%>">
</font></font></font></font></span></span><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"> </font></font></font> </font></span></span></td>
<td height="30"><strong>Fotograf:</strong></td>
<td height="30" colspan="2"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="foto" type="text" class="infoBoxBg" id="foto3" value="<%=rs("foto")%>">
</font></font></font> </font></span></span></td>
</tr>
<tr>
<td width="100" height="30"><strong>Redaktør:</strong></td>
<td height="30" colspan="2"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="redaktor" type="text" class="infoBoxBg" id="redaktor4" value="<%=rs("redaktor")%>">
</font></font></font></font></span></span><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"> </font></font></font> </font></span></span></td>
<td height="30"><strong>Klipper:</strong></td>
<td height="30" colspan="2"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="klip" type="text" class="infoBoxBg" id="klip3" value="<%=rs("klip")%>">
</font></font></font> </font></span></span></td>
</tr>
<tr>
<td height="30"><strong>Journalist:</strong></td>
<td height="30" colspan="2"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<input name="journalist" type="text" class="infoBoxBg" id="journalist4" value="<%=rs("journalist")%>">
</font></font></font></font></span></span><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1"> </font></font></font> </font></span></span></td>
<td height="30"> </td>
<td height="30" colspan="2"> </td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr>
<td height="30" valign="top"><strong>Takkeliste:</strong></td>
<td height="30" colspan="5"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<textarea name="viptak" cols="70" rows="10" class="infoBoxBg" id="viptak3"><%=rs("viptak")%></textarea>
</font></font> </font></span></span></td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr>
<td height="30" valign="top"><strong>Notater:</strong></td>
<td height="30" colspan="5"><span class="fontOK"><span class="style4"><font face="Verdana" size="-1"><font face="Verdana" size="-1"><font face="Verdana" size="-1">
<textarea name="bemaerk" cols="70" rows="10" class="infoBoxBg" id="bemaerk3"><%=rs("bemaerk")%></textarea>
</font></font> </font></span></span></td>
</tr>
<tr>
<td height="10" colspan="6"> </td>
</tr>
<tr>
<td height="30"> </td>
<td height="30" colspan="5"><input name="Submit" type="submit" class="inputKnap" value="Gem ændringer"></td>
</tr>
</table>
</div>
</form>
<a href="timeline.asp">Tilbage til oversigten </a><br> </td>
</tr>
</table>
<br>
<br>
<!-- #include file = "under.asp" -->
---------------------------------------------------------
