Vis default tekst ved tom DB felt.

prøv med:

do while not rs.eof
if isNull(rs) then
  response.write "Ingen anmeldelser i denne kategori"
else
  ' udskriv data
end if

Kan du ikke bruge If rs.EOF (eller bof) then response.write "ingen i denne kategori"

ahh.. det var det han ville ha' :)

hovsa... det var:
If rs.EOF = False Then Response.Write "Ingen i denne kategori!"

Der kommer ingen fejl men, den skriver heller ikke "Ingen bla bla bla"

Hovs, prøver lige syntax' :)

if rs.eof or rs.bof then
  response.write "ingen data for karakter '" & karakter & "'"
else
  Do While Not rs.EOF
    id = rs("id")
    titel = rs("titel")
    teaser = rs("teaser")
    'osv...'
  loop
end if

hov.. :)

  rs.movenext
  loop
end if

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
                                Set objConn = Server.CreateObject ("ADODB.Connection")
                                objConn.Open strConnect   

                                strSQL = "SELECT * FROM anmeld WHERE titel LIKE '"  & karakter & "%' ORDER BY titel"
                                Set rs = objConn.Execute(strSQL)
                 

                if rs.eof or rs.bof then
                      response.write "ingen data for karakter '" & karakter & "'"
                else

                                    Do While Not rs.EOF
                                    id = rs("id")
                                    titel = rs("titel")
                                    teaser = rs("teaser")
                                 
                rs.movenext
                  loop
                end if

Giver fejlen:
'loop' without 'do'

hmm.. det siger den normalt hvis du flytter "loop" ud for en if-sætning..

Hvis det betyder noget så er her hele koden:

<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT * FROM anmeld WHERE titel LIKE '"  & karakter & "%' ORDER BY titel"
Set rs = objConn.Execute(strSQL)
                 
if rs.eof or rs.bof then
response.write "ingen data for karakter '" & karakter & "'"
else

Do While Not rs.EOF
id = rs("id")
titel = rs("titel")
teaser = rs("teaser")
rs.movenext
loop
end if
%>
                 
<a style='font-family:tahoma, verdana;font-size:12px;color:#000000;font-weight:bold;' href="review.asp?id=<%=id%>"><b><u><%=titel%></u></b></a>&nbsp;&nbsp;&nbsp;Indlæg 

<%
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
                                                   
Response.Write "(" & AntalKommentarer & ")"
                                                     
end if
%>
<br><%=teaser%><br><br>- <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;' href="review.asp?id=<%=id%>">Læs anmeldelse</A><br><br>
                             
                          <br><br>
<%
                                rs.movenext
                                  loop
                                rs.Close
                                objConn.Close
                              %>

Prøv det her i stedet:

if (not rs.bof) And (not rs.eof) ten
  do while not rs.eof
    id = rs("id")
    titel = rs("titel")
    teaser = rs("teaser")
    rs.movenext
  loop
else
  response.write "ingen data for karakter '" & karakter & "'"
end if

Samme fejl:
'loop' without 'do'

ahh... det er ikke min del der er fejl i.. det er den her:

Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
                                                   
Response.Write "(" & AntalKommentarer & ")"
                                                     
end if
%>
<br><%=teaser%><br><br>- <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;' href="review.asp?id=<%=id%>">Læs anmeldelse</A><br><br>
                             
                          <br><br>
<%
                                rs.movenext
                                  loop <--- "loop" uden "do"
                                rs.Close
                                objConn.Close
                              %>

Det er to steder i din kode nu. Og føste gang du har dette:

rs.movenext
loop
end if

Skal det slettes, hvis du har lavet koden som i 15/12-2003 20:04:30 igen

hvis koden fra 15/12-2003 20:12:13 skal udføres sammen med det andet, skal du fjerne de første rs.movenext, loop, end if

jeg tror nok at det er det eagleeye sagde :)

eagleeye> kan du ikke også tag et kig på http://www.eksperten.dk/spm/440256
den irriterer mig :)

Nu ser koden sådan ud:

<%
                                strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
                                Set objConn = Server.CreateObject ("ADODB.Connection")
                                objConn.Open strConnect   

                                strSQL = "SELECT * FROM anmeld WHERE titel LIKE '"  & karakter & "%' ORDER BY titel"
                                Set rs = objConn.Execute(strSQL)
                 

                if (not rs.bof) And (not rs.eof) then


                                    Do While Not rs.EOF
                                    id = rs("id")
                                    titel = rs("titel")
                                    teaser = rs("teaser")
                                 
               
else
  response.write "ingen data for karakter '" & karakter & "'"
end if

%>
                 
                                <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;font-weight:bold;' href="review.asp?id=<%=id%>"><b><u><%=titel%></u></b></a>&nbsp;&nbsp;&nbsp;Indlæg 
<%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
                                                    AntalKommentarer=rs1(0).Value
                                                   
                                                    Response.Write "(" & AntalKommentarer & ")"
                                                      end if
                                                    %>
<br><%=teaser%><br><br>- <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;' href="review.asp?id=<%=id%>">Læs anmeldelse</A><br><br>
                             
                          <br><br>
<%
                                rs.movenext
                                  loop
                                rs.Close
                                objConn.Close
                              %>

Det giver fejlen:
Expected 'Loop'

/reviews.asp, line 68

else

My bad..

Sådan ser den ud:
<%
                                strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
                                Set objConn = Server.CreateObject ("ADODB.Connection")
                                objConn.Open strConnect   

                                strSQL = "SELECT * FROM anmeld WHERE titel LIKE '"  & karakter & "%' ORDER BY titel"
                                Set rs = objConn.Execute(strSQL)
                 

                if rs.eof or rs.bof then
response.write "ingen data for karakter '" & karakter & "'"
else

Do While Not rs.EOF
id = rs("id")
titel = rs("titel")
teaser = rs("teaser")
rs.movenext
loop
end if


%>
                 
                                <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;font-weight:bold;' href="review.asp?id=<%=id%>"><b><u><%=titel%></u></b></a>&nbsp;&nbsp;&nbsp;Indlæg 
<%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
                                                    AntalKommentarer=rs1(0).Value
                                                   
                                                    Response.Write "(" & AntalKommentarer & ")"
                                                      end if
                                                    %>
<br><%=teaser%><br><br>- <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;' href="review.asp?id=<%=id%>">Læs anmeldelse</A><br><br>
                             
                          <br><br>
<%
                               
                                rs.Close
                                objConn.Close
                              %>

Men så opstår et andet prob.
Koden:
<%
                                                    AntalKommentarer=0
                                                    if isNumeric(ID) then
                                                    Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
                                                    AntalKommentarer=rs1(0).Value
                                                   
                                                    Response.Write "(" & AntalKommentarer & ")"
                                                      end if
                                                    %>

Giver fejl, der er jo selvfølgelig ikke noget den kan vise.

ingen data for karakter 'G'    Indlæg
Microsoft JET Database Engine error '80040e14'

Syntax error (missing operator) in query expression 'nyhedid='.

/reviews.asp, line 78


Kan det løses?

som jeg skrev hvis du tager udgangspunk i din kode fra: 15/12-2003 20:04:30
Og fjerner føste gang du ´støder på :
rs.movenext
loop
end if


Så skulle den være der..... 2 sekunder

Prøv:


<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect   

strSQL = "SELECT * FROM anmeld WHERE titel LIKE '"  & karakter & "%' ORDER BY titel"
Set rs = objConn.Execute(strSQL)
                 
if rs.eof or rs.bof then
response.write "ingen data for karakter '" & karakter & "'"
else

Do While Not rs.EOF
id = rs("id")
titel = rs("titel")
teaser = rs("teaser")

%>
                 
<a style='font-family:tahoma, verdana;font-size:12px;color:#000000;font-weight:bold;' href="review.asp?id=<%=id%>"><b><u><%=titel%></u></b></a>&nbsp;&nbsp;&nbsp;Indlæg 

<%
AntalKommentarer=0
if isNumeric(ID) then
Set rs1=objConn.Execute("SELECT COUNT(*) FROM commentsanmeld where nyhedid=" & ID)
AntalKommentarer=rs1(0).Value
                                                   
Response.Write "(" & AntalKommentarer & ")"
                                                     
end if
%>
<br><%=teaser%><br><br>- <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;' href="review.asp?id=<%=id%>">Læs anmeldelse</A><br><br>
                             
                          <br><br>
<%
                                rs.movenext
                                  loop
                                rs.Close
                                objConn.Close
                              %>

og så ikke helt afligevel... ;)
Der skal et End If ind til sidst imellem loop og rs.Close:

<%
                                rs.movenext
                                  loop
                                End if
                                rs.Close
                                objConn.Close
                              %>

Smider lige det end if ind..Men det virker altså alligevel ;-)

Men nogle forslag til det andet prob, eller skal jeg oprette et nyt spm? :-)

Hov...Hehe..Så forkert.. Prøver det :)

Fedt det virker!

Men ehmm.. Hvordan gør jeg nu med pts?

Det bestemmer du.

Okies..

Eagle 20
surfer 10

Men jeg mangler dog et svar fra jer ;)

Ok, jamen det kan vi ikke ha mangler :)
Så her et svar.