Den skriver alt i én kolonne til samme tekst..

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("demo.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, nyhed FROM nyheder"
rs.Open strSQL, Conn, 1, 3

rs.addnew
rs("overskrift") = Request.form("overskrift")
rs("nyhed") = Request.form("beskrivelse")
rs.update

//>Rune

Den havde jeg også skrevet bare ikke i den du så. Hele koden ser således ud:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("demo100102.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, nyhed FROM nyheder"
rs.Open strSQL, Conn, 1, 3

rs.addnew
rs("overskrift") = Request.form("overskrift")
rs("nyhed") = Request.form("beskrivelse")

function rw( mystr )
   
        Response.Write mystr & vbcrlf

end function

rs.update
Response.Write("<b><FONT COLOR=""#FF0000"">Det er nu blevet tilføjet til databasen.</FONT></b>")

Set rs = Nothing
Conn.Close
set Conn = Nothing
end if

For at du/i måske bedre kan forstå det laver den følgende fejl
Så prøver vi igen--> Det samme
Det virker næsten nu --> Det samme
Så prøver vi igen --> Det samme 
osv.
Altså det jeg skriver i den sidste nyhed skriver den i alle sammen (Det samme)

Jeg tror ikke fejlen ligger der alligevel. Jeg prøver lige frem selv som vender jeg tilbage hvis jeg ikke løser problemet.

medions >> takkker for hjælpen men det virkede stadig ikke med dit forsøg. Men jeg har løst problemet så jeg lukker denne indlæg.