BOF eller EOF fejl

Umiddelbart tror jeg fejlen er her:


  If Id = 0 Then


For hvis du ikke har valgt et ID vil variablen ikke være 0 men "" så prøv at rette den til:

  If Id = "" Then

Du kan evt prøve at den sidste else del med if not rs.EOF omkring sådan man ikke kan skrive et ID i adresse linjen og få fejlen:



<%
  Else
' ** Vis valgte nyhed
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")

if rs.EOF then
  Response.Write "FEJL ID'et passer ikke!"
else
%>

<center>

<table cellspacing=0 border=1 cellspacing="0" cellpadding="5" width=320>
<Form Action=admin/retnyhed.asp method="post">
<tr>
  <td colspan=2 height=20  width="310" class="green"><b>Ret Øveaften:</b>
  </td>
</tr>
<tr>
  <td width="64">Dato</td>
  <td align=right width="236"><input type="text" name="dato" size="32" value="<%=rs("dato")%>"></td>
</tr>

<tr>
  <td width="64">Overskrift</td>
  <td align=right width="236"><input type="text" name="overskrift" size="32" value="<%=rs("overskrift")%>"></td>
</tr>

<tr>
  <td width="64">Beskrivelse</td>
  <td align=right width="236"><textarea rows="12" name="beskrivelse" cols="28"><%=rs("beskrivelse")%></textarea></td>
</tr>

<tr>
  <td width="64">Emne</td>
  <td align=right width="236"><input type="text" name="emne" size="32" value="<%=rs("emne")%>"></td>
</tr>

<tr>
  <td colspan=2 width="310"><Div Align=right><Input type="submit" Value="Ret"></div>
  </td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</table>

<%
End If 'ny  end if
  End If
End If
%>

har du prøvet at erstatte
<%
  If (not rs.BOF) And (not rs.EOF) Then
    while not rs.eof
%>

med
do while not rs.BOF or rs.EOF

Eagleeye>> Det funger ikk

kan du uddybe?

yes.  jeg har fulgt dine eksempler. men den skriver

Fejltype:
ADODB.Field (0x80020009)
Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.
/web/wml/default.asp


Browsertype:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Side:
GET /web/wml/default.asp

Klokkeslæt:
27. juli 2004, 00:24:12


Yderligere oplysninger:
Microsoft Support

Du skal finde et sted hvor du bruger et recordset som ikke er pakket ind i enten et loop eller if sætning med rs.EOF

Er det hele koden?

det er min kode

<!-- #include file="../databaseforbindelse.asp" -->

<%
id = Request.Form ("id")
Tabelnavn = "kalender"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
sql="update kalender set dato=""" & testfejl(request.form("dato")) & """, overskrift=""" & testfejl(request.form("overskrift")) & """,  beskrivelse=""" & testfejl(request.form("beskrivelse")) & """, emne=""" & testfejl(request.form("emne")) & """  where id=" & request.form("id") 
conn.execute(sql)
  response.redirect "../default.asp?emne=admin"
Else
  Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
  If Id = "" Then
' ** Vis nyhedsliste
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " WHERE emne LIKE '%oeve'")
%>

<center>
<br>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
  <td ><b>Overskrift:</b></td>
  <td><b>Ret/Slet:</b>
  </td>
</tr>
<%
If (not rs.BOF) And (not rs.EOF) Then
    while not rs.eof
%>
<tr>
  <td class="menutxt"><%=rs("Overskrift")%>&nbsp;</td>
  <td class="menutxt"><a href="default.asp?emne=admin&emne2=ret&id=<%=rs("id")%>">Ret</a> / <a href="admin/sletny.asp?id=<%=rs("id")%>">Slet</a>
  </td>
</tr>
<%
      rs.movenext
    wend
  Else
    Response.Write "Ingen nyheder at rette"
  End If
%>
</table>


<%
  Else
' ** Vis valgte nyhed
  Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")

if rs.EOF then
  Response.Write "FEJL ID'et passer ikke!"
else
%>

<center>

<table cellspacing=0 border=1 cellspacing="0" cellpadding="5" width=320>
<Form Action=admin/test.asp method="post">
<tr>
  <td colspan=2 height=20  width="310" class="green"><b>Ret Øveaften:</b>
  </td>
</tr>
<tr>
  <td width="64">Dato</td>
  <td align=right width="236"><input type="text" name="dato" size="32" value="<%=rs("dato")%>"></td>
</tr>

<tr>
  <td width="64">Overskrift</td>
  <td align=right width="236"><input type="text" name="overskrift" size="32" value="<%=rs("overskrift")%>"></td>
</tr>

<tr>
  <td width="64">Beskrivelse</td>
  <td align=right width="236"><textarea rows="12" name="beskrivelse" cols="28"><%=rs("beskrivelse")%></textarea></td>
</tr>

<tr>
  <td width="64">Emne</td>
  <td align=right width="236"><input type="text" name="emne" size="32" value="<%=rs("emne")%>"></td>
</tr>

<tr>
  <td colspan=2 width="310"><Div Align=right><Input type="submit" Value="Ret"></div>
  </td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</table>

<%
End If 'ny  end if
  End If
End If
%>

Prøv at rette denne som jeg har visT:
if rs.EOF then

til både at havde BOF og EOF med, selvom jeg ikke er helt sikker på det flytter så meget:

if rs.EOF or rs.BOF then


Og du 100% sikker på du tester den nye fil?

If (not rs.BOF) And (not rs.EOF) Then
    while not rs.eof

skal rettes til ??

Det behøves ikke rettes for der skal BOF og EOF begge være false (recordset fyldt) for at komme ind i then delen.

jeg synes snart at have prøvet alt, men uden held

Hvornår får du fejlen? Bare når du åber siden eller?

Er du 100% sikker på du har uploadet eller lagt den nye fil rigtigt?
Jeg har prøvet den kode du har vist: 27/07-2004 00:41:50 og det giver ikke nogen fejl. Enten har du mere kode i din fil du ikke har vist eller kommer fejlen et andet sted.

Fejlen kommer i denne fil:  /web/wml/default.asp
Koden du har vist er vist: retoeve.asp

Eagleeye>> Nu fatter jeg ikke mere !!!

Jeg har prøvet at uploade mit website som jeg laver på en kammys webserver.

http://remo.lir.dk/wml

http://remo.lir.dk/wml/login.asp  så kommer du til admin siden koden er remo i bruger og pass.

klik på "ret øve aften"  og derefter på ret.

På min egen iis som jeg arbejder lokalt på får jeg denne fejl  Fejltype:
ADODB.Field (0x80020009)
Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.
/web/wml/default.asp

men på min kammys server funger det næsten, bare at der kommer html koder frem, i stedet for "ren tekst"  fatter MINUS

Er koden det samme som det du har vist i spørgsmålet?
For det er umiddelbart ikke ens tekster og placering af form felterne.

eagleeye det skulle jeg meget gerne mene

<!-- #include file="../databaseforbindelse.asp" -->

<%
id = Request.Form ("id")
Tabelnavn = "kalender"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
    sql="update kalender set dato=""" & testfejl(request.form("dato")) & """, overskrift=""" & testfejl(request.form("overskrift")) & """,  beskrivelse=""" & testfejl(request.form("beskrivelse")) & """, emne=""" & testfejl(request.form("emne")) & """  where id=" & request.form("id") 
    'conn.execute(sql)
      response.redirect "../default.asp?emne=admin"
Else
      Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
      If Id = "" Then
' ** Vis nyhedsliste
sql="Select * from " & Tabelnavn & " WHERE emne LIKE 'oeve%'"
        'Response.Write(sql)
          Set rs=Conn.Execute (sql)
%>

<center>
<br>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
  <td ><b>Overskrift:</b></td>
  <td><b>Ret/Slet:</b>
  </td>
</tr>
<%
if not (rs.bof or rs.eof) then
do while not rs.eof


%>

<tr>
  <td class="menutxt"><%=rs("Overskrift")%>&nbsp;</td>
  <td class="menutxt"><a href="default.asp?emne=admin&emne2=ret&id=<%=rs("id")%>">Ret</a> / <a href="admin/sletny.asp?id=<%=rs("id")%>">Slet</a>
  </td>
</tr>

<%
              rs.movenext
            loop
           
          Else
            Response.Write "Ingen nyheder at rette"
          End If
%>
</table>


<%
      Else
' ** Vis valgte nyhed
        sql="Select * from " & Tabelnavn & " Where id=" & Id & ""
        Response.Write(sql)
          Set rs=Conn.Execute (sql)

        if rs.EOF then
            Response.Write "FEJL ID'et passer ikke!"
        else
%>

<center>

<table cellspacing=0 border=1 cellspacing="0" cellpadding="5" width=320>
<Form Action=admin/test.asp method="post">
<tr>
  <td colspan=2 height=20  width="310" class="green"><b>Ret Øveaften:</b>
  </td>
</tr>
<tr>
  <td width="64">Dato</td>
  <td align=right width="236"><input type="text" name="dato" size="32" value="<%=rs("dato")%>"></td>
</tr>

<tr>
  <td width="64">Overskrift</td>
  <td align=right width="236"><input type="text" name="overskrift" size="32" value="<%=rs("overskrift")%>"></td>
</tr>

<tr>
  <td width="64">Beskrivelse</td>
  <td align=right width="236"><textarea rows="12" name="beskrivelse" cols="28"><%=rs("beskrivelse")%></textarea></td>
</tr>

<tr>
  <td width="64">Emne</td>
  <td align=right width="236"><input type="text" name="emne" size="32" value="<%=rs("emne")%>"></td>
</tr>

<tr>
  <td colspan=2 width="310"><Div Align=right><Input type="submit" Value="Ret"></div>
  </td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</table>

<%
        End If 'ny  end if
      End If
End If
%>

Det viker noget underligt? Hvis jeg skriver et andet id ekvis 3 og ikke 43 virker det fint. Hvad der er i kolonnerne for posten med ID=43?

Jeg kan ikke se den har udskrivet SQL sætnigen som du har fået den til i denne her:

' ** Vis valgte nyhed
        sql="Select * from " & Tabelnavn & " Where id=" & Id & ""
        Response.Write(sql)
          Set rs=Conn.Execute (sql)

Fejlen må være et andet sted end det du viser eller har du en post med
id=5522224345345345345345322222

Jeg ville forvendte teksten: "FEJL ID'et passer ikke!"

Hvis jeg tilføjer lidt tekst i id:
id=5522224345345345sfdgdsagdsfgds345345322222

Kommer denne fejl: Type mismatch: '[string: "5522224345345345sfdg"]'

/wml/admin/retnyhed.asp, line 16

og ud fra det kode du har vist er der ikke noget som kan give den fejl i linje 16 og selvom man tæller +/- et par linjer...

har du en mail adresse, så kan du se et screendump af min db, hvor den skulle hendte min ove data

Det nytter ikke noget, du må havde noget mere kode i default.asp end du viser:

1. Første form felt skal i følge koden være: "Dato"
  På siden du linjer til er det "Tekst" og det er slet ikke en gang i den viste kode.

2. min kommnetar: 30/07-2004 23:22:39

3. min kommentar: 30/07-2004 23:16:06


Jeg har prøvet det brudstykke af koden i en fil på min PC og der komme ikke så meget som en fejl. Skriver jeg forkert id skriver den: "FEJL ID'et passer ikke!"

okay, her er min default.asp


*************************

<%@ LANGUAGE = VBScript.Encode %>
<% Option Explicit %>
<% response.buffer = true %>
<% Session.LCID = 1030 %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- Dette website er kodet og designet af Remo Munk-Olesen -->

<html>
<head>
    <title>WEST MOUNTAIN LINEDANCERS</title>
    <link rel="stylesheet" type="text/css" href="css/wml.css">
</head>

<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" class="td_bg">

<%
  Dim Conn, DSN, emne, rs, Tabelnavn, STRDBNAVN, Sql, countnews, countlinks, countnb, mdrnu, mdrnutal, aarnu, I, x, strmappe, Query, id
' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("wml.mdb")
Conn.Open DSN
emne = request("emne")
%>   

<%
Sql="Select count (*) as antal from nyhed "
set countnews=conn.execute(sql)
%>

<%
Sql="Select count (*) as antal from link "
set countlinks=conn.execute(sql)
%>

<%
Sql="Select count (*) as antal from mailingliste "
set countnb=conn.execute(sql)
%>
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" >
<tr >
<td width="100%" height="15%" colspan="2">
<!-- top logo -->
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td width="20%" background="images/ny_kant.gif">&nbsp;</td>
<td  width="65%" align="right"><img src="images/ny_logo.gif"></td>
<td  width="15%" background="images/ny_kant.gif">&nbsp;</td>
</tr>
  <tr>
<td width="100%"  colspan="3" ><marquee><%=countnews("antal")%> nyheder |&nbsp;<%=countlinks("antal")%> links | <%=countnb("antal")%> tilmeldte nyhedsbrev</marquee></td>
</tr>

</table>
<!-- top logo slut -->
</td>
</tr>
<tr valign="top">
<td width="80%" height="70%">   
<% if emne = "" or emne = "velkom" then
emne = "velkom" %>
<!--#include file="start.asp" -->
<%end if%>

<% if emne="nyhed" then %>
<!--#include file="nyhed.asp" -->
<% end if %>

<% if emne="anyhed" then %>
<!--#include file="anyhed.asp" -->
<% end if %>

<% if emne="tmnb" then %>
<!--#include file="mailingliste.asp" -->
<% end if %>

<% if emne="ntak" then %>
<!--#include file="tak_nyhedsbr.asp" -->
<% end if %>

<% if emne="pic" then %>
<!--#include file="image_gallery.asp" -->
<% end if %>

<% if emne="kalender" then %>
<!--#include file="kalendervis.asp" -->
<% end if %>

<% if emne = "admin" then %>
<!--#include file="admin.asp" -->
<%end if%>


<% if emne = "link"  then %>
<!--#include file="links.asp" -->
<%end if%>

</td>

<td width="20%" ><!-- menu -->
<table border="1" width="100%" cellpadding="0" cellspacing="0" bordercolor="#000000">
<tr>
<td width="100%">
<!-- menu tabel begynder -->
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td width="5%" class="bar">&nbsp;<img src="images/news.gif" border="0"></td>
<td width="95%" class="bar" align="center">WML NYHEDER</td>
</tr>
<tr>
<td width="100%" class="bartxt" colspan="2" align="center"><MARQUEE onmouseover='this.stop();' onmouseout='this.start();' scrollamount='1' scrolldelay='75' top='0' left='0' width='150' height='50' direction="up">&nbsp;<!-- #include file="news.asp"--></MARQUEE></td>
</tr>
<tr>
<td width="5%" class="bar">&nbsp;<img src="images/news.gif" border="0"></td>
<td width="95%" class="bar" align="center">WML NYHEDSBERV</td>
</tr>
<tr>
<td width="100%" class="bartxt" colspan="2" align="center">>> <a href="default.asp?emne=tmnb">tilmeld</a> <<</td>
</tr>
<tr>
<td width="5%" class="bar">&nbsp;<img src="images/news.gif" border="0"></td>
<td width="95%" class="bar" align="center">WML Galleri</td>
</tr>
<tr>
<td width="100%" class="bartxt" align="center" colspan="2">>> <a href="default.asp?emne=pic">se billeder</a> <<</td>
</tr>
<tr>
<td width="5%" class="bar">&nbsp;<img src="images/news.gif" border="0"></td>
<td width="95%" class="bar" align="center">WVM KALENDER</td>
</tr>
<tr>
<td width="100%" class="bartxt" colspan="2" align="center">>><a href="default.asp?emne=kalender">se kalender</a> <<</td>
</tr>
<tr>
<td width="5%" class="bar">&nbsp;<img src="images/news.gif" border="0"></td>
<td width="95%" class="bar" align="center">WML LINKS</td>
</tr>
<tr>
<td width="100%" class="bartxt" colspan="2" align="center"><MARQUEE onmouseover='this.stop();' onmouseout='this.start();' scrollamount='1' scrolldelay='75' top='0' left='0' width='150' height='50' direction="up">&nbsp;<!-- #include file="url.asp"--></MARQUEE></td>
</tr>
<tr>
<td width="100%" class="bar" align="center" colspan="2"><a href="default.asp" target="_self">Tilbage til forside</a></td>
</tr>
</table>
<!-- menu tabel slutter -->

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

<tr>
<td width="100%" height="15%" colspan="2" background="images/bund.gif" class="bund" align="center">Copyright © 2004 WEST MOUNTAIN LINEDANCERS alle rettigheder forbeholdes</td>
</tr>
</td>
</tr>
</table>

</body>
</html>

*******************************'

Ok, og emne er lig "admin" så default.asp vil include admin.asp

Hvis jeg kigger på det link igen skriver den: Ret Nyhed, og ikke: Ret Øveaften, som man skulle tror ud fra koden. Noget kunne tyde på at den inde i admin.asp for emme2=ret kommer ind i nyheds filen og ikke filen som skal rette øvelse.

min admin.asp ser således ud.

***************************
<br>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="80%">

<table border="0" cellpadding="0" cellspacing="0" width="80%">
<tr>
<td width="80%" class="green" align="center">Velkommen til WML Adm. Modul</td>
</tr>
<tr>
<td width="80%">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%" align="left" class="menutxt"><br>
<ul>
<li><a href="default.asp?emne=admin&emne2=tilfn">Tilføj Nyhed</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retnyhed">Ret Nyhed</a></li><br>
<li><a href="default.asp?emne=admin&emne2=tilka">Tilføj til kalender</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retoeve">Ret Øveaften</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retarran">Ret Arrangement</a></li><br>
</ul>
</td>
<td width="50%" align="right" class="menutxt">
hejsa</td>
</tr>
<tr>
<td width="100%" class="menutxt" align="center" colspan="2"><hr></td>
<tr>
<td width="100%" class="menutxt" align="center" colspan="2">
<% if Trim(Request.QueryString("emne2")) = "tilfn" then %>
<!--#include file="admin/upnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retnyhed" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "ret" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "tilka" then %>
<!--#include file="kalender/kalenderopret.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retoeve" then %>
<!--#include file="admin/test.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retarran" then %>
<!--#include file="admin/retaran.asp" -->
<%end if%>

</td>
</tr>
<tr>
<td width="100%" class="menutxt" align="center">
</td>
</tr>
</table>

  </td>
</tr>
<tr>
<td width="80%" class="green" align="right"><hr></td>
</tr>
<tr>
<td width="80%" class="green" align="right">[<a href="default.asp?emne=velkom">Log af</a>]</td>
</tr>
</table>

  </td>
</tr>
</table>
</center>
********************************'

emme2=ret  så det vil sige den kommer i denne if sætning:

<% if Trim(Request.QueryString("emne2")) = "ret" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>

og den includre filen retnyhed.asp og ikke retoeve.asp. Så du skal nok prøve at rette den if sætningen så den includer den rigtige fil sådan her:

<% if Trim(Request.QueryString("emne2")) = "ret" then %>
<!--#include file="admin/retoeve.asp" -->
<%end if%>

Eagleeye >> <% if Trim(Request.QueryString("emne2")) = "retnyhed" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>
Henter alle nyheder ind.

<% if Trim(Request.QueryString("emne2")) = "ret" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>  gør det muligt at rette i retnyhederne.

Ok, så må du lave en ey if sætning med sig egen emme2 for at kunne rette i øve aften, man kan ikke bruge den samme til to forskellige ting.

Så tilføje en som denne til admin.asp:

<% if Trim(Request.QueryString("emne2")) = "retoeve" then %>
<!--#include file="admin/retoeve.asp" -->
<%end if%>


Du skal også huske at rette i koden til linket som er i retoeve.asp filen fra dette:
  <td class="menutxt"><a href="default.asp?emne=admin&emne2=ret&id=<%=rs("id")%>">Ret</a> / <a href="admin/sletny.asp?id=<%=rs("id")%>">Slet</a>

Til dette hvor emme2 passer med det som er i admin.asp:
  <td class="menutxt"><a href="default.asp?emne=admin&emne2=retoeve&id=<%=rs("id")%>">Ret</a> / <a href="admin/sletny.asp?id=<%=rs("id")%>">Slet</a>

Når du havde en retoeve som includer en test.asp fil. Så må du vælge et andet navn, hoved sagen er der er et navn til havde ting :)

hmm det er vist sent, sidste linje var ikke helt heldig.. Sidste del skulle være: hoved sagen er der er et navn til hver sin ting :)

Du må prøve at rode vidre med det jeg er nød til at smutte for i aften. Jeg er nok først tilbage i morgen eftermiddag eller aften.

Så var den der 1.0000.000 tak for hjælpen.

Ok :) og tak for point

God nat.

Det var bare denne line <a href="default.asp?emne=admin&emne2=retoeve&id=<%=rs("id")%>">Ret</a> som gjorde at det nu funger