Tom ??

Her:

        if RS.eof then Response.Write(\"intet\")

    else
   
    do while not RS.eof 

    Response.Write(\"\"& rs(\"Fra\") & \": \"& rs(\"Besked\") & \"<br>\")


    RS.movenext
    loop

Exception occurred.

/chat/top.asp, line 33

Her er line 33:
Conn.Close

Del af koden !

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"chat.mdb\")
Conn.Open DSN


strSQL = \"Select * From beskederne Order by Dato Desc\"

Set rs = Conn.Execute(strSQL)


if RS.eof then Response.Write(\"intet\")

    else
   
    do while not RS.eof 

    Response.Write(\"\"& rs(\"Fra\") & \": \"& rs(\"Besked\") & \"<br>\")


    RS.movenext
    loop   


Conn.Close
Set Conn = Nothing

hovsa!
Jeg glemte at flytte Response.Write(\"intet\") en linje - det skal se sådan ud:

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath(\"chat.mdb\")
Conn.Open DSN


strSQL = \"Select * From beskederne Order by Dato Desc\"

Set rs = Conn.Execute(strSQL)


if RS.eof then
  Response.Write(\"intet\")
else
   
do while not RS.eof 
  Response.Write(\"\"& rs(\"Fra\") & \": \"& rs \"Besked\") & \"<br>\")
  RS.movenext
loop   


Conn.Close
Set Conn = Nothing

fixet :) manglede en End If !

og så mangler da der også en \"end if\" mellem \"loop\" og \"conn.close\"