Tagwall Smiley

hvad er fejlen og hvor opstår den ?

Du har to nestede loops - og de modarbejder hinanden:

do until rs.eof
    Do While Not rs.EOF
...

Den ene skal væk.

Et godt råd er iøvrigt at bruge indrykninger og mellemrum mellem kodeblokke. Det kør altså koden meget nemmere at læse:

<title>Tagwall</title>
<!-- #include file="../ban/ban.asp" --><link href="../../css/style.css" rel="stylesheet">
</head>
<%
' --------------------------------------------------
If session("adgang") = true then
    ' --------------------------------------------------
    hr = "<hr>"
    side = request.querystring("side")
    fejl = "Du er ikke admin, og kan derfor ikke se siden! :)"

    ' --------------------------------------------------
    session.lcid = 1030
    set conn = server.createobject("adodb.connection")
    conn.open "provider=msdasql;driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("/db/community.mdb")

    ' --------------------------------------------------
    if len(side) = 0 or side = "" then
        ' --------------------------------------------------
        response.write "<form method=""post"" action=""tagwall.asp?side=opret>"""

        ' --------------------------------------------------
        response.write "<center>Tagwall</center><hr><input type=""text"" name=""besked"" class=""box"">"
        response.write "&nbsp;&nbsp;<input type=submit value=Tilføj>"
        response.write "&nbsp;&nbsp;<form method=post action=tagwall.asp><input type=submit value=Opdater><hr>"

        ' --------------------------------------------------
        sql = "select count(*) as antal from tagwall"
        set antal = conn.execute(sql)
        antal = antal("antal")
        response.write "Der er ialt <b>" & antal & "</b> tags." & hr

        sql = "select * from tagwall order by id desc"
        set rs = conn.execute(sql)

        if rs.eof then
            response.write "<font color=""#FF0000"">*</font> Ingen beskeder<hr>"
        else
            do until rs.eof
                ' --------------------------------------------------
                Do While Not rs.EOF
                    ' --------------------------------------------------
                    smiley = rs("besked")

                    ' --------------------------------------------------
                    smiley = Replace(besked, "<3", "<img src=""smiley/love.gif"">")
                    smiley = Replace(besked, ":-(", "<img src=""sur.gif"">")
                    smiley = Replace(body, vbCrLf, "<br>")

                    ' --------------------------------------------------
%>
Af <b><%=rs("AF")%></b> - <b><%=rs("stilling")%></b> den <i><%=rs("dato")%></i>

%> ... Osv ...

Har du fået kigget på det?