---
title: "För få parametrar angavs. 1 förväntades."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39397-för-få-parametrar-angavs-1-förväntades"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hulth"
published: "2002-03-10T21:00:13.000Z"
updated: "2002-03-10T21:08:24.000Z"
replies: 2
views: 275
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39397-för-få-parametrar-angavs-1-förväntades"
---

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

## #1 — Hulth, 2002-03-10T21:00Z

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...

Permalänk: https://www.webforum.nu/p/39397

## #2 — Pace, 2002-03-10T21:01Z

...', **gen** \= '" & Request.Form("egen") & "...

Felstavat?

Permalänk: https://www.webforum.nu/p/622499

## #3 — Hulth, 2002-03-10T21:08Z

slarvfel... typiskt mig.... och morsan klagar över att jag gör matteläxorna för snabbt bara för att det är en massa fel...

tack för hjälpen..det löste mitt problem...

Permalänk: https://www.webforum.nu/p/622502

---

Tråden på webben: https://www.webforum.nu/amne/asp/39397-för-få-parametrar-angavs-1-förväntades
