---
title: "Kan inte lägga till information!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/58768-kan-inte-lägga-till-information"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sudden"
published: "2002-11-11T21:40:01.000Z"
updated: "2002-11-11T22:33:40.000Z"
replies: 12
views: 252
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/58768-kan-inte-lägga-till-information"
---

# Kan inte lägga till information!

## #1 — sudden, 2002-11-11T21:40Z

Hejsan!
Jag behöver ett script som lägger till information till en Access databas.
Jag får det aldrig att funka så jag tänkte få det bekräftat om det är min kod det är fel på eller om det är några felaktiga inställningar.
Här är formuläret:

\<html\>
\<body\>

\<form method="post" action="add.asp"\>
Namn:
\<input type="text" name="fornamn"\>\<br\>
Efternamn:
\<input type="text" name="efternamn"\>\<br\>
\<input type="submit" value="Skicka"\>
\</form\>

\</body\>
\</html\>

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

## #2 — joup, 2002-11-11T21:42Z

Skulle underlätta om du visade hur add.asp såg ut.

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

## #3 — Ekström, 2002-11-11T21:42Z

Den där koden är det inget fel på... Visa gärna ASP-koden också :)

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

## #4 — sudden, 2002-11-11T21:45Z

Okej =)
Här är den:

\<%@Language=VBScript%\>
\<%Option Explicit%\>

\<!--#include virtual="/adovbs.inc"\>

\<html\>
\<body\>

\<%
 Dim objRS
 Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tblAnvändare", objConn, adLockOptimistic, adCMDTable
 objRS.AddNew
objRS("FörNamn") = Request.QueryString("fornamn")
objRs("EfterNamn") = Request.QueryString("efternamn")

objRS.Update
objRSMoveFirst
%\>
\<B\>Uppgifter i en tabell\</b\>
\<P\>
 \<table\>
 \<tr\>
   \<td\> Namn \</td\>
   \<td\> Efternamn \</td\>
   
  \</tr\>
 \<%Do Whlie Not objRS.EOF%\>
\<tr\>
 \<td\>\<%=objRS("Förnamn")%\>,\<%=objRS("EfterNamn")%\>\</td\>

\</tr\>

\<%
  objRS.MoveNext
 Loop
 objRS.Close
 Set objRS = Nothing
 objConn.Close
Set objConn = Nothing
%\>
\</table\>

\</body\>
\</html\>

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

## #5 — Eitraz, 2002-11-11T21:47Z

"tblAnvändare" var inte så definerad där va? ;)

\-Eitraz

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

## #6 — Ekström, 2002-11-11T21:49Z

Hittar ingen connection heller...

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

## #7 — sudden, 2002-11-11T21:50Z

Nej jag vet att den är lite konstig.
Men kan inte ni fixa till den så att den blir korrekt.
Jag har försökt hur länge som helst med att lägga till uppgifter i en databas, men det har aldrig funkat =(.

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

## #8 — crisse6, 2002-11-11T22:05Z

fixade sa allt ligger pa add.asp sa det funkar i fler webblasare om nagot gar snett sa ligger infon kvar.... :) Sen kor jag genom sql, genom insert into... battre tycker jag!
Databasen far du lokalisera sjalv!

```
<%@Language=VBScript%> 
<%Option Explicit%> 

<!--#include virtual="/adovbs.inc"> 

<html> 
<body> 

<% 
If request.form("fornamn") = "" OR request.form("efternamn") = "" then
%>
<form method="post" action="add.asp"> 
Namn: 
<input type="text" name="fornamn"><br> 
Efternamn: 
<input type="text" name="efternamn"><br> 
<input type="submit" value="Skicka"> 
</form> 
<%
else
Dim objRS, objConn 

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("databas.mdb")

sql = "Insert INTO tblAnvändare (FörNamn, EfterNamn) VALUES ('" & request.form("fornamn"), '" & request.form("efternamn") &"')"
set objRS = objConn.Execute(sql)
%> 
<B>Uppgifter i en tabell</b> 
<P> 
<table> 
<tr> 
<td> Namn </td> 
<td> Efternamn </td> 

</tr> 
<%Do Whlie Not objRS.EOF%> 
<tr> 
<td><%=objRS("Förnamn")%>,<%=objRS("EfterNamn")%></td> 
</tr> 
<% 
objRS.MoveNext 
Loop
End IF
objRS.Close 
Set objRS = Nothing 
objConn.Close 
Set objConn = Nothing 
%> 
</table> 
</body> 
</html>
```

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

## #9 — Molna, 2002-11-11T22:14Z

En sak har jag undrat, vissa kör med .execute .. jag använder bara typ:
set objRS = server.createobject("ADODB.RecordSet")
objRS.OPEN "Insert into ... ", conn, 3, 1

Vad är skillnaden egentligen, och vad är bäst?

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

## #10 — LarsG, 2002-11-11T22:22Z

Open behöver bara användas vid select och bara om man vill ha ett recordset som man kan påverka vilka egenskaper det har.

alltså: insert/update/delete

connect.execute sql,,128

select

set rs = connect.execute(sql)

eller

set rs = server.createobject("adodb.recordset")
rs.open sql,connect

I de flesta fall behöver man aldrig använda open, det är bara om man vill ha ett frikopplat recordset eller i vissa situationer när man jobbar med lob (stora objekt).

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

## #11 — Molna, 2002-11-11T22:25Z

Hmm, ok, tar min version längre tid och mer kraft då? Skulle du rekommendera att jag gjorde med execute istället? Tycker bättre om "mitt" sätt :)

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

## #12 — LarsG, 2002-11-11T22:31Z

Om du gör insert/update/delete så är det mindre effektivt med din kod.

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

## #13 — Molna, 2002-11-11T22:33Z

Det var ju jobbigt.. men bra att veta :) Tackar

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/58768-kan-inte-lägga-till-information
