Hvorfor får jeg denne fejl.

hvordan lyder linie 1089?

Lyder  som sætningen du prøver at udføre er noget volapyk. Indsæt koden så vi kan se :-)

-Per

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};  DBQ=\" & server.MapPath(\"../artikeldb.mdb\")

SQLstmt = \"INSERT INTO Artikler (dato,titel,author_name,author_email,re,text_html,kilde,pic_path,sektion)\"
SQLstmt = SQLstmt & \" VALUES (#\" & date & \"#,\'\" & request.form(\"titel\") & \"\',\'\" & request.form(\"author_name\") & \"\',\" & request.form(\"author_email\") & \",\'\" & request.form(\"re\") & \"\',\" & request.form(\"text_html\") & \",\'\" & request.form(\"kilde\") & \"\',\'\" & request.form(\"pic_path\") & \"\',\'\" & request.form(\"sektion\") & \"\')\"

response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

response.redirect (\"artikel.asp?mode=edit_delete\")
%>

du mangler en \"where\" til allersidst...

:-)

NAAAARJJJ... sorry, det er blevet sent for denne lille mand... Jeg så det som en update... :-)

Du mangler bare nogle \'-ere. Du har ellers sat de fleste, men ikke om email og text_html

Du mangler singlegnyffer (\') omkring følgende felter (altså lissom du har ved request.form(\"titel\") ) :

author_email
text_html


jeg antager at disse to felter også er tekstfelter.

Prøv at indsætte URL\'en

Det er helt tydeligt at der er en variable der er mepty eller null...

torbenkoch:
\"Hawkeye\" kaldte de ham i byen...

:-)

Prøv med dette her istedet:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../artikeldb.mdb\")

Set RS = Server.CreateObject(\"ADODB.Recordset\")
RS.Open \"SELECT * From Artikler\", Conn, 3, 3

RS.Addnew

    RS.Fields(\"dato\") = Date()
    RS.Fields(\"titel\") = Request.Form(\"titel\")
    RS.Fields(\"author_name\") = Request.Form(\"author_name\")
    RS.Fields(\"author_email\") = Request.Form(\"author_email\")
    RS.Fields(\"re\") = Request.Form(\"re\")
    RS.Fields(\"text_html\") = Request.Form(\"text_html\")
    RS.Fields(\"kilde\") = Request.Form(\"kilde\")
    RS.Fields(\"pic_path\") = Request.Form(\"pic_path\")
    RS.Fields(\"sektion\") = Request.Form(\"sektion\")

RS.Update

RS.Close
Set RS = Nothing

Response.Redirect(\"artikel.asp?mode=edit_delete\")

%>

Prøv denne sætning

\"SELECT * FROM nye WHERE dato BETWEEN #\" & Text1.Text & \"# AND #\" & text2.text & \"#\"

-Per

Sorry forkert spørgsmål, (græmme, ggerrer)
Ahh, så udfri mig dog af mine lidelser :-)

Tak, jeg brugte fox2k\'s script, så han får pointene.