För få parametrar angavs. 1 förväntades.

Jag får följande fel:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades.
/elp/admin/index.asp, line 241

på följande kod:

If visa = "pers" Then
action = Request.Querystring("action")
vad = Request.Querystring("vad")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & default_database
Set RecSet = Server.CreateObject("ADODB.RecordSet")

If vad = "" Then
If action = "edit" Then

  persen = "SELECT \* FROM personal"
  RecSet.open persen, Connect, AdOpenDynamic

  If RecSet.EOF Then
  	Response.Write "\<font size=""1""\>Det finns ingen data i databasen\</font\>"
  Else
  	Response.Write "\<font size=""1""\>Listar personalen som finns i databasen.\</font\>\<br\>\<br\>"
  	Do Until RecSet.EOF
  	Response.Write "\<a href=""index.asp?meny=pers&visa=pers&action=edit&vad=del&ID=" & RecSet("ID") & """\>Radera\</a\> \| \<a href=""index.asp?meny=pers&visa=pers&action=edit&vad=edit&ID=" & RecSet("ID") & """\>Ändra\</a\> \<font size=""1""\>" & RecSet("namn") & "\</font\>\<br\>"
  	RecSet.MoveNext
  	Loop
  End If

  RecSet.Close
  End If

ElseIf vad = "edit" Then
ID = Request.Querystring("id")

  hamtap = "SELECT \* FROM personal WHERE ID = " & id
  RecSet.Open hamtap, Connect, AdOpenDynamic

  Response.Write "\<form action=""index.asp?meny=pers&visa=pers&action=edit&vad=save&id=" & RecSet("id") & """ method=""post""\>"
  Response.Write "\<font size=""1""\>Om personen inte har någon email, bild, mobiltelefon osv så bara lämna fälten tomma så sköts resten av programmet.\</font\>\<br\>\<table align=""center"" width=""100%"" cellpadding=""0"" cellspacing=""0""\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Sökväg till bild: &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""bild"" value=""" & RecSet("bild") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Namn: &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""namn"" value=""" & RecSet("namn") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Email: &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""email"" value=""" & RecSet("email") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Telefon: &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""telefon"" value=""" & RecSet("telefon") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Jobb: &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""jobb"" value=""" & RecSet("jobb") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<font size=""1""\>Egen text (max 255 tecken): &nbsp; \</font\>\</td\>\<td\>\<input type=""text"" name=""egen"" value=""" & RecSet("egen") & """\>\</td\>\</tr\>"
  Response.Write "\<tr\>\<td\>&nbsp;\</td\>\<td\>&nbsp;\</td\>\</tr\>"
  Response.Write "\<tr\>\<td align=""right""\>\<input type=""submit"" value=""Spara ändringar""\>&nbsp;\</td\>\<td\>&nbsp;\<input type=""reset"" value=""Nollställ""\>\</td\>\</tr\>"
  Response.Write "\</table\>"
  RecSet.Close

ElseIf vad = "save" Then

  stSQL = "UPDATE personal SET bild = '" & Request.Form("bild") & "', namn = '" & Request.Form("namn") & "', email = '" & Request.Form("email") & "', telefon = '" & Request.Form("telefon") & "', jobb = '" & Request.Form("jobb") & "', gen = '" & Request.Form("egen") & "' WHERE ID = " & Request.Querystring("id")
  Connect.Execute stSQL,,128 '  **Rad 241** 

  Response.Redirect "index.asp?meny=pers&visa=pers&action=edit"

End If

End If

Vad är fel? LarsG är ju kung på det där.. Hjälp mig...