hjælp!!!

hej jeg har følenge script og fejl:
<head><link rel=\"stylesheet\" type=\"text/css\" href=\"stylesheet.css\">
<%


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


If request.Querystring(\"mode\") = \"lang\" Then
strSQL = \"Select * from nyheder where id=\" & request.querystring(\"id\")
    Set rs = Conn.Execute(strSQL)
If rs.EOF Then
Response.write \"fejl. Jeg beklarer! ;(\"
Else
Response.write \"<fieldset><legend>Nyheder:</legend>\"
response.Write \"<table cellpadding=0 cellspacing=0 class=menu width=300 \"
response.Write \"<tr><td class=nyhed><div class= underskrift>\" & rs(\"over\") & \"</div></tr></td><td class=nyhed><div class= underskrift1><right>\" & rs(\"skrevet\") & \"</right></div></td></tr>\"
Response.write \"<tr><td class = menu2>Skrevet af: <td class = menu2>\" & rs(\"af\") & \".</tr>\"
Response.write \"<tr><td class = menu2>\" & rs(\"af\") & \" Har skrevet: <td class = menu2>\" & rs(\"lang\") & \"</td></tr>\"
Response.write \"<p><br></table><p>\"
end if
Else if request.Querystring(\"mode\") = \"\" Then
    strSQL = \"Select * from nyheder order by skrevet Desc\"
    Set rs = Conn.Execute(strSQL)

    If rs.EOF Then
Response.write \"fejl. Jeg beklarer! ;(\"
Else
Response.write \"<fieldset><legend>Nyheder:</legend>\"

Do
response.Write \"<table cellpadding=0 cellspacing=0 class=menu width=300 \"
response.Write \"<tr><td class=nyhed><div class= underskrift><a href=nyheder.asp?mode=lang&Id=\"
response.Write rs(\"Id\")
response.Write \">\"
response.Write \"\" & rs(\"over\") & \"</a>\"
response.write \"</div></tr></td><td class=nyhed><div class= underskrift1><right>\" & rs(\"skrevet\") & \"</right>\"
If not session(\"admin\") = \"ja\" Then
Else
Response.write \" <a href =nyheder.asp?mode=opdater&id=\"
Response.write rs(\"id\")
Response.write \">(Rediger)</a>\"
end if

Response.write \"<tr><td class = menu2>Skrevet af: <td class = menu2>\" & rs(\"af\") & \".</tr>\"
Response.write \"<tr><td class = menu2>\" & rs(\"af\") & \" Har skrevet: <td class = menu2>\" & rs(\"kort\") & \"</td></tr>\"
Response.write \"<p><br></table><p>\"
rs.MoveNext
Loop While Not rs.EOF
Response.write \"</fieldset>\"
end if
If session(\"admin\") = \"ja\" Then
response.write \"<br>Din menu: <br>\"
response.write \"<a href=\"\"nyheder.asp?mode=ny\"\">ny nyhed</a><br>\"
else
end if

elseif request.querystring(\"mode\") = \"ny\" and session(\"admin\") = \"ja\" Then
Response.write \"<p><fieldset><legend>Indsæt Nyhed:</legend>\"
response.Write \"<FORM method=\"\"post\"\" action = \"\"nyheder.asp?mode=opret\"\">\"
Response.write \"Kort:<input type=\"\"text\"\" value=\"\"\"\" name=\"\"kort\"\"><br>\"
Response.write \"Lang:<input type=\"\"text\"\" value=\"\"\"\" name=\"\"lang\"\"><br>\"
Response.write \"Skrevet den (23-20-20):<input type=\"\"text\"\" value=\"\"\" & FormatDateTime(Now, vbShortDate) & \"\"\" name=\"\"skrevet\"\"><br>\"
Response.write \"Af:<input type=\"\"text\"\" value=\"\"Admin\"\" name=\"\"af\"\"><br>\"
Response.write \"overskrift:<input type=\"\"text\"\" value=\"\"\"\" name=\"\"over\"\"><br>\"
Response.write \"<input type=\"\"submit\"\" value=\"\"Gem\"\" id=\"\"submit\"\"><br>\"
Response.write \"</fieldset>\"
Response.write \"</form>\"
elseif request.querystring(\"mode\") = \"opret\" and session(\"admin\") = \"ja\" Then
strKort = Request.Form(\"kort\")
strLang = Request.Form(\"lang\")
strSkrevet = Request.Form(\"skrevet\")
strAf = Request.Form(\"af\")
strOver = Request.Form(\"over\")

sql = \"INSERT INTO nyheder (kort, lang, skrevet, af, over) values (\"
sql = sql & \"\'\" & strKort & \"\',\"
sql = sql & \"\'\" & strLang & \"\',\"
sql = sql & \"\'\" & strSkrevet & \"\',\"
sql = sql & \"\'\" & strAf & \"\',\"
sql = sql & \"\'\" & strOver & \"\')\"
Set rs = Conn.ExeCute(sql)
response.write sql

elseif request.querystring(\"mode\") = \"opdater\" and session(\"admin\") = \"ja\" and request.querystring(\"id\") <> \"0\" Then
\'her!!
strSQL = \"Select * from nyheder where id=\" & request.querystring(\"id\")
Set rs = Conn.Execute(strSQL)
Response.write \"<p><fieldset><legend>Rediger \" & rs(\"over\") & \"</legend>\"
response.Write \"<FORM method=\"\"post\"\" action = \"\"nyheder.asp?mode=ny_opret&id=\"
response.write request.querystring(\"id\")
response.write \"\"\">\"
Response.write \"Kort:<input type=\"\"text\"\" value=\"\"\" & rs(\"kort\") & \"\"\" name=\"\"kort\"\"><br>\"
Response.write \"Lang:<input type=\"\"text\"\" value=\"\"\" & rs(\"lang\") & \"\"\" name=\"\"lang\"\"><br>\"
Response.write \"Skrevet den (23-20-20):<input type=\"\"text\"\" value=\"\"\" & rs(\"skrevet\") & \"\"\" name=\"\"skrevet\"\"><br>\"
Response.write \"Af:<input type=\"\"text\"\" value=\"\"\" & rs(\"af\") & \"\"\" name=\"\"af\"\"><br>\"
Response.write \"overskrift:<input type=\"\"text\"\" value=\"\"\" & rs(\"over\") & \"\"\" name=\"\"over\"\"><br>\"
Response.write \"<input type=\"\"submit\"\" value=\"\"Gem\"\" id=\"\"submit\"\"><br>\"
Response.write \"</fieldset>\"
Response.write \"</form>\"
elseif request.querystring(\"mode\") = \"ny_opret\" and session(\"admin\") = \"ja\" Then
strKort = request.Form(\"kort\")
strLang = request.Form(\"lang\")
strSkrevet = request.Form(\"skrevet\")
strAf = request.Form(\"af\")
strOver = request.Form(\"over\")
strId = request.querystring(\"id\")
\'110
sql = \"Update nyheder set \"
sql = sql & \"kort=\'\" & strKort & \"\',\"
sql = sql & \"lang=\'\" & strLang & \"\',\"
sql = sql & \"skrevet=\'\" & strSkrevet & \"\',\"
sql = sql & \"af=\'\" & strAf & \"\',\"
sql = sql & \"over=\'\" & strOver & \"\',\"
sql = sql & \"Where id=\" & strId & \"\"
response.write sql
Set rs = Conn.Execute(sql)
else
response.write \"nejnej den går ikke!!! :(\"

end if end if
Conn.Close
Set Conn = Nothing

%>

og for denne fejl:

Update nyheder set kort=\'test\',lang=\'test over allesammen. Pro-design out nu!!!\',skrevet=\'14-01-02\',af=\'Admin\',over=\'pro-designuu\',Where id=18
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'

[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i UPDATE-sætningen.

/totalmobil/nyheder.asp, linje 119



hvorfor det!!! hjælp!