fejl i koden ?

Hvad er fejlen?

ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/tag/default2.asp, line 0

den skriver det hele rigtigt.. men til sidst kommer der en fejl på siden...

http://www.dunai.dk/tag/default2.asp <-- du kan se scriptet aktivt der..

Lav det som et loop det er fordi du har eksvis et ulige antal records og så fejler den i en rs.movenext.

Så i stedet for dit kod eså prøv:


<% do while not rs.EOF %>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%><br><img src="prik.jpg" height="1" width="100%"><br>
</td>
</table>
  <%  RS.MoveNext
loop %>

hmm.. viser den så ikke kun 1 record fra db ? altså den laver jo ikke skiftevis med farve så - gør den ?

hmm.. synes stadig der kommer noget fejl ?

Den kommer med denne fejl nu:

Microsoft VBScript compilation error '800a0400'

Expected statement

/tag/default2.asp, line 52

end if
^

og koden er:

if rs.EOF then
Response.write "ingen tag's ligenu !"
else
Do Until rs.EOF
%>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%><br><img src="prik.jpg" height="1" width="100%"><br>
</td>
</table>
<% do while not rs.EOF %>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%><br><img src="prik.jpg" height="1" width="100%"><br>
</td>
</table>
  <%  RS.MoveNext
Loop
End If

Conn.Close
Set Conn = Nothing%>

Sådan ser koden ud nu:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "ingen tag's ligenu !"
else
do while not rs.EOF %>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<% rs.movenext %>
<table border="0" width="100%" height="0" bgcolor="#FFFFFF">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<%Rs.movenext
Loop
end if

Conn.Close
Set Conn = Nothing%>



Men jeg får stadig denne fej:

ADODB.Field error '80020009'

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

/tag/default2.asp, line 0

du har 2 .movenext i hver gennemkørsel af løkken - derfor vil du altid få en EOF-fejl.

hvilken skal så væk ?

hvis jeg fjerner nogen af dem viser den det jo også forkert ? altså der kommer godt nok ingen fejl hvis jeg fjerner den første, men så skriver den altså outputs 2 gange..?!

En mulig løsning:

1) Fjern den ene "udskriftsdel".
2) Inden gennemløbet sætter du en variabel (f.eks. counter) til 0)
3) Inde i gennemløbet gøres følgende:

  1) Check om counter er 0
  2) hvis ja skriv ud med farve 1 og sæt counter til 1
  3) hvis nej skriv ud med farve 2 og sæt counter tilbage til 0

På den måde vil farverne skiftes, og du får kun hver række ud 1 gang.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "ingen tag's ligenu !"
else
do while not rs.EOF %>
<table border="0" width="100%" height="0" bgcolor="#EEEEEE">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<% rs.movenext
if not rs.eof then
%>
<table border="0" width="100%" height="0" bgcolor="#FFFFFF">
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<%Rs.movenext
end if
Loop
end if

Conn.Close
Set Conn = Nothing%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "ingen tag's ligenu !"
else
counter = 0
do while not rs.EOF

if counter = 0 then
  farve="#EEEEEE"
else
  farve = "#FFFFFF"
end if %>
<table border="0" width="100%" height="0" bgcolor=<%=farve%>>
<td>
<b><%=RS("Dato")%> | <A HREF="mailto:<%=RS("Email")%>"><%=RS("Navn")%></A></b><br>
<%=RS("Besked")%>
</td>
</table>
<%
counter = not(counter)
rs.movenext
Loop
end if

Conn.Close
Set Conn = Nothing%>