27. juli 2004 - 10:05Der er
8 kommentarer og 1 løsning
If rs_billedserie.eof or rs_billedserie.bof then ?
Hej Eksperter
Burde dette ikke kunne lade sig gøre?
------------------------------------------------------------ Set rs_billedserie = Server.CreateObject("ADODB.RecordSet") rs_billedserie.open "Select * From [billedserie] WHERE navn = " & rs_film("id"), Conn If rs_billedserie.eof or rs_billedserie.bof then 'laver noget andet Else 'åbner en tabel hvor man skal bruge info fra rs_billedserie End If ------------------------------------------------------------ Får denne fejl: ------------------------------------------------------------ ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
filnavn.asp, line 0 ------------------------------------------------------------
Nej det er ikke det, for jeg henter det id tidligere, og det virker :o)
Prøver lige at skrive "hele" koden : ------------------------------------------------------------------------------------ <% Set rs_billedserie = Server.CreateObject("ADODB.RecordSet") rs_billedserie.open "Select * From [billedserie] WHERE navn = " & rs_anmeldelse("tilknyttet_id"), Conn If rs_billedserie.eof or rs_billedserie.bof then 'Åbner forbindelse til tabel med gamle billeder i = 0 Set rs_billeder = Server.CreateObject("ADODB.RecordSet") rs_billeder.open "Select * From [gamle_billeder] WHERE film_id = " & rs_film("id"), Conn do while not rs_billeder.eof i = i + 1 rs_billeder.MoveNext Loop Else 'Åbner forbindelse til tabel med nye billeder i = 0 Set rs_billeder = Server.CreateObject("ADODB.RecordSet") rs_billeder.open "Select * From [billeder] WHERE BilledSerieID = " & rs_billedserie("id"), Conn do while not rs_billeder.eof i = i + 1 rs_billeder.MoveNext Loop
End If %> ------------------------------------------------------------------------------------
Ups ------------------------------------------------------------------------------------ <% Set rs_billedserie = Server.CreateObject("ADODB.RecordSet") rs_billedserie.open "Select * From [billedserie] WHERE navn = " & rs_film("id"), Conn If rs_billedserie.eof or rs_billedserie.bof then 'Åbner forbindelse til tabel med gamle billeder i = 0 Set rs_billeder = Server.CreateObject("ADODB.RecordSet") rs_billeder.open "Select * From [gamle_billeder] WHERE film_id = " & rs_film("id"), Conn do while not rs_billeder.eof i = i + 1 rs_billeder.MoveNext Loop Else 'Åbner forbindelse til tabel med nye billeder i = 0 Set rs_billeder = Server.CreateObject("ADODB.RecordSet") rs_billeder.open "Select * From [billeder] WHERE BilledSerieID = " & rs_billedserie("id"), Conn do while not rs_billeder.eof i = i + 1 rs_billeder.MoveNext Loop
End If %> ------------------------------------------------------------------------------------
<%=rs_billeder("filnavn")%> kommer lige efter den anden kode - Og jeg har nok ikke et loop, når du siger det på den måde ;o) ------------------------------------------------------------------------------- 'Ovenstående kode....... i = i + 1 rs_billeder.MoveNext Loop End If %> <img border="0" src="pictures/film/<%=rs_film("id")%>/<%=rs_billeder("filnavn")%>" width="200" height="147"><br>(I alt <%=i%> billeder)
<% if not rs_billeder.EOF then %> <img border="0" src="pictures/film/<%=rs_film("id")%>/<%=rs_billeder("filnavn")%>" width="200" height="147"><br>(I alt <%=i%> billeder) <% end if %>
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.