Går i fejl når databasen er tom.
Jeg har en eyecatcher der der går i fejl når dtabasen er tom. Jeg havde tænkt at hvis der ikke var noget i databasen skulle den bare skrive teksten ud i if sætningen, men jeg får en fejl meddelelse. Hvorfro det.Her kommer koden.
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/db.mdb")
strSQL= "SELECT * FROM tbleyecatcher"
Set rs = Conn.Execute(strSQL)
If NOT RS.EOF Then
DO WHILE NOT RS.EOF
eyecatcherTekst = rs("eyecatcherTekst")
%>
<%=eyecatcherTekst%>
<%
response.write " "
rs.MoveNext
LOOP
Else
response.write "Kig ind for nyheder"
END If
Conn.Close
Set Conn=Nothing %>
Fejl meddelelsen ser sådan ud.
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/index.asp, line 99
