---
title: "lägg till i databasen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2006-10-24T22:46:41.000Z"
updated: "2006-10-25T13:33:13.000Z"
replies: 23
views: 751
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/152937-lägg-till-i-databasen"
---

# lägg till i databasen

_Sida 1 av 2._

## #1 — Jeppeweb, 2006-10-24T22:46Z

Laddar upp bilder till fotoalbumet, det fungerar, bilderna kommer upp på servern.. men för att kunna visa bilderna sen måste ju vissa kolumner fyllas i, vilket dom inte gör.. Inget händer i databasen!

```
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.Serv  erVariables("PATH_INFO")),pathEnd)&filename)
filename = session("cmalias") & "_" & filename
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/fotoalbum" & "\" & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

	SQL = "SELECT bild FROM fotoalbum WHERE id = "&Session("cmid")
	Set RecSet = Connect.execute(SQL)

	bild = filename

	Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"' WHERE id = "&Session("cmid")&"")

Response.Redirect "main.asp?page=62"
response.write "<b>Filen är nu uppladdad, vänta på att den ska bli accepterad</b>"
Connect.Execute("UPDATE fotoalbum set bild = 'ingen' WHERE ID="&Session("cmID")&" ")

Response.Redirect "main.asp?page=62"
Connect.Execute("UPDATE fotoalbum set bild = 'filename' WHERE id="&Session("vems")&" ")

%>
```

tacksam för hjälp

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

## #2 — yohpops, 2006-10-25T05:08Z

Du måste göra INSERT.

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

## #3 — doggelito, 2006-10-25T06:00Z

Du kan heller inte göra så här (eller kan kan du väl men det är inte rätt!):

```
Response.Redirect "main.asp?page=62"
Connect.Execute("UPDATE fotoalbum set bild = 'filename' WHERE id="&Session("vems")&" ")
```

Update-satsen körs aldrig då du har en redirect ovanför! :)

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

## #4 — Jeppeweb, 2006-10-25T07:11Z

Så hur skall det se ut annars då?

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

## #5 — Jeppeweb, 2006-10-25T07:24Z

Jag gjorde ett tappert försök o gissade mig lite fram, såklart fel då.. men;

```

MyFile.Close

	SQL = "SELECT bild FROM fotoalbum WHERE id = "&Session("cmid")
	Set RecSet = Connect.execute(SQL)

	bild = filename
	vems = userid

	Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"' WHERE id = "&Session("cmid")&"")

Datum = Now
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES('" & vems & "',#"& Datum &"#,'" & filename & "')"
Databas.Execute(SQL)

%>
```

Error Type:
Sun ONE ASP VBScript runtime (0x800A01A8)
Object required: 'Databas'
/outputfile2.asp, line 63

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

## #6 — nakoz, 2006-10-25T07:25Z

En redirect skickar besökaren vidare till en annan sida.

Skickar du vidare besökaren innan du kört din UPDATE kommer naturligtvis inget att uppdateras. Därför bör en redirect stå efter din UPDATE.

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

## #7 — Jeppeweb, 2006-10-25T07:34Z

Som du ser ovan har jag ingen redirect.

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

## #8 — jonne, 2006-10-25T07:56Z

Just felet ovan kommer från att du har Databas.Execute(SQL) istället för **Connect.Execute(SQL)**.
Sen vad det egentligen är du vill göra är ju en annan sak :)

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

## #9 — Jeppeweb, 2006-10-25T09:07Z

Jag vill så att filename sätts in i "bild" kolumnen och att "vems" fylls i med userid! :)

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

## #10 — nakoz, 2006-10-25T09:20Z

```
bild = cStr(RecSet("filename"))
vems = cLng(RecSet("userid"))
```

```
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"
```

vems är fortfarande ett tal å ska således inte ha några 'fnuttar' runt sig när du matar in det..

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

## #11 — Jeppeweb, 2006-10-25T09:40Z

```
MyFile.Close

	SQL = "SELECT bild FROM fotoalbum WHERE id = "&Session("cmid")
	Set RecSet = Connect.execute(SQL)

bild = cStr(RecSet("filename"))
vems = cLng(RecSet("userid"))

	Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"' WHERE id = "&Session("cmid")&"")

Datum = Now
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"Connect.Execute(SQL)

%>
```

Error Type:
Sun ONE ASP VBScript compilation (0x800A0401)
Syntax error, unexpected "identifier", expecting end of statement
/outputfile2.asp, line 63, column 113

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

## #12 — jonne, 2006-10-25T09:48Z

Connect.Execute(SQL) på egen rad.
Ett litet tips: Kolla igenom koden ett par gånger själv först innan du postar att det är fel

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

## #13 — Jeppeweb, 2006-10-25T10:09Z

Connect.Execute(SQL) på egen rad.

Vad menar du? :$

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

## #14 — jonne, 2006-10-25T10:21Z

```
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"Connect.Execute(SQL)
```

till

```
SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"
Connect.Execute(SQL)
```

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

## #15 — Jeppeweb, 2006-10-25T10:27Z

Hmm...

Error Type:
Sun ONE ASP VBScript runtime (0x800A0CC1)
ADO Could not find the object in the collection corresponding to the name or ordinal reference requested by the collection.
/outputfile2.asp, line 54

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

## #16 — jonne, 2006-10-25T10:35Z

Det där är ett så enkelt fel så det löser du själv genom att antingen använda sökfunktionen här på forumet eller via t.ex. [denna](http://www.google.com/search?q=Could%20not%20find%20the%20object%20in%20the%20collection%20corresponding%20to%20the%20name%20or%20ordinal%20reference%20requested%20by%20the%20collection.) länk på google

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

## #17 — Jeppeweb, 2006-10-25T10:40Z

Okej sökt lite, och läst runt, men fortfarande inte fattat vad som e fel, alla kolumner finns ju i db etc... 

så kan du vara en ängel och förklara :)

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

## #18 — jonne, 2006-10-25T10:44Z

Nej nu får du lösa detta själv :) Ett tips är att ursprunget till felet ligger här

```
SQL = "SELECT bild FROM fotoalbum WHERE id = "&Session("cmid")
```

Ps.
Se mitt svar i "din" andra tråd om felmeddelanden :)

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

## #19 — Jeppeweb, 2006-10-25T10:56Z

Gahh, har ju försökt.. 

MyFile.Close

	SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("id")
	Set RecSet = Connect.execute(SQL)

bild = cStr(RecSet("filename"))
vems = cLng(RecSet("userid"))

	Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"', vems = '"& vems &"' WHERE id = "&Session("cmid")&"")

Datum = Now
SQL = "INSERT INTO fotoalbum (\[vems\], \[datum\], \[filnamn\]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')"
Connect.Execute(SQL)
%\>

får fortfarande felmeddelande.. är det så lätt? jag anser då de inte vara lätt :)

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

## #20 — jonne, 2006-10-25T11:09Z

Du försöker ju leta efter Recset("filename") och det är där du får fel (antar jag eftersom du inte markerade vilken rad det var). Börja där och gå baklänges. RecSet objektet exekverar sql-satsen. Sql satsen innehåller vilka fält?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen  
Nästa sida: https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen/page2.md