---
title: "bild sparas inte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/116187-bild-sparas-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2004-11-18T14:29:06.000Z"
updated: "2004-11-20T18:58:41.000Z"
replies: 13
views: 327
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/116187-bild-sparas-inte"
---

# bild sparas inte

## #1 — WebbisNet, 2004-11-18T14:29Z

använder ASP Upload och bilden sparas inte, nån som kan se varför

```
Set File = Upload.Files
filnamn = Upload.form("blob")
game= Upload.form("gameName")
points = Upload.form("gamePoints")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  
END IF

Dim objConn
player=Session("username")
uploaded = Now()

	SET objConn = connect()
	SQL = "update tblUsers_toplist set player='"& player &"' ,points='"& points &"' ,picture='"& filnamn &"' ,uploaded=#"& uploaded &"# WHERE game='"& game &"'"
	'response.write SQL
	'response.end
	objConn.Execute(SQL)
```

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

## #2 — @nders, 2004-11-18T14:31Z

Jag ser inte att du kör någon metod för att spara filen?

edit: varför har du *on error resume next* i koden?

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

## #3 — WebbisNet, 2004-11-18T14:34Z

> **@nders skrev:**
>
> Jag ser inte att du kör någon metod för att spara filen?

Nåt förslag på en lösning?

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

## #4 — @nders, 2004-11-18T14:35Z

Hmm... Står det inte i manulen hur man använder komponenten? Jag har aldrig använt den.

Om du inte såg min redigering ovan: varför har du on error resume next i koden?

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

## #5 — WebbisNet, 2004-11-18T15:06Z

> **@nders skrev:**
>
> Hmm... Står det inte i manulen hur man använder komponenten? Jag har aldrig använt den.
> 
> Om du inte såg min redigering ovan: varför har du on error resume next i koden?

detta funkar inte heller, nån som kan?????

```
If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files
filnamn = Upload.form("blob")
game= Upload.form("gameName")
points = Upload.form("gamePoints")

Dim objConn
player=Session("username")
uploaded = Now()

SET objConn = connect()

picture = "INSERT INTO tblUsers_toplist WHERE game='"& game &"'"
	picture = picture & "(picture) "
	picture = picture & "VALUES('"& filnamn &"')"
	'response.write SQL
	'response.end
	objConn.Execute picture

	objConn.Execute("update tblUsers_toplist set player='"& player &"' ,points='"& points &"',uploaded=#"& uploaded &"# WHERE game='"& game &"'")
```

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

## #6 — @nders, 2004-11-18T19:02Z

Var exekverar du metoden .Save? 

När du kör utan *on error resume next*, får du något felmeddelande?

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

## #7 — WebbisNet, 2004-11-18T19:36Z

> **@nders skrev:**
>
> Var exekverar du metoden .Save? 
> 
> När du kör utan *on error resume next*, får du något felmeddelande?

.Save har jag aldrig hört talas om, får inget felmeddelande

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

## #8 — @nders, 2004-11-18T19:39Z

Då föreslår jag att du läser manualen innan du går vidare. Man kan ju inte bara gissa hur saker och ting fungerar...

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

## #9 — WebbisNet, 2004-11-18T19:41Z

> **@nders skrev:**
>
> Då föreslår jag att du läser manualen innan du går vidare. Man kan ju inte bara gissa hur saker och ting fungerar...

jag fick ett kodexempel av nån här på wF som jag gjorde om och den fungerar perfekt till mitt bildgalleri, men samma kod fungerar inte till den här uppgiften

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

## #10 — @nders, 2004-11-18T19:42Z

Hur ser den koden ut då, när du använder den i bildgalleriet?

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

## #11 — WebbisNet, 2004-11-18T20:57Z

> **@nders skrev:**
>
> Hur ser den koden ut då, när du använder den i bildgalleriet?

Visar här hela koden

```
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/images/gallery"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files

filnamn = Upload.form("blob")
kommentar = Upload.form("kommentar")
upplagd= Upload.form("upplagd")
'mark= Upload.form("mark")
'category = Upload.form("category")
'ja = Upload.form("ja")
'price = Upload.form("price")
'phone = Upload.form("phone")
'email = Upload.form("email")
'stad = Upload.form("stad")
'password = Upload.form("password")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

'strFileName1= Upload.Files("blob1").ExtractFileName 

'strFileName2 = Upload.Files("blob2").ExtractFileName 

'strFileName3 = Upload.Files("blob3").ExtractFileName 

END IF
   

Dim objConn
varTillhor=Session("userID")
upplagd = Now()
varNamn=strName
varKommentar=strKommentar
	SET objConn = connect()
	picture = "INSERT INTO tblUsers_Galleri"
	picture = picture & "(bild,tillhor,inlagd,kommentar) "
	picture = picture & "VALUES('"&filnamn&"','"& varTillhor &"',#"& upplagd&"#,'"& kommentar &"')"
	'objConn.Execute picture
	response.write picture
	%>
```

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

## #12 — @nders, 2004-11-19T04:23Z

I den koden kör du ju metoden .Save, så det är inte så konstigt att filen sparas då.

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

## #13 — WebbisNet, 2004-11-19T12:29Z

> **@nders skrev:**
>
> I den koden kör du ju metoden .Save, så det är inte så konstigt att filen sparas då.

Här är hela koden som inte fungerar

```
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/flash/games/printscreens"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files
filnamn = Upload.form("blob")
game= Upload.form("gameName")
points = Upload.form("gamePoints")

Dim objConn
player=Session("username")
uploaded = Now()

	SET objConn = connect()
	SQL = "update tblUsers_toplist set player='"& player &"' ,game='"& game &"' ,points='"& points &"' ,picture='"& filnamn &"' ,uploaded=#"& uploaded &"# WHERE gameName=" & request.form("gameName") & ""
	response.write SQL
	'response.end
	objConn.Execute(SQL)
```

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

## #14 — @nders, 2004-11-20T18:58Z

Vad innehåller *count* då, efter det att du kört .Save?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/116187-bild-sparas-inte