---
title: "Hur får man bilden att sparas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/110398-hur-får-man-bilden-att-sparas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-08-30T21:50:49.000Z"
updated: "2004-08-31T16:11:45.000Z"
replies: 17
views: 477
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/110398-hur-får-man-bilden-att-sparas"
---

# Hur får man bilden att sparas

## #1 — WebbisNet, 2004-08-30T21:50Z

Har inte lyckats med att spara filen till disk och även in i databasen, nån som kan hjälpa???????

```
'Option Explicit

Dim objUpload
Dim strName
dim objFile
Dim objFile2
Dim varyErrors
Dim iErr
Dim blnErr

blnErr = False

Set objUpload = New overrUpload
	strName = objUpload("txtName")

	'Response.Write("Textfield txtName = " & strName)

	'## -- get the first file for upload --
	Set objFile = objUpload.Form("theFile")
		'## -- check if we have a file --
		If objFile.IsFile Then
			'## -- file exists. proceed saving file. --
			Call objFile.SaveToFile(Server.MapPath("/images/gallery/" & objFile.Filename), True)
			'## -- check if any errors occured --
			If objFile.HasErrors Then
				blnErr = True
				'## -- HUSTON! we got errors. proceed --
				'## -- get all error messages --
				varyErrors = objFile.GetErrors()
				'## -- loop through all errors --
				For iErr = 0 TO UBound(varyErrors)
					'## -- print out error --
					Response.Write(varyErrors(iErr) & "<hr>")
				Next
			End If
		End If
	Set objFile = Nothing
	
	'## -- get second file for upload --
	Set objFile2 = objUpload.Form("anotherFile")
		'## -- check if we have a file --
		If objFile2.IsFile Then
			'## -- file exists. proceed saving file. --
			Call objFile2.SaveToFile(Server.MapPath("/images/gallery/" & objFile2.Filename), True)
			'## -- check if any errors occured --
			If objFile2.HasErrors Then
				blnErr = True
				'## -- HUSTON! we got errors. proceed --
				'## -- get all error messages --
				varyErrors = objFile2.GetErrors()
				'## -- loop through all errors --
				For iErr = 0 TO UBound(varyErrors)
					'## -- print out error --
					Response.Write(varyErrors(iErr) & "<hr>")
				Next
			End If
		End If
	Set objFile2 = Nothing
Set objUpload = Nothing

%>

<%
Dim objConn
varTillhor= Session ("userID")
varInlagd = Now()
varNamn=strName
	SET objConn = connect()
	picture = "INSERT INTO tblUsers_Galleri"
	picture = picture & "(bild,tillhor,inlagd,alt) "
	picture = picture & "VALUES(objFile.Filename,"& varTillhor &",#"& varInlagd&"#,"& varNamn &")"
	'objConn.Execute picture
response.write picture
%>
<!--#include virtual="/pictureupload/upload1.asp"-->
<%'## -- check if we have any errors. If no errors redirect user to default page --
If blnErr = False Then Response.Redirect("/pictureupload/default1.asp")
```

ingenting händer efter uppladdning

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

## #2 — solbulle, 2004-08-30T22:02Z

Samma felmess som sist?

Jag skulle tippa, fast jag har haft en ganska hög felprocent på sista tiden ;) , att du får fel pga du har stängt ditt objekt, objFile, fast du försöker sen använda det.
Om du inte ens har lyckats spara filen till disk, får du felmess?
Finns mappen /images/gallery/?
Du ser ut att utgå från roten där.

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

## #3 — WebbisNet, 2004-08-30T22:05Z

> **solbulle skrev:**
>
> Samma felmess som sist?
> 
> Jag skulle tippa, fast jag har haft en ganska hög felprocent på sista tiden ;) , att du får fel pga du har stängt ditt objekt, objFile, fast du försöker sen använda det.
> Om du inte ens har lyckats spara filen till disk, får du felmess?
> Finns mappen /images/gallery/?
> Du ser ut att utgå från roten där.

Mappen finns och först fick jag felmess, object required....men nu bara kommer jag tillbaka till uppladdningssidan utan att nåt har sparats eller laddats upp

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

## #4 — solbulle, 2004-08-30T22:07Z

Kommentera bort raden med Response.Redirect och se vad du får för felmess samt sql-utskrift

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

## #5 — WebbisNet, 2004-08-30T22:11Z

INSERT INTO tblUsers_Galleri(bild,tillhor,inlagd,alt) VALUES(objFile.Filename,1,#2004-08-31 00:13:16#,test) när jag skriver ut

När jag ändrar objFile.Filename till '"&objFile.Filename&"' får jag
Microsoft VBScript runtime error '800a01a8' 

Object required 

/pictureupload/outputfile1.asp, line 74

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

## #6 — solbulle, 2004-08-30T22:16Z

För enkelhetens skull, testa att flytta ner raden:

Set objFile = Nothing

till längst ner på sidan.

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

## #7 — WebbisNet, 2004-08-30T22:20Z

> **solbulle skrev:**
>
> För enkelhetens skull, testa att flytta ner raden:
> 
> Set objFile = Nothing
> 
> till längst ner på sidan.

INSERT INTO tblUsers_Galleri(bild,tillhor,inlagd,alt) VALUES(Blåa kullar.jpg,1,#2004-08-31 00:21:47#,test)

och 
Microsoft JET Database Engine error '80040e14' 

Syntax error (missing operator) in query expression 'Blåa kullar.jpg'. 

/pictureupload/outputfile1.asp, line 75 

när jag exekverar

Rad 75 är objConn.Execute picture

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

## #8 — solbulle, 2004-08-30T22:22Z

picture = picture & "VALUES('"& objFile.Filename & "',"& varTillhor &",#"& varInlagd&"#,'"& varNamn &"')"

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

## #9 — WebbisNet, 2004-08-30T22:27Z

> **solbulle skrev:**
>
> picture = picture & "VALUES('"& objFile.Filename & "',"& varTillhor &",#"& varInlagd&"#,'"& varNamn &"')"

Nu kan du minska din felprocent, tack så jättemycket

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

## #10 — Jesper T, 2004-08-30T22:27Z

Alla strängar abc\_-"%eD?...osv skall omslutas av ' (enkelfnuttar)

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

## #11 — WebbisNet, 2004-08-30T22:46Z

> **Jesper T skrev:**
>
> Alla strängar abc\_-"%eD?...osv skall omslutas av ' (enkelfnuttar)

några filer gick fint, nu får jag 
Request object error 'ASP 0104 : 80004005' 

Operation not Allowed 

/pictureupload/upload1.asp, line 145 ERROR: Couldn´t find the form-field - txtname - in the collection.

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

## #12 — solbulle, 2004-08-30T22:52Z

txtname, har du ett fält som heter så i din form? Eller försöker du använda dig av det?
Koden på oh runt rad nr 145?

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

## #13 — WebbisNet, 2004-08-30T22:56Z

> **solbulle skrev:**
>
> txtname, har du ett fält som heter så i din form? Eller försöker du använda dig av det?
> Koden på oh runt rad nr 145?

ett fält som heter txtName måste finnas enligt skaparen av scriptet för att slippa nåt fel

Kodrad 135-155

```
	Dim UploadControl	'## -- replace with array --
		Dim pos				' As Integer
		Dim Name			'## -- remove. save to array --
		Dim posFile			' As Integer
		Dim posBound		' As Integer
		Dim Value			'## -- remove. save to array --
		Dim Filename		'## -- remove. save to array --
		Dim ContentType		'## -- remove. save to array --
		
		ByteCount = Request.TotalBytes
		RequestBin = Request.BinaryRead(byteCount)
		
			'# Begin boundary
			PosBeg = 1
			'PosEnd = InstrB(PosBeg, RequestBin, getByteString(chr(13)))
			PosEnd = InstrB(PosBeg, RequestBin, GetBytesFromString(chr(13)))
			boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
			boundaryPos = InstrB(1, RequestBin, boundary)
			'Get all data inside the boundaries
			Do until (boundaryPos = InstrB(RequestBin, boundary & GetBytesFromString("--")))
				'Members variable of objects are put in a dictionary object
```

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

## #14 — solbulle, 2004-08-30T23:00Z

> **WebbisNet skrev:**
>
> ett fält som heter txtName måste finnas enligt skaparen av scriptet för att slippa nåt fel

Hm... det där förstår jag inte riktigt, källa?

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

## #15 — WebbisNet, 2004-08-30T23:09Z

scriptet kommer från Override

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

## #16 — solbulle, 2004-08-30T23:15Z

Jo, och du har verkligen det fältet med i din form som du skickar till scriptet?
Du har inte bytt namn på det eller något?

Red,/ skriver som en trött mupp.

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

## #17 — WebbisNet, 2004-08-30T23:19Z

\<form action="/pictureupload/outputfile1.asp" method="post" enctype="multipart/form-data" name="form1"\>
Bild 1 \<input class="textbox" name="theFile" type="file" id="theFile"\> 

  \<p\>
\<!--Bild 2  \<input class="textbox" name="anotherFile" type="file" id="anotherFile"\>--\>
  \<p\>
  \<!--Other field:--\> 
  \<input name="txtName" type="text" id="txtName" value="test"\>\<br\>
  \<input class="button" type="submit" name="Submit" value="Skicka fil"\>
\</form\>

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

## #18 — WebbisNet, 2004-08-31T16:11Z

Varför får jag 

```
Request object error 'ASP 0104 : 80004005' 

Operation not Allowed 

/pictureupload/gallery/outputfile.asp, line 10
```

med raden RequestBin = Request.BinaryRead(byteCount)

hoppas att nån kan lösa problemet

filerna ligger på <Http://www.webbisen.com/download/gallery.zip>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/110398-hur-får-man-bilden-att-sparas