kan nån se varför jag får
Persits.Upload.1 error '800a0005'
The system cannot find the file specified.
/pictureupload/outputfile.asp, line 6
med den här koden
<!-- #include virtual="/include/dbconn.asp" -->
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/images/users/")) <--Rätt sökväg
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")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName
END IF
Dim objConn
SET objConn = connect()
picture = "update tblUsers set picture='"& filnamn &"' where userID=" & Session("userID")
objConn.Execute(picture)
%>
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("/images/users/" & filnamn))
Image.FileName = (Server.MapPath("/images/users/"))
Image.ImageFormat = 1
Image.JPEGQuality = 70
Image.Resize 120,80
Image.SaveImage
Set Image = Nothing
%>
<%response.redirect "/pictureupload/default.asp?filename=" & filename & "&message=pic"%>