Errors

On Error Resume Next

Så fortsætter den bare!

Ellers kan du lave en label og bruge

On Error Goto

/Jimmi

nahhhh, det er ikke ordentlig errorhandling.......jeg går ud fra at vi her har haft med en søgning at gøre.....det er bare ikke nogen records som passer til det søgte!

Lige før linje 64 skriver du:

If NOT rs.EoF Then

og alt den kode som udskriver data til skærmen kommer efter.....

Else

  Response.Write \"Der er ingen resultater\"
End If

har du problemer med at sætte det ind kan du paste dit dokument og jeg gør det så gerne for dig!

rs er det recordset du har.....jeg kan ikke se ud af den fremviste kode hvad dit recordset hedder!

Jeg bruger det til emails som automatisk sendes ud til brugerne, med et link i som henviser til et indlæg i et forum. Men hvis indlægget slettes og man bruger linken kommer fejlen..

Se fx. http://www.boykot.dk/enter.asp?fid=21&id=1699&tid=1628

yep og derfor henter den også indlæg\'et frem ved hjælp af en sql ud i et recordset......du må poste koden hvis jeg skal indsætte if statementet.....

sub displayMessages(layer,id)
    \'declaring
    dim sql_order,rs_order,image,str,MessageSpacing,mesid,spaceing,tid
    \'create recordset
    set rs_order=server.createObject(\"adodb.recordset\")
    \'find child with thread_parent=his parent id
    sql_order = \"SELECT * FROM mestbl WHERE thread_parent = \" & id & \"and thread_parent<>0\"
    rs_order.open sql_order,conn
    do until rs_order.eof
        mesid=rs_order(\"id\")
        name=rs_order(\"name\")
        email=rs_order(\"email\")
        subject=rs_order(\"subject\")
        mesdate=rs_order(\"mesdate\")
        fid=rs_order(\"forumID\")
        tid=rs_order(\"thread_id\")
        image=\"<img src=\'images/arr1.gif\' border=0>\"
        str=\"\"
        spaceing=\"\"
        \'this actually looking for 1,2,3 space
        \'if it\'s doesn\'t find it\'s eof - if not it makes spaces as needed
        for MessageSpacing=1 to layer
            spaceing=spaceing & \"&nbsp;&nbsp;&nbsp;\"
        next
       
        str= \"<tr><td>\"
        str=str& spaceing & image & \"<font face=\'verdana\' size=\'2\' color=\'#C0C0C0\'><a href=\'show.asp?id=\" & mesid & \"&fid=\"&fid&\"&tid=\"&tid&\"\'>\" & subject & \"</a>\" & \"....\" & mesdate
        str=str& \"....\" &  name
        str=str& \"</tr></td>\"
        str=str & \"</b>\"
        \'printing details
        Response.Write str
        \'calling again to find more childs - if not rs_order=nothing
        call displayMessages(layer+1,mesid)
        rs_order.movenext
    loop
    \'closing object
    rs_order.close
    set rs_order=nothing
End Sub   

ehh

lp..ville du hjælpe med den if sætning?

prøv at ændre din
Do Until rs_order.eof
til
While Not rs_order.eof Do

mener at en do until først tjekker om betingelsen er opfyldt EFTER den har forsøgt at udføre koden en gang

det kan jeg sku ikke få til at virke :(
hverken lp\'s eller stingbuffers

Ændre:
Do Until rs_order.eof

Til:
Do While Not rs_order.EOF

Det skulle meget gerne virke.

virker stadig ikke