en fejl

vis lige hele din UPDATE sætning (sql)

Prøv at kigge på http://activedeveloper.dk/aspdigital/kapitel2/updateable_query.asp eller http://support.microsoft.com/default.aspx?scid=KB;en-us;q175168

<%
If Mode = "add" Then
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/database.dk.mdb")
Conn.Open DSN


Initialer = Replace( Request.Form("Initialer"), "'", "''" )
Dato = date()
Nyhed = Replace( Request.Form("Nyhed"), "'", "''" )
Kilde_navn = Replace( Request.Form("Kilde_navn"), "'", "''" )
Kilde_adresse = Replace( Request.Form("Kilde_adresse"), "'", "''" )

If Initialer = "" OR Nyhed = "" OR Kilde_navn = "" Then
Response.Write " Alle felter skal udfyldes, med undtagen for kilde adresse"
Else
sql = "Insert into Nyheder(Initialer, Dato, Nyhed, Kilde_link, Kilde) values('" & Initialer & "', '" & Dato & "', '" & Nyhed & "', '" & Kilde_adresse & "', '" & Kilde_navn & "')"
Conn.execute(sql)

Conn.Close
Set Conn = Nothing
Response.Write "Din nyhed er nu lagret i databasen."
End If


Else
%>

Takker for points :)