Det var fel mapp jag laddade upp i. Man får endast ladda upp saker i mappen "upload" tydligen. =/
Aja... om det finns någon snäll Gud där ute som vet hur man sätter namn på filen samt kollar så den är bildformat och inte större än t.ex. 50kb.. så... ;-)
Det blir dock fel när den kollar om filen är för stor. Det blir inget felmess utan filen läggs inte till oavsett om den är större eller mindre samt att ingen text kommer upp. (filen är för stor...)
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 22000, True
On Error Resume Next
Upload.Save
Path = Server.MapPath("upload")
FileName = "bild"
For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Write "Filen är ingen bild!"
Response.End
ElseIf Err.Number = 8 Then
Response.Write "Filen är för stor!"
Else
File.SaveAs Path & "\" & FileName & "." & File.ImageType
Response.Write "Uppladningen lyckades!"
End If
Next
%>
Med denna kod fungerar det, men IF-satsen för att kolla om den är för står fungerar inte.
<%
Set Upload = Server.CreateObject("Persits.Upload")
On Error Resume Next
Upload.Save
Path = Server.MapPath("upload")
FileName = "bild"
Upload.SetMaxSize 22, True
For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Write "Filen är ingen bild!"
Response.End
ElseIf Err.Number = 8 Then
Response.Write "Filen är för stor!"
Else
File.SaveAs Path & "\" & FileName & "." & File.ImageType
Response.Write "Uppladningen lyckades!"
End If
Next
%>