Hejsan! Skriv gärna vilket felmeddelande som du får, det underlättar att felsöka. Problemet är att den in visar något felmeddelande. testa att "lusa" av koden genom att skriva ut olika saker i de olika IF satserna, på så sätt så ser du om de körs överhuvudtaget.Problem med upload?
Detta är lite skumt, för ungefär 1 månad sen slutade min upload funktion fungera. Detta var i samarbete med att mitt webhotel uppgraderade säkerheten för FSO, det slutade med att vi fick en enda mapp där all uploading skulle riktas mot.
Jag gick in i min kod och ändrade till den nya, men visst fungerade det inte ändå. Har skrivit kanske 20 mail till webhotellet och frågat vad dem har ändrat och vadför inte den gamla koden som har fungerat i 1 år inte fungerar nu, men utan något seriöst svar. Mitt webhotell är Web10.se.
Hade varit mycket tacksamt om någon la sin tid på att kolla koden, för har som sagt gjort allt jag kan.
Nu till min kod:
test.asp
<code>
<html>
<p>Välj bildfil:<BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<P>
<INPUT name="submit" TYPE=SUBMIT VALUE="Ladda upp bild">
<input name="ID" type="hidden" value="100" ID="100">
</FORM>
</html>
</code>
upload.asp
<code>
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Set Image = Server.CreateObject("AspImage.Image")
Upload.SetMaxSize 100000, True
On Error Resume Next
Upload.Save ("c:\mittwebhotell.se\mittkonto\uploadmappen")
If Err.Number = 8 Then
Response.Write "Bilden är för stor!. <br><br>Försök igen!"
Else
If Err <> 0 Then
Response.Write "Ett fel har uppstått: " & Err.Description
End If
End If
For Each File in Upload.Files
If File.ImageType <> "JPG" Then
Response.Write "<b>Detta är inte en JPEG bild!.</b><br><br>Ladda upp en ny bild"
File.Delete
Response.End
End If
strFileName = "" & File.ExtractFileName
ID = Upload.Form("ID")
Image.AutoSize = false
Image.LoadImage("c:\mittwebhotell.se\mittkonto\uploadmappen" & strFileName & "")
'Image.LoadImage Server.MapPath("../gfx/car/" & strFileName & "")
ImgHeight = Image.MaxY
F = Image.MaxX / Image.MaxY
Width = 300
Height = 300/F
Image.ResizeR Width, Height
Image.FileName = "c:\mittwebhotell.se\mittkonto\uploadmappen" & ID & ".jpg"
Image.SaveImage
Image.LoadImage("c:\mittwebhotell.se\mittkonto\uploadmappen" & strFileName & "")
'Image.LoadImage Server.MapPath("../gfx/car/" & strFileName & "")
ImgHeight = Image.MaxY
Width = 125
Height = 125/F
Image.ResizeR Width, Height
Image.FileName = "c:\mittwebhotell.se\mittkonto\uploadmappen" & ID & ".jpg"
Image.JPEGQuality = 40
Image.SaveImage
Set Image = nothing
File.Delete
%>
<p><- Tillbaka</p>
<P>
<%
Next
%>
</BODY>
</HTML>
</code>Sv: Problem med upload?
Oftast så brukar det ju vara ett rättighetsproblem och om det är kompetenta killar som driver webhotell så klarar de av att lösa problemet.
//Anna-KarinSv:Problem med upload?
Utan upload.asp visar endast:
<code>
<HTML>
<BODY>
</BODY>
</HTML>
</code>
Preis som om den skippar själva koden.Sv: Problem med upload?
//Anna-Karin