---
title: "svår kod ska sparas i databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92887-svår-kod-ska-sparas-i-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thompa__85"
published: "2003-12-17T08:25:07.000Z"
updated: "2003-12-17T21:50:51.000Z"
replies: 26
views: 572
page: 1
pages: 2
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/92887-svår-kod-ska-sparas-i-databas"
---

# svår kod ska sparas i databas

_Sida 1 av 2._

## #1 — Thompa__85, 2003-12-17T08:25Z

Hejsan!
jag har ett litet problem...
denna kod:

```
varde = Request.Cookies(""& Session.SessionID &"")
hamta = Split(varde,"&")
ReDim MyArray(4,Ubound(hamta))
for x = 0 to ubound(hamta)
hamta2 = Split(hamta(x),"=")
IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then
SQL = "SELECT * FROM produkter WHERE id =" & int(hamta2(0))
Set RecSet = Connect.Execute(SQL)
MyArray(0,x) = hamta2(0)
MyArray(1,x) = hamta2(1)
MyArray(2,x) = RecSet("artnr")
MyArray(3,x) = RecSet("namn")
MyArray(4,x) = RecSet("pris")
```

.. skulle jag vilja spara i en databas vid namn saker.mdb..
Men detta är tok för svår kod för mig :/ Så vet inte alls hur jag ska göra... :S
någon som kan hjälpa mig?

Mvh Adde

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

## #2 — Palle, 2003-12-17T09:09Z

En variant.. 

```
[red]strInsertString = ""& vbcrlf &_
"varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
"hamta = Split(varde,""&"")"& vbcrlf &_
"ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
"for x = 0 to ubound(hamta)"& vbcrlf &_
"hamta2 = Split(hamta(x),""="")"& vbcrlf &_
"IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
"SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
"Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
"MyArray(0,x) = hamta2(0)"& vbcrlf &_
"MyArray(1,x) = hamta2(1)"& vbcrlf &_
"MyArray(2,x) = RecSet(""artnr"")"& vbcrlf &_
"MyArray(3,x) = RecSet(""namn"")"& vbcrlf &_
"MyArray(4,x) = RecSet(""pris"")"

...		

sql = "INSERT INTO tblTable (fldField) VALUES('"& CStr(strInsertString) &"')"[/red]
```

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

## #3 — Thompa__85, 2003-12-17T09:30Z

> **Palle skrev:**
>
> En variant.. 
>
> ```
> [red]strInsertString = ""& vbcrlf &_
> "varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
> "hamta = Split(varde,""&"")"& vbcrlf &_
> "ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
> "for x = 0 to ubound(hamta)"& vbcrlf &_
> "hamta2 = Split(hamta(x),""="")"& vbcrlf &_
> "IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
> "SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
> "Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
> "MyArray(0,x) = hamta2(0)"& vbcrlf &_
> "MyArray(1,x) = hamta2(1)"& vbcrlf &_
> "MyArray(2,x) = RecSet(""artnr"")"& vbcrlf &_
> "MyArray(3,x) = RecSet(""namn"")"& vbcrlf &_
> "MyArray(4,x) = RecSet(""pris"")"
> 
> ...		
> 
> sql = "INSERT INTO tblTable (fldField) VALUES('"& CStr(strInsertString) &"')"[/red]
> ```

Okej, då har jag gjort så här:

```
<%
Response.Buffer = true

strInsertString = ""& vbcrlf &_
"varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
"hamta = Split(varde,""&"")"& vbcrlf &_
"ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
"for x = 0 to ubound(hamta)"& vbcrlf &_
"hamta2 = Split(hamta(x),""="")"& vbcrlf &_
"IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
"SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
"Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
"MyArray(0,x) = hamta2(0)"& vbcrlf &_
"MyArray(1,x) = hamta2(1)"& vbcrlf &_
"MyArray(3,x) = RecSet(""sak"")"& vbcrlf &_
"MyArray(4,x) = RecSet(""antal"")"

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../databas/saker.mdb")
sql = "INSERT INTO saker (fldField) VALUES('"& CStr(strInsertString) &"')"
%>
```

Men, det händer inget.. det blir bara en vit sida och inget sparas i databasen.. :/ varför?

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

## #4 — OveRRidE, 2003-12-17T09:59Z

Du kanske borde exekvera SQL-satsen också. Som det är just nu så har du typ bilnyckeln i fickan och undrar varför inte motorn brummar. 

```
<%
Response.Buffer = true

strInsertString = ""& vbcrlf &_
"varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
"hamta = Split(varde,""&"")"& vbcrlf &_
"ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
"for x = 0 to ubound(hamta)"& vbcrlf &_
"hamta2 = Split(hamta(x),""="")"& vbcrlf &_
"IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
"SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
"Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
"MyArray(0,x) = hamta2(0)"& vbcrlf &_
"MyArray(1,x) = hamta2(1)"& vbcrlf &_
"MyArray(3,x) = RecSet(""sak"")"& vbcrlf &_
"MyArray(4,x) = RecSet(""antal"")"

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../databas/saker.mdb")
sql = "INSERT INTO saker (fldField) VALUES('"& CStr(strInsertString) &"')"
[b]Connect.Execute(sql),,128[/b]
Connect.Close
Set Connect = Nothing
%>
```

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

## #5 — Thompa__85, 2003-12-17T10:31Z

> **OveRRidE skrev:**
>
> Du kanske borde exekvera SQL-satsen också. Som det är just nu så har du typ bilnyckeln i fickan och undrar varför inte motorn brummar. 
> 
>
>
> ```
> <%
> Response.Buffer = true
> 
> strInsertString = ""& vbcrlf &_
> "varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
> "hamta = Split(varde,""&"")"& vbcrlf &_
> "ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
> "for x = 0 to ubound(hamta)"& vbcrlf &_
> "hamta2 = Split(hamta(x),""="")"& vbcrlf &_
> "IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
> "SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
> "Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
> "MyArray(0,x) = hamta2(0)"& vbcrlf &_
> "MyArray(1,x) = hamta2(1)"& vbcrlf &_
> "MyArray(3,x) = RecSet(""sak"")"& vbcrlf &_
> "MyArray(4,x) = RecSet(""antal"")"
> 
> Set Connect = Server.CreateObject("ADODB.Connection") 
> Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../databas/saker.mdb")
> sql = "INSERT INTO saker (fldField) VALUES('"& CStr(strInsertString) &"')"
> [b]Connect.Execute(sql),,128[/b]
> Connect.Close
> Set Connect = Nothing
> %>
> ```

Hehe oj då.. :r 
Vilken tavla.. 

Nu kommer jag lite längre ;)
med detta fel:

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: 'fldField'. Make sure you have typed the name correctly, and try the operation again. 

/2/shoppen/order.asp, line 22
```

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

## #6 — Thompa__85, 2003-12-17T10:34Z

Fixade de.. men detta e det som den sparar:

varde = Request.Cookies("& Session.SessionID &")

varför då?

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

## #7 — Thompa__85, 2003-12-17T10:40Z

Om ni inte fattar vad jag snackar om...
så bifogar jag 2 filer:
default.asp = där ifrån skickas man till order.asp där den ska spara i databasen...

Vore JÄTTE tacksam om ni kunde kolla på det.. gör vad som helst i gentjänst ;)

Bilagor:

- [default.asp.txt](https://www.webforum.nu/a/2447.txt)

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

## #8 — Thompa__85, 2003-12-17T10:41Z

...och order.asp

Som sagt.. jätte tacksam om ni orkar kolla igenom...

Tack!

Bilagor:

- [order.asp.txt](https://www.webforum.nu/a/2448.txt)

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

## #9 — Thompa__85, 2003-12-17T18:31Z

Någon som kan..? :/

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

## #10 — mikul, 2003-12-17T20:02Z

Detta kommer att skriva ut din SQL-fråga. Posta den här så kan vi kolla på det mer då ;) 

```
<!--#include file="installningar.asp"-->
<%
     Response.Buffer = true

     strInsertString = ""& vbcrlf &_
          "varde = Request.Cookies(""& Session.SessionID &"")"& vbcrlf &_
          "hamta = Split(varde,""&"")"& vbcrlf &_
          "ReDim MyArray(4,Ubound(hamta))"& vbcrlf &_
          "for x = 0 to ubound(hamta)"& vbcrlf &_
          "hamta2 = Split(hamta(x),""="")"& vbcrlf &_
          "IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then"& vbcrlf &_
          "SQL = ""SELECT * FROM produkter WHERE id =""& int(hamta2(0))"& vbcrlf &_
          "Set RecSet = Connect.Execute(SQL)"& vbcrlf &_
          "MyArray(0,x) = hamta2(0)"& vbcrlf &_
          "MyArray(1,x) = hamta2(1)"& vbcrlf &_
          "MyArray(3,x) = RecSet(""sak"")"& vbcrlf &_
          "MyArray(4,x) = RecSet(""antal"")"

     sql = "INSERT INTO saker (sak) VALUES('"& CStr(strInsertString) &"');"

     Response.Write("SQL = """& SQL & """")
     Response.End()

     Set Connect = Server.CreateObject("ADODB.Connection") 

          Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../databas/saker.mdb")
          Connect.Execute(sql),,128
          Connect.Close

     Set Connect = Nothing
%>
```

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

## #11 — Thompa__85, 2003-12-17T20:04Z

Wee :) detta får jag ut nu:

```
SQL = "INSERT INTO saker (sak) VALUES(' varde = Request.Cookies("& Session.SessionID &") hamta = Split(varde,"&") ReDim MyArray(4,Ubound(hamta)) for x = 0 to ubound(hamta) hamta2 = Split(hamta(x),"=") IF Len(hamta2(0)) > 0 AND len(hamta2(1)) > 0 then SQL = "SELECT * FROM produkter WHERE id ="& int(hamta2(0)) Set RecSet = Connect.Execute(SQL) MyArray(0,x) = hamta2(0) MyArray(1,x) = hamta2(1) MyArray(3,x) = RecSet("sak") MyArray(4,x) = RecSet("antal")');"
```

säger det dig nått..?

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

## #12 — mikul, 2003-12-17T20:46Z

Det ser ju rätt ut...
Får du nått felmeddelande?

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

## #13 — Thompa__85, 2003-12-17T20:50Z

> **mikul skrev:**
>
> Det ser ju rätt ut...
> Får du nått felmeddelande?

Det blir helt vitt :s
å den sparar så här i  databasen:

varde = Request.Cookies("& Session.SessionID &")

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

## #14 — mikul, 2003-12-17T20:52Z

Hur skriver du ut kolumnen sak sen? Kan du visa den koden/sidan?

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

## #15 — Thompa__85, 2003-12-17T20:57Z

> **mikul skrev:**
>
> Hur skriver du ut kolumnen sak sen? Kan du visa den koden/sidan?

Men jag kollade i databasen...

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

## #16 — mikul, 2003-12-17T21:09Z

Ja men om du har en access databas så syns inte alla raderna om du har radbrytning i texten du skickar med...

Så antagligen ligger felet i utskriften med tanke på att det inte syns någonting där.

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

## #17 — solbulle, 2003-12-17T21:11Z

"Brum, brum." ;)

Är du HELT säker på att det inte finns mer data i databasen?
Om du markerar texten i fältet i db o kikar "åt sidan o neråt"?
Du har ju radbrytningar i din kod som kan göra det svårt att se det i access.

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

## #18 — solbulle, 2003-12-17T21:15Z

Me = långsam. :(

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

## #19 — LeonL, 2003-12-17T21:18Z

> **Thompa__85 skrev:**
>
> å den sparar så här i  databasen:
> 
> varde = Request.Cookies("& Session.SessionID &")

Står det verkligen rätt? ;) Ska det inte vara: 

```
varde = Request.Cookies(Session.SessionID)
```

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

## #20 — Thompa__85, 2003-12-17T21:19Z

> **solbulle skrev:**
>
> "Brum, brum." ;)
> 
> Är du HELT säker på att det inte finns mer data i databasen?
> Om du markerar texten i fältet i db o kikar "åt sidan o neråt"?
> Du har ju radbrytningar i din kod som kan göra det svårt att se det i access.

Har tyvärr förstorat, dragit isär allt i databasen.. men de verkar som om den bara innehåller de där tyvärr :/

Men kan säkert vara nått fel i default.asp kanske? bifogar den igen...

Bilagor:

- [default.asp.txt](https://www.webforum.nu/a/2447.txt)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/92887-svår-kod-ska-sparas-i-databas  
Nästa sida: https://www.webforum.nu/amne/asp/92887-svår-kod-ska-sparas-i-databas/page2.md