Either BOF or EOF is True fejl
For denne fejl når db er tom:ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/newsite/aegtepar/email/index.asp, line 0
Har denne i mit script, men den ser ikke ud til at slå igennem:
<%If RecSet.EOF Then%>
<tr>
<td colspan="2" class="copy">Ingen nyheder lagt ind.</td>
</tr>
<tr>
<td height="5" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<%Else
Min kode ser således ud:
<%
session.lcid = 1030
%>
<%'***************** DB oplysninger*****************
db1 = ("sambo.mdb")
inknamnet = "index.asp"
db = ("sambo.mdb")
sidnamn = "index.asp"
mappen = ""
Const perSida = 5
'************************SLUT***************************%>
<html>
<head>
<title>Nyheter</title>
<link rel="stylesheet" href="stil.css" type="text/css">
<!--#Include file="link.asp"-->
</head>
<body>
<%If Request.QueryString("do") = "" Then%>
<table cellpadding="3" cellspacing="0" width="480">
<%Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db1
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
With RecSet
.CursorLocation = 3
.CacheSize = perSida
End With
If CStr(Request.QueryString("id")) <> "" Then
SQL = "SELECT * FROM nyheder Where id=" & Request.QueryString("id")
Else
SQL = "SELECT * FROM nyheder ORDER BY DATO DESC"
End If
RecSet.Open SQL, Conn%>
<tr>
<td height="5" colspan="2" class="copy">
<p align="right"><img border="0" src="../../image/back_pil.gif"> <a href="java script:history.go(-1)" target="_self">Tilbage</a></p>
</td>
</tr>
<tr>
<td height="5" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<tr bgcolor="<%=Color%>">
<td height="14" bgcolor="#6B6B63" class="rammetopBold"><font color="#FFFFFF"><b><%=RecSet("overskrift")%></b></font></td>
<td height="14" align="right" bgcolor="#6B6B63" class="rammetopBold"><font color="#FFFFFF"><%=FormatDateTime(RecSet("dato"),2)%></font></td>
</tr>
<tr bgcolor="<%=Color%>">
<td class="copy" colspan="2" bgcolor="#E8E8DE"><br><%=FixaLankar(Server.HTMLEncode(RecSet("tekst")))%>
<br><font color="#AA0000"><br>Forfattet af: </font> <b><%=RecSet("skribent")%></b><br><br>
</td>
</tr>
<%If RecSet.EOF Then%>
<tr>
<td colspan="2" class="copy">Ingen nyheder lagt ind.</td>
</tr>
<tr>
<td height="5" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<%Else
RecSet.Close
SQL = "SELECT * FROM nyheder ORDER BY DATO DESC"
RecSet.Open SQL, Conn
With RecSet
.MoveFirst
.PageSize = perSida
.AbsolutePage = sida
End With
Sidor = RecSet.PageCount%>
<tr>
<td height="5" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<tr>
<td bgcolor="#6B6B63" class="rammetopBold"><font color="#FFFFFF"><b>Alle Nyheder</b></font></td>
<td bgcolor="#6B6B63" class="rammetopBold"><p align="center"><font color="#FFFFFF"> Dato</font></td>
</tr>
<tr>
<td height="5" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<%Count = 0
Do While Not RecSet.EOF And Count < RecSet.PageSize
X = X + 1
If X Mod 2 = 0 then
color = ""
Else
color = "#E8E8DE"
End If %>
<tr bgcolor="<%=Color%>">
<%If Request.QueryString("sida") = "" Then%>
<td height="14" class="copy"><a href="<%=mappen%><%=inknamnet%>?id=<%=RecSet("id")%>"><%=RecSet("overskrift")%></a></td>
<td height="14">
<p align="right"><%=FormatDateTime(RecSet("dato"),2)%></p>
</td>
<%Else%>
<td height="14">
<a href="<%=mappen%><%=inknamnet%>?sida=<%=Request.QueryString("sida")%>&id=<%=RecSet("id")%>"><%=RecSet("overskrift")%></a>
</td>
<td height="14">
<p align="right"><%=FormatDateTime(RecSet("dato"),2)%></p>
</td>
<%End If%>
</tr>
<%Count = Count + 1
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = nothing
End If%>
<%If Sidor > 1 Then%>
<tr>
<td height="10" colspan="2" class="copy">
<hr size="1" color="#AA0000">
</td>
</tr>
<tr>
<td colspan="2" class="copy"><b><%If Sidor > 1 Then%>Side »<%Else%><%End If%>
<%If Sidor <> 1 Then
For Sid = 1 To Sidor
If (Int(Sid)) = (Int(sida)) Then%><font color="#000000"><%=Sid%></font><%Else%> <a href="<%=inknamnet%>?sida=<%=Sid%>"><%=Sid%></a> <%End If
Next
End If%><%end if%><%end if%></b>
</td>
</tr>
</table>
</body>
