While wend lykke driller

<%
while not filRS.Eof
  if isNull(filRS("emnertekst")) then
response.write("der er ingen tekst")
else
    response.write "<br>" & filRS("emnertekst")
response.write "<br>" & filRS("emnerbruger")
response.write "<br>" & filRS("emnerdato")
    filRS.MoveNext

wend
end if
%>

//>Rune

Men prøv lige at forklar præcist hvad du vil ha' den til!

Jeg formår du vil have flg. løsning:

Hvis ikke recordsettet er tomt, så udskriv alle posterne, er dette korrekt?

//>Rune

<%
if not (objRs.BOF Or objRs.EOF) Then
response.write("der er ingen tekst")
else
while not filRS.Eof
    response.write "<br>" & filRS("emnertekst")
response.write "<br>" & filRS("emnerbruger")
response.write "<br>" & filRS("emnerdato")
    filRS.MoveNext()

wend
End If
%>

//>Rune

Hov, undskyld, det skulle være sådan her så:

<%
if not (objRs.BOF And objRs.EOF) Then
response.write("der er ingen tekst")
else
while not filRS.Eof
    response.write "<br>" & filRS("emnertekst")
response.write "<br>" & filRS("emnerbruger")
response.write "<br>" & filRS("emnerdato")
    filRS.MoveNext()

wend
End If
%>

//>Rune

Det var sq da utroligt! *G* Sådan her skal det være:

<%
if (objRs.BOF And objRs.EOF) Then
response.write("der er ingen tekst")
else
while not filRS.Eof
    response.write "<br>" & filRS("emnertekst")
response.write "<br>" & filRS("emnerbruger")
response.write "<br>" & filRS("emnerdato")
    filRS.MoveNext()

wend
End If
%>

//>Rune

http://bkhansen.dk/test/vis-musik.asp?filID=4

Det vil den ikke ...

Hvike en af dem har du prøvet? Har du prøvet den her?

<%
if (objRs.BOF And objRs.EOF) Then
response.write("der er ingen tekst")
else
while not filRS.Eof
    response.write "<br>" & filRS("emnertekst")
response.write "<br>" & filRS("emnerbruger")
response.write "<br>" & filRS("emnerdato")
    filRS.MoveNext()

wend
End If
%>

//>Rune

Virker heller ikke ...
Den her er tæt på at virke:

<% 
while not filRS.eof OR filRS.bof 
      if Not isNull(filRS("emnertekst")) then 
          response.write "<br>" & filRS("emnertekst") 
      end if 
      if Not isNull(filRS("emnerbruger")) then 
          response.write "<br>" & filRS("emnerbruger") 
      end if 
      if Not isNull(filRS("emnerdato")) then 
          response.write "<br>" & filRS("emnerdato") 
      end if 
      filRS.MoveNext 
wend 
%>

Når der IKKE findes en tekst skriver den:
ADODB.Field error '80020009'

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

/test/vis-musik.asp, line 0


Ellers virker det upåklageligt

Ok så gør du bare sådan her:

<% 
If Not (filRS.eof And filRS.BOF) Then
while not filRS.eof OR filRS.bof 
      if Not isNull(filRS("emnertekst")) then 
          response.write "<br>" & filRS("emnertekst") 
      end if 
      if Not isNull(filRS("emnerbruger")) then 
          response.write "<br>" & filRS("emnerbruger") 
      end if 
      if Not isNull(filRS("emnerdato")) then 
          response.write "<br>" & filRS("emnerdato") 
      end if 
      filRS.MoveNext 
wend 
Else
    Response.Write("Der blev ikke fundet nogen record!")
End If
%>

//>Rune

ADODB.Field error '80020009'

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

/test/vis-musik.asp, line 0
ADODB.Field error '80020009'

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

/test/vis-musik.asp, line 0


Stadig samme fejl .. men kun der hvor der ingen tekst er

Hele filen kan hentes her:
www.bkhansen.dk/test/1.zip

Sådan ser ASp'en ud i filen.

<%
Dim Conn, MyConnection, MySQL, filRS
Set Conn = Server.CreateObject("ADODB.connection")
Set filRS = Server.CreateObject("ADODB.Recordset")

MyConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("yp.mdb")
Conn.Open MyConnection

MySQL = "select emner.bruger as emnerbruger, emner.dato as emnerdato, emner.tekst as emnertekst, filer.filnavn as filerfilnavn, filer.kommentar as filerkommentar, filer.fil as filerfil FROM emner, filer WHERE filer.kategoriid=" & Request.QueryString("filID") & " AND emner.tekstId=" & Request.Querystring("filID")
filRS.Open MySQL, Conn, 3, 3, 1
%>

<p align="justify" class="Nyhed">
      Filnavn: <%response.write(filRS("filerfilnavn"))%><br>
      Brugers kommentar: <%response.write(filRS("filerkommentar"))%><br>
                                  <embed src="<%response.write(FilRS("filerfil"))%>" width="164" height="151"></embed>
                                  <br>
Indl&aelig;g:<br>
<% 
while not filRS.eof OR filRS.bof 
      if Not isNull(filRS("emnertekst")) and filRS("emnertekst")<>"" then 
          response.write "<br>" & filRS("emnertekst") 
      end if 
      if Not isNull(filRS("emnerbruger")) and filRS("emnerbruger")<>""  then 
          response.write "<br>" & filRS("emnerbruger") 
      end if 
      if Not isNull(filRS("emnerdato")) and filRS("emnerdato")<>""  then 
          response.write "<br>" & filRS("emnerdato") 
      end if 
      filRS.MoveNext 
wend 
%>

Databasen kan hentes her:
www.bkhansen.dk/test/yp.mdb

If Not (filRS.eof or filRS.BOF) Then
%>
<p align="justify" class="Nyhed">
Filnavn: <%if Not isNull(filRS("filerfilnavn")) then response.write(filRS("filerfilnavn")) end if%><br>
Brugers kommentar: <%if Not isNull(filRS("filerkommentar")) then response.write(filRS("filerkommentar")) end if%><br>
<embed src="<%if Not isNull(filRS("filerfil")) then response.write(filRS("filerfil")) end if%>" width="164" height="151"></embed>
<br>
Indl&aelig;g:<br>
<% 
while not filRS.eof OR filRS.bof 
      if Not isNull(filRS("emnertekst")) then 
          response.write "<br>" & filRS("emnertekst") 
      end if 
      if Not isNull(filRS("emnerbruger")) then 
          response.write "<br>" & filRS("emnerbruger") 
      end if 
      if Not isNull(filRS("emnerdato")) then 
          response.write "<br>" & filRS("emnerdato") 
      end if 
      filRS.MoveNext 
wend 
Else
    Response.Write("Der blev ikke fundet nogen record!")
End If

Det fra mm12010 virker ... men -
problemet er nu at man skal skrive en kommentar inden man kan se den ... Det er ikke så godt

kaster lige :o)