Opdatering af database..

Jeg har et problem, jeg kan ikke opdatere indholdet af min database... jeg får denne fejL:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 5.
/glad2003/admin/update.asp, line 25

filerne----------------------

modifynews.asp:::::::::::::

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "SERVER=LOCALHOST;DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../.../db/database.mdb")
Conn.Open DSN

SQL = "SELECT * FROM NEWS WHERE ID = " & Request.querystring("ID")
Set RS = Conn.Execute( SQL )
if( NOT RS.EOF ) then
  newsID    = RS("ID")
    newsSubject = RS("Subject")
    newsSmall = RS("Small")
    newsLarge = RS("Large")
    newsAf = RS("Af")
    newsDate = RS("Date")
end if

RS.Close
Conn.Close

Set RS = nothing
Set Conn = nothing
%>
<html>
<head>
<title>Indsætte data i databasen</title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
<h1><font size="2" face="Tahoma">Modify News</font></h1>

<hr size="1" color="#FFFFFF">

<form action="update.asp" method="post">
<font size="1" face="Tahoma">
<input type="hidden" name="newsID" value="<%= newsID %>" >Heading<br>
<input type="text" name="newsSubject"value="<%= newsSubject %>" >
&nbsp;<br>
<br>
Short text
<br>
<input type="text" name="newsSmall" value="<%= newsSmall %>" size="20">
<br>
<br>
Long text
<br>
<input type="text" name="newsLarge" value="<%= newsLarge %>" size="20">
<br>
<br>
Author
<br>
<input type="text" name="newsAf" value="<%= newsAf %>" size="20">
<br>
<br>
Date (must be written in this format: 17-12-2002)
<br>
<input type="text" name="newsDate" value="<%= newsDate %>" size="20">
<br>
<br>
<input type="submit" value="Gem"></font></form>
</body>
</html>



update.asp:::::::::::::::::

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ny side 2</title>
</head>

<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "SERVER=LOCALHOST;DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath(".../.../db/database.mdb")
Conn.Open DSN

datoStr = Year(Request.Form("newsDate")) & "-" & Month(Request.Form("NewsDate")) & "-" & day(Request.Form("newsDate"))
strSQL = "UPDATE NEWS SET newsSubject='" & Request.Form("NewsSubject") & "', "
strSQL = strSQL & "newsSmall='" & replace(Request.Form("NewsSmall"),"'","''") & "', "
strSQL = strSQL & "newsLarge='" & Request.Form("NewsLarge") & "', "
strSQL = strSQL & "newsAf='" & Request.Form("NewsAf") & "', "
strSQL = strSQL & "newsDate=#" & datoStr & "# "
strSQL = strSQL & "WHERE ID = " & Request.Form("NewsID")

Conn.Execute( strSQL )
Conn.Close

Set Conn = Nothing
response.write "<br>Modification succesfull"
%>

</body>

</html>