---
title: "Inmatning av flera poster till samma kolumn"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13925-inmatning-av-flera-poster-till-samma-kolumn"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2002-01-19T13:45:00.000Z"
updated: "2002-01-21T16:22:00.000Z"
replies: 14
views: 274
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/13925-inmatning-av-flera-poster-till-samma-kolumn"
---

# Inmatning av flera poster till samma kolumn

## #1 — Gimbo, 2002-01-19T13:45Z

Hejsan,

Jag undrar hur man gör för att mata in flera värden till en speciell kolumn, dvs att man har flera \<input="text" name="blabl" value="40"\>, kanske 10st sådana under varandra sedan när man klickar på skicka så ska det som står i varje textfält skrivas in i en egen rad i den specifika kolumnen, plus att ett datum ska läggas till...

Hoppas ni förstår vad jag menar...

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

## #2 — jorgen, 2002-01-19T14:50Z

Hej, koden förutsätter att de 3första fälten är av texttyp och det sista är av datumtyp. Det är bara att upprepa liknande mönster och lägga till så många fält du önskar.

```
sql = "INSERT INTO tabellen " & _
" (field1, field2, field3, dteDatum) " & _
" VALUES('" & Request.form("field1") & "', '" & Request.form("field2") & "', " & _
" '" & Request.form("field3") & "' , Now())"

Connection.Execute sql,,128
```

red, delade upp det på flera rader för att slippa oavsiktliga radbrytningar.

mvh Jörgen :)

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

## #3 — cyprys, 2002-01-19T15:42Z

Kanske stämmer det som står över men jag tyckte det verkade som om du ville skapa en ny post för varje input.
Kanske jag är ute och cyklar?

Hur som helst så kan du göra det på nått liknande sätt.

```
<%
for each x in request.form
conn.execute("SQL-kod där x = value från inputen")
next
%>
```

\[r\]Om du vill ha mer kontroll på vilka input och var de hamnar så använd en array med alla inputnamn som du har på förregående sida.

```
<%
namn = array("namn", "fodd", "bor")

for x = 0 to ubound(namn, 1)
response.write x & " = " & request.form(x)
next
%>
```

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

## #4 — Gimbo, 2002-01-19T16:54Z

Jepp, cyprus vi förstod varandra bra där, du tolka mig rätt :) , så här ser min kod ut för hela filen, det är en väldigt enkel kod, men vad är det jag ska skriva då jag skriver till databasen jag använder mig inte utav SQL, så här ser det ut:

```
<html>

<head>
<title>Uppdatering av databas</title>
</head>

<body>

<% If Request.Querystring("action") = "" %>

<p>Uppdatera databasen:</p>
<p>&nbsp;</p>
<form type="method" action="kunskap.asp?action=add">
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
</form>

<%End if%>

<% If Request.Querystring("action") = "add" %>
<%
Set Connect = ServerCreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datab.mdb")
%>
<%

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   	Addera = "SELECT * FROM kunskap"

   	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	RecSet.AddNew

	RecSet("kunskap") = Request.Form("kunskap")
	RecSet("datum") = Request.Form("datum")	

	RecSet.Update
	RecSet.Close
	Connect.Close
	Set Connect = Nothing

%>
<%End If%>

Databasen är uppdaterad...
</body>

</html>
```

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

## #5 — Gimbo, 2002-01-19T16:55Z

Glömde Then i request.queystring men hur som helst det är inte problemet utan problemet är då den skriver till databasen

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

## #6 — LarsG, 2002-01-19T18:03Z

```
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM kunskap"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

for i = 1 to request.form("kunskap").count

RecSet.AddNew
RecSet("kunskap") = Request.Form("kunskap")(i)
RecSet("datum") = Request.Form("datum") 
RecSet.Update

next
```

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

## #7 — Gimbo, 2002-01-20T14:54Z

Det fungerar inte, får inget felmeddelande men den lägger inte till ngt i databasen...

```
<% If Request.Querystring("action") = "add" then %>
<%
Set Connect = ServerCreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datab.mdb")
%>
<%

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   	Addera = "SELECT * FROM kunskap"

   	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
	For i = 1 to request.form(kunskap).count
	
	RecSet Add.New
	RecSet("kunskap") = Request.Form("kunskap")(i)
	RecSet("datum") = Request.Form("datum")	
	RecSet.Update

	next

	RecSet.Close
	Connect.Close
	Set Connect = Nothing

%>
<%End If%>
```

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

## #8 — LarsG, 2002-01-20T15:12Z

Du har glömt citationstecken här

```
For i = 1 to request.form("kunskap").count
```

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

## #9 — Gimbo, 2002-01-20T15:45Z

Det fungerar fortfarande inte, har lagt till de men den skriver fortfarande inte till databasen...

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

## #10 — LarsG, 2002-01-20T15:56Z

Om du lägger till method='POST' i ditt form element så att du får värdena i request.form ...

```
<p>Uppdatera databasen:</p>
<p> </p>
<form type="method" action="kunskap.asp?action=add" method="POST">
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
</form>
```

Du kan ju även lägga till en testutskrift i kunskap.asp så att du ser att du får in värden.

```
response.write "Antal fält:" & request.form("kunskap").count
For i = 1 to request.form("kunskap").count
```

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

## #11 — Gimbo, 2002-01-20T22:37Z

Alltså LArs så här ser hela min kod ut:

```

<html>

<head>
<title>Uppdatering av databas</title>
</head>

<body>

<% If Request.Querystring("action") = "" then %>

<p>Uppdatera databasen:</p>
<p>&nbsp;</p>
<form type="method" action="kunskap.asp?action=add" method="POST">
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="text" name="kunskap"><p>
<input type="submit" value="GO">
</form>

<% End if %>

<% If Request.Querystring("action") = "add" then %>
<%

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datab.mdb")
%>
<%
	Set RecSet = Server.CreateObject("ADODB.Recordset")
   	Addera = "SELECT * FROM kunskap"

   	RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
	
	For i = 1 to request.form("kunskap").count
	
	RecSet Add.New
	RecSet("kunskap") = Request.Form("kunskap")(i)
	RecSet("datum") = Request.Form("datum")	
	RecSet.Update

	next

	RecSet.Close
	Connect.Close
	Set Connect = Nothing

%>
<% End if %>

</body>

</html>
```

Och får detta felmeddelande:

```
ADODB.Recordset fel '800a0bb9' 

Programmet använder felaktiga parametrar, som antingen ligger utanför tillåtet intervall, eller som skapar en inbördes konflikt. 

kunskap.asp, rad 36
```

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

## #12 — LarsG, 2002-01-20T22:45Z

Du har inte med ADOVBS.inc så vitt jag kan se och då är konstanterna adOpenStatic och adLockOptimistic odefinierade.

Du kan ju definiera dom själv

```
const adOpenStatic = 3' 
const adLockOptimistic = 3
```

eller använda adovbs.inc

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

## #13 — Gimbo, 2002-01-21T01:40Z

```
Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: 'Add' 

kunskap.asp, rad 40
```

Vart ska jag tryck in add?

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

## #14 — Vide, 2002-01-21T07:42Z

Denna raden skall ändras:

```
RecSet Add.New
```

till:

```
RecSet.AddNew
```

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

## #15 — Gimbo, 2002-01-21T16:22Z

Tack Lars G och tack Vide jag fick det att fumgera nu :-) ..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13925-inmatning-av-flera-poster-till-samma-kolumn