---
title: "aspUpload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/176424-aspupload/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2009-01-19T16:03:21.000Z"
updated: "2009-02-10T21:07:36.000Z"
replies: 25
views: 1121
page: 2
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/176424-aspupload"
---

# aspUpload

_Sida 2 av 2._

## #21 — WebbisNet, 2009-02-01T10:51Z

laddar den inte upp med file.save då

vad gör jag för fel???

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

## #22 — WebbisNet, 2009-02-01T11:02Z

la till asp jpeg för att skala ner och nu får jag dessutom access denied

```
<!-- #include virtual="/include/dbconn.asp" -->
<!-- #include virtual="/include/variabler.asp" -->
<%
'Ladda upp den valda bilden
Set File = Server.CreateObject("Persits.Upload")
File.Save Server.Mappath("../images/users")
File.SetMaxSize 50000, True

For Each File in File.Files
	If File.ImageType = "UNKNOWN" Then
		Response.Write "This is not an image."
		Response.End
	End If

	Dim objConn, FileName, username, userID
	userID = Session("userID")
	username = Session("username")
	FileName = userID & "." & File.ImageType

'Skala ner den uppladdade bilden
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.Mappath("../images/users")
L = 140
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
Jpeg.Save Server.Mappath("../images/users")

	SET objConn = connect()
	picture = "update tblUsers set picture='" & FileName & "' , fotovalidering=1 where userID=" & userID
	objConn.Execute(picture)
	Set objConn = Nothing

	sTo = "stefan@stene.nu"
	sFrom = "image@stene.nu"
	sSubject = "Fotovalidering från " & username & " [medlemsID " & userID & "]"
	sTextBody = "Det har anlänt ett nytt foto som ska valideras på "& title

	Set JMail = Server.CreateObject("JMail.SMTPMail")
	JMail.ServerAddress = "smtp.axentus.net"
	JMail.Sender = username
	JMail.Silent = true
	JMail.Logging = true
	JMail.AddRecipientBCC "stefan@stene.nu"
	JMail.Subject = sSubject
	JMail.Body = sTextBody
	JMail.Priority = 1
	If Not JMail.execute Then
		Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & "<BR>" & vbcrlf )
		Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & "<BR>" & vbcrlf )
		Response.Write( "LOG: <pre>" & JMail.Log & "</pre>" & vbcrlf )
	Else
		JMail.execute
	End If

	Response.Redirect "validatePhoto.asp?filename=" & FileName & "&id=" & userID & "&usr=" & username & "&size=" & File.Size & "&file=" & File.FileName
Next
%>
```

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

## #23 — WebbisNet, 2009-02-08T14:42Z

jag har skrivit om koden lite för att få det att funka men jag måste först veta hur jag ska få med bildnamnet från formen

```
<form method="post" name="frmUpload"  action="/pictureupload/preupload.asp" enctype="multipart/form-data">
<input size="30"  type="file">
<input class="button" type="submit" value="Ladda upp din bild" src="/images/icons/laddaupp.gif">
</form>
```

har testat med varUpload = Request.Form("frmUpload") på mottagande sidan
men jag får inte med nåt värde

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

## #24 — voigtann1, 2009-02-10T20:45Z

Läs dokumentationen:

<http://support.persits.com/show.asp?code=PS01041843>

byt ut Request.Form till Upload.Form

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

## #25 — WebbisNet, 2009-02-10T21:02Z

det är bara det att jag har lagt in en mellansida innan uppladdningen där jag ska hämta värdet som jag skickar till uppladdningen, på den sidan ska jag även fixa lite felhanteringar och sånt. Har även testat med upload.form utan resultat.....jag vet inte vad som är fel och det ser rätt ut

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

## #26 — WebbisNet, 2009-02-10T21:07Z

får inte med värdet hit ens från sidan där man väljer bild

```
'Ladda upp den valda bilden
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save(Server.MapPath("/images/users/"))

'Sätt lite variabler
userID = Session("userID")
username = Session("username")
strPath = Upload.Form("frmUpload")
filnamn = Right(strPath, Len(strLink) - InStrRev(strPath, "\"))

'Skala ner den uppladdade bilden
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
		response.write "Filnamnet är "& filnamn &" , "&strPath
		response.end
'Jpeg.Open Server.Mappath("/images/users/"& filnamn &"")
			L = 140
		Jpeg.Width = L
		Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
		Jpeg.Save Server.Mappath("../images/users/thumbnails")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/176424-aspupload/page2  
Föregående sida: https://www.webforum.nu/amne/asp/176424-aspupload.md