---
title: "Ladda upp bild funktion..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/94094-ladda-upp-bild-funktion"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2004-01-06T16:55:55.000Z"
updated: "2004-01-06T17:13:41.000Z"
replies: 1
views: 202
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/94094-ladda-upp-bild-funktion"
---

# Ladda upp bild funktion...

## #1 — DiDjo, 2004-01-06T16:55Z

Hej! Jag har problem med ladda upp bild funktion!

Här är koden:

```
Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 100576 ' Truncate files above 100kb
Upload.Save server.mappath("bilder/uppladdat/")
For Each File in Upload.Files
bilden = File.ExtractFileName
   If File.ImageType <> "JPG" Then
      File.Delete
      Session("fel") = "Du kan bara ladda upp JPG bilder."
      Response.redirect("bild_laddaupp.asp")
   End If

Next

if bilden="" Then
    Session("fel") = "Du måste bläddra efter en fil!"
	response.redirect("bild_laddaupp.asp")
else

Set Connect1 = Server.CreateObject("ADODB.Connection")
Connect1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("*.mdb")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM bilder"
rs1.Open Addera, Connect1, 3, 3

	
if not rs1eof then
		'om det är en riktig bild, plocka bort den!
		if rs("bild") <> "bilder/profil_ingen.jpg" then 
			strPath=server.mapPath(rs("bild"))				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
		end if

		bild ="bilder/uppladdat/" & bilden
		    rs1.addnew
			rs1("bild") = bild
			rs1("vems") = gnamn
			rs1.Update
	end if
	end if
```

Felet är att den aldrig laddar upp bilden... Varför inte?

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

## #2 — DiDjo, 2004-01-06T17:13Z

Det fungerar nu, vet inte varför :S

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/94094-ladda-upp-bild-funktion