Notifikationer

Markér alle som læst Log ud

zantiago Nybegynder

14. september 2004 - 10:39 Der er 11 kommentarer og
1 løsning

rs.movenext fejl

Hej Eksperter

Jeg er ved at lave et lille loop i min database.

Den melder fejl når der er et ulige antal poster i tabellen - Så jeg har prøvet noget mærkeligt i bunden, som I nok kan se, men kan ikke få det til at virke :o(

-----------------------------------------------------------------
<%
Set rs_interview = Server.CreateObject("ADODB.RecordSet")
rs_interview.open "Select * From [interviews] order by id desc", Conn
Do while not rs_interview.eof
%>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br>
 </td>
<%
rs_interview.MoveNext
if not rs_interview.eof then
%>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br></td>
<% else %>
<td width="17%" valign="top"></td>
<td width="33%" valign="top"></td>
<% End If %>
</tr>
<tr>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
</tr>
<%
rs_interview.MoveNext
Loop
%>
</table>
-----------------------------------------------------------------

Kan I hjælpe?

Z!

Synes godt om

ldanielsen Nybegynder

14. september 2004 - 10:57 #1

Hvilken fejl får du?

Synes godt om

zantiago Nybegynder

14. september 2004 - 10:59 #2

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

interviews.asp, line 79

Synes godt om

medions Nybegynder

14. september 2004 - 11:22 #3

<%
Set rs_interview = Server.CreateObject("ADODB.RecordSet")
rs_interview.open "Select * From [interviews] order by id desc", Conn
if not rs_interview.eof then
Do while not rs_interview.eof
%>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br>
 </td>
<%

%>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br></td>
<% else %>
<td width="17%" valign="top"></td>
<td width="33%" valign="top"></td>
</tr>
<tr>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
</tr>
<%
rs_interview.MoveNext
Loop
End If
%>
</table>

Det er fordi forspørglsen er tom!

//>Rune

Synes godt om

zantiago Nybegynder

14. september 2004 - 11:28 #4

Rune: Jeg ved godt at den er tom!

Men det du nu har lavet, så hopper den jo ikke videre til næste post.

Det er fordi jeg har to poster på samme linje i tabellen (altså html, ik database).

det var derfor jeg havde lavet et movenext.

Synes godt om

zantiago Nybegynder

14. september 2004 - 11:30 #5

se her: http://www.zantiago.com/comedyonline/public_html/interviews.asp

Synes godt om

ldanielsen Nybegynder

14. september 2004 - 12:26 #6

Brug evt en exit do:

-----------------------------------------------------------------
<%
Set rs_interview = Server.CreateObject("ADODB.RecordSet")
rs_interview.open "Select * From [interviews] order by id desc", Conn
Do while not rs_interview.eof
%>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br>
 </td>
<%
rs_interview.MoveNext
if rs_interview.eof then
%><td></td></tr></table>
<%
exit do
else%>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br></td>
<% else %>
<td width="17%" valign="top"></td>
<td width="33%" valign="top"></td>
<% End If %>
</tr>
<tr>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
</tr>
<%
rs_interview.MoveNext
Loop
%>
</table>

Synes godt om

ldanielsen Nybegynder

14. september 2004 - 12:28 #7

<td></td></tr></table>

- er det ikke det der skal til for at forlade tabelen korrekt efter et ulige antal? check det lige selv, ok?

Synes godt om

zantiago Nybegynder

14. september 2004 - 12:33 #8

Microsoft VBScript compilation error '800a03f6'

Expected 'End'
interviews.asp, line 70

else
^

Synes godt om

zantiago Nybegynder

14. september 2004 - 12:37 #9

Nu virker det:
------------------------------------------------------------------------------------
<%
Set rs_interview = Server.CreateObject("ADODB.RecordSet")
rs_interview.open "Select * From [interviews] order by id desc", Conn
Do while not rs_interview.eof
%>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br></td>
<%
rs_interview.MoveNext
if rs_interview.eof then
%>
<td></td>
<%
exit do
else
%>
<td width="17%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><img border="1" src="images/interviews/<%=rs_interview("id")%>.jpg" width="70" height="50" style="border: 1px solid #FEA51C"></a></td>
<td width="33%" valign="top"><a class="txt_3" href="interview.asp?id=<%=rs_interview("id")%>"><%=rs_interview("titel")%></a><br></td>

</tr>
<% End If %>
<tr>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
<td width="17%" valign="top"> </td>
<td width="33%" valign="top"> </td>
</tr>

<%
rs_interview.MoveNext
Loop
%>
</table>
-----------------------------------------------------------------------------------
Skulle lige rettes lidt til - Men Idanielsen, du har fortjent point :o)

Synes godt om

ldanielsen Nybegynder

14. september 2004 - 12:42 #10

tak for det, jeg finder lige noget til dig ...

Synes godt om

ldanielsen Nybegynder

14. september 2004 - 12:49 #11

Denne model bruger jeg altid, så slipper du for at gentage så meget af koden:

<table>
<%
if not Rec.BOF then
counter = 0
antalSpalter = 2
do while not Rec.EOF
if Counter Mod antalSpalter = 0 then Response.Write("<tr>")
Response.Write("<td>" & Rec("Indhold") & "</td>")
Counter = Counter + 1
if Counter Mod antalSpalter = 0 then Response.Write("</tr>")
Rec.MoveNext
loop

if Mod antalSpalter > 0 then
do while Counter Mod antalSpalter > 0
Response.Write("<td>(tom)</td>")
Counter = Counter + 1
loop
Response.Write("</tr>")
end if
end if%>
</table>

Synes godt om

zantiago Nybegynder

14. september 2004 - 12:51 #12

Cool thanx :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS