lille hejl arhhhhh hjælp !!!!:)

Hej jeg har roet med denne fejl i flere dage arhhh. Kan nogen finde den. Fejlen er:
fejl \'80020009\'
Undtagelse opstod.

/totalmobil/nyheder.asp, linje 81
Mit script er:
<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
    strSQL = \"Select * from nyheder\"
    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 session(\"admin\") = \"ja\" Then
Response.write \"<a href =\"\"nyheder.asp?mode=opdater&id=\"
Response.write rs(\"id\")
Response.write \"\"\">(Rediger)</a>\"
Else
End if
response.write \"</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(\"kort\") & \"</td></tr>\"
Response.write \"<p><br></table><p>\"
rs.MoveNext
Loop While Not rs.EOF
Response.write \"</fieldset>\"
End if End if
If session(\"admin\") = \"ja\" and request.querystring(\"mode\") = \"ny\" 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>\"
Else if session(\"admin\") = \"ja\" and request.querystring(\"mode\") = \"opret\" 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
Else if session(\"admin\") = \"ja\" and request.querystring(\"mode\") = \"opdater\" Then
strSQL = \"Select * from nyheder where Id = \'\" & request.querystring(\"id\") & \"\'\"
Response.write \"<p><fieldset><legend>Rediger \" & rs(\"over\") & \"</legend>\"
response.Write \"<FORM method=\"\"post\"\" action = \"\"nyheder.asp?mode=ny_opret\"\">\"
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>\"
Else if session(\"admin\") = \"ja\" and request.querystring(\"mode\") = \"ny_opret\" 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\")
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 & \"\'\"
Set rs = Conn.ExeCute(sql)
Else
End if end if end if
Conn.Close
Set Conn = Nothing
End if
%>

linje 81 er
Response.write \"<p><fieldset><legend>Rediger \" & rs(\"over\") & \"</legend>\"

Arhhh det er sikkert bare en stave fejl!!! :( hjælp!!!