Simple update with ASP VBScript - Part 2

Sorry the post send before I could paste the code in...

I have this working on other pages, running on the same server, but can I
get this to work...

I have an access datadabse with a Yes/No field, I am trying to run the code
belwo to update this to a Yes with teh following -

<%
Dim rsFrancUsers__MMColParam
rsFrancUsers__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
rsFrancUsers__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim rsFrancUsers
Dim rsFrancUsers_numRows

Set rsFrancUsers = Server.CreateObject("ADODB.Recordset")
rsFrancUsers.ActiveConnection = MM_cMiniJumps_STRING
rsFrancUsers.Source = "SELECT * FROM postapony WHERE id = " +
Replace(rsFrancUsers__MMColParam, "'", "''") + ""
rsFrancUsers.CursorType = 0
rsFrancUsers.CursorLocation = 2
rsFrancUsers.LockType = 2
rsFrancUsers.Open()

rsFrancUsers_numRows = 0
%>
<%
rsFrancUsers("mjauth") = True
rsFrancUsers.Update
%>

and I get the following error -


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 13.

/admin/pp-authorise.asp, line 27 (This refers to the rsFrancUsers.Update
command)



Any ideas would be appreciated

Thanks