---
title: "Ok, ASPUpload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/80481-ok-aspupload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ceeron"
published: "2003-06-24T20:46:35.000Z"
updated: "2003-06-30T18:54:32.000Z"
replies: 7
views: 282
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/80481-ok-aspupload"
---

# Ok, ASPUpload

## #1 — Ceeron, 2003-06-24T20:46Z

Jag sitter här o försöker fixa ett upload script men det verkar inte funka speciellt bra om vi säger som så...

```
Set Upload = Server.CreateObject("Persits.Upload")

Upload.SetMaxSize 100000, True

'spara utan sökväg
Upload.Save

'ta fram katalogsökväg
Path = Server.Mappath(Session("ID") & "/")

'skapa katalogen och ladda upp
Upload.CreateDirectory Path, True

'spara filerna
For Each File in Upload.Files
	File.SaveAs Path & File.FileName
	Response.Write("File saved as "& File.Path)
Next
```

o sen så ser mitt formulär ut så här:

```
			Write "<br /><form method=""post"" enctype=""multipart/form-data"" target=""_blank"" action=""upload2.asp"">"
			Write "<input type=""hidden"" name=""mapp"" value=""" & intMapp & """ />"
			Write "Riktiga: <input type=""file"" name=""file1"" /><br />"
			'Write "Thumb: <input type=""file"" name=""blob2"" /><br />"
			Write "Längd : <input type=""text"" name=""width"" value=""640"" size=""3"" /> Höjd : <input type=""text"" name=""height"" value=""480"" size=""3"" /><br />"
			Write "Datum: <input type=""text"" name=""datum"" size=""10"" maxlength=""10"" /> "
			Write " Beskrivning:<br /><input type=""text"" size=""40"" name=""beskrivning"" /><br />"
			Write "<input type=""submit"" value=""Ladda upp"" />"
			Write "</form>"
```

Har bara gjort ett simpelt upload script som vägrar funka... får bara att sidan inte kan visas... har jag gjort nåt fel lr??

Snälla måste verkligen ha hjälp för det e typ ända settet för skiten att funka....

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

## #2 — SteveP, 2003-06-24T20:50Z

Har du kollat igenom dokumentationen på sidan? Finns alla sorters kodexempel där. Har du stängt av Friendly HTTP error messages?

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

## #3 — Ceeron, 2003-06-24T20:55Z

Wrong number of arguments or invalid property assignment: 'Upload.Save' 

Asså har kollat i deras dokumentation o tycker den suger lr rättare sagt jag fattar inte va som står där...

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

## #4 — solbulle, 2003-06-24T21:54Z

Testa:

```
Set Upload = Server.CreateObject("Persits.Upload")

Upload.SetMaxSize 100000, True

'spara utan sökväg
Upload.Save

'ta fram katalogsökväg
Path = Server.Mappath(Session("ID"))

'skapa katalogen och ladda upp
Upload.CreateDirectory Path, True

'spara filerna
For Each File in Upload.Files
	File.SaveAs Path & "\" & File.FileName
	Response.Write("File saved as "& File.Path)
Next
```

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

## #5 — Ceeron, 2003-06-29T23:51Z

testade följande:

```
	Dim objUpload		'Uplaod component
	Dim strNewFileName	'Holds the file name
	Dim strThumbFileName	'Holds the thumb file name

			'Create upload object
			Set objUpload = Server.CreateObject("Persits.Upload.1")

			With objUpload

				'make sure files aren't over written
				.OverwriteFiles = False

				'We need to save the file before we can find out anything about it
				'** Save virtual is used as saving to memory is often disabled by the web host **
				.SaveVirtual Session("ID")

				'Get the file name
				strNewFileName = .Files(1).ExtractFileName

				'Replace spaces with underscores
				strNewFileName = Replace(strNewFileName, " ", "_")

				'Remove brackets that aspUpload may put in when renaming a file
				strNewFileName = Replace(strNewFileName, "(", "", 1, -1, 1)
				strNewFileName = Replace(strNewFileName, ")", "", 1, -1, 1)

					'Save the file to disk with new file name
					'** Copy virtual is used as save as is often disabled by the web host **
					.Files(1).CopyVirtual Session("ID") & "\" & strNewFileName

					'As a new copy of the file is saved we need to get rid of the old copy
					.Files(1).Delete

			End With

			intWidth = objUpload.Form("width")
			intHeight = objUpload("height")
			strDatum = objUpload("datum")
			strBeskrivning = objUpload("beskrivning")

	Set objConnect = Server.CreateObject("ADODB.Connection")
	objConnect.Open "DSN=alkisarna"

	sql = "insert into bilder (anvID, mappID, fil, width, height, datum, uppladdad, beskrivning) values (" & Session("ID") & ", " & intMapp & ", '" & strNewFileName & "', " & intWidth & ", " & intHeight & ", #" & strDatum & "#, #" & Now() & "#, '" & strBeskrivning & "')"
	objConnect.Execute(sql),,128

	objConnect.Close : Set objConnect = Nothing

	'Response.Redirect("?mid=" & intMapp & """)

			'Clean up
			Set objUpload = Nothing
```

funkarom man inte har me nåt om db lr hämtar info från andra textfält... hur ska man egentligen skriva för att spara infon osv?

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

## #6 — solbulle, 2003-06-30T12:38Z

Vad får du för felmess på den sista koden?

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

## #7 — Ceeron, 2003-06-30T18:47Z

Får bara sidan kan inte visas... men den hinner iag ladda upp bilden jag drar upp men tar inte emot nåt annat från formuläret...
Kör direkt på mitt webbhotel för har inte komponenten på min burk

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

## #8 — solbulle, 2003-06-30T18:54Z

Slå av "Visa egna felmeddelanden" eller vad det nu heter i IE, då lär du få ett bättre felmeddelande.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/80481-ok-aspupload