aspUpload

laddar den inte upp med file.save då

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

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
%>

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

Läs dokumentationen:

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

byt ut Request.Form till Upload.Form

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

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")