--- title: "SetMaxSize" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/154852-setmaxsize" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Jeppeweb" published: "2006-12-13T19:37:32.000Z" updated: "2006-12-14T09:03:59.000Z" replies: 11 views: 481 page: 1 pages: 1 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/154852-setmaxsize" --- # SetMaxSize ## #1 — Jeppeweb, 2006-12-13T19:37Z ``` <% Set Upload = Server.CreateObject("Persits.Upload") ' we use memory uploads, so we must limit file size Upload.SetMaxSize 100000, True ' Save to memory. Path parameter is omitted Upload.Save text = Upload.Form("text") ' Save files to it. Our form has only one file item ' but this code is generic. For Each File in Upload.Files filename = Session("cmalias") &"_"& File.FileName File.SaveAs server.mappath("bilder/fotoalbum") &"\"& filename Next vems = Session("cmid") datum = Now Connect.Execute("INSERT INTO fotoalbum (vems, bild, datum, text) VALUES('"& vems &"','"& filename &"','"& datum &"','"& text &"')") Session("upload") = "Filen blev godkänd och har lagts in i fotoalbumet!" Response.Redirect("?page=62") %> ``` Hur gör jag för att få upp en ruta eller på något sett visa att filen överskrider max tillåtna filstorleken ? Jag vill undvika ett vanligt felmeddelande alá; Persits.Upload.1 error '800a0008' At least one of the uploaded files exceeds the maximum allowed size. /laddaupp_foto.asp, line 8 Tack för hjälpen! Permalänk: https://www.webforum.nu/p/154852 ## #2 — Jeppeweb, 2006-12-14T07:56Z Någon? Permalänk: https://www.webforum.nu/p/1909912 ## #3 — @nders, 2006-12-14T08:05Z Permalänk: https://www.webforum.nu/p/1909913 ## #4 — Jeppeweb, 2006-12-14T08:28Z ``` <% Set Upload = Server.CreateObject("Persits.Upload") Upload.SetMaxSize 50000, True On Error Resume Next Upload.Save text = Upload.Form("text") ' Save files to it. Our form has only one file item ' but this code is generic. For Each File in Upload.Files filename = Session("cmalias") &"_"& File.FileName File.SaveAs server.mappath("bilder/fotoalbum") &"\"& filename If Err.Number = 8 Then Response.Write "Your file is too large. Please try again." Else If Err <> 0 Then Response.Write "An error occurred: " & Err.Description Else Response.Write "Success!" vems = Session("cmid") datum = Now Connect.Execute("INSERT INTO fotoalbum (vems, bild, datum, text) VALUES('"& vems &"','"& filename &"','"& datum &"','"& text &"')") End If End If %> ``` Microsoft VBScript compilation error '800a03fc' Expected 'Next' /laddaupp_foto.asp, line 33 Permalänk: https://www.webforum.nu/p/1909916 ## #5 — @nders, 2006-12-14T08:33Z Tips för att tolka felmeddelandet. "Expected Next" -\> "Next förväntas". Om du jämför din kod så kan du kanske se var / varför ett "next" förväntas. Permalänk: https://www.webforum.nu/p/1909919 ## #6 — Jeppeweb, 2006-12-14T08:40Z det enda jag kan tänka mig att ett next ska sitta är här; ``` [b]next[/b] vems = Session("cmid") datum = Now Connect.Execute("INSERT INTO fotoalbum (vems, bild, datum, text) VALUES('"& vems &"','"& filename &"','"& datum &"','"& text &"')") End If End If ``` Men då får jag unexpected next ^^ Permalänk: https://www.webforum.nu/p/1909922 ## #7 — voigtann1, 2006-12-14T08:43Z om du har lite struktur i dina koder så kan man rätt lätt få reda på vad felet kan vara: ``` <% Set Upload = Server.CreateObject("Persits.Upload") Upload.SetMaxSize 50000, True On Error Resume Next Upload.Save text = Upload.Form("text") ' Save files to it. Our form has only one file item ' but this code is generic. For Each File in Upload.Files filename = Session("cmalias") &"_"& File.FileName File.SaveAs server.mappath("bilder/fotoalbum") &"\"& filename If Err.Number = 8 Then Response.Write "Your file is too large. Please try again." Else If Err <> 0 Then Response.Write "An error occurred: " & Err.Description Else Response.Write "Success!" vems = Session("cmid") datum = Now Connect.Execute("INSERT INTO fotoalbum (vems, bild, datum, text) VALUES('"& vems &"','"& filename &"','"& datum &"','"& text &"')") End If End If ' **** Hint **** %> ``` Permalänk: https://www.webforum.nu/p/1909924 ## #8 — @nders, 2006-12-14T08:44Z Om du ser till att indentera koden ordentligt så ser du var next ska vara: ``` For Each File in Upload.Files filename = Session("cmalias") &"_"& File.FileName File.SaveAs server.mappath("bilder/fotoalbum") &"\"& filename If Err.Number = 8 Then Response.Write "Your file is too large. Please try again." Else If Err <> 0 Then Response.Write "An error occurred: " & Err.Description Else Response.Write "Success!" vems = Session("cmid") datum = Now Connect.Execute("INSERT INTO fotoalbum (vems, bild, datum, text) VALUES('"& vems &"','"& filename &"','"& datum &"','"& text &"')") End If End If Next ``` Permalänk: https://www.webforum.nu/p/1909925 ## #9 — Jeppeweb, 2006-12-14T08:53Z Tack. Hur gör jag för att visa felmeddelanden respektive "Succed" på "?page=62" istället? Permalänk: https://www.webforum.nu/p/1909926 ## #10 — voigtann1, 2006-12-14T08:54Z ersätt response.write med Session("upload") Permalänk: https://www.webforum.nu/p/1909927 ## #11 — Jeppeweb, 2006-12-14T09:00Z ``` If Err.Number = 8 Then Session("upload") = "Din bild är för stor. Gör bilden mindre eller försök med en annan :)" Response.Redirect("?page=62") Else If Err <> 0 Then Response.Write "An error occurred: " & Err.Description ``` Funkar inte .. ? Skickas bara till en tom sida. Permalänk: https://www.webforum.nu/p/1909929 ## #12 — voigtann1, 2006-12-14T09:03Z kan ju vara att du klarar din uppladdning av bilden i ELSE satsen... och då gör den väl inget... lägg Response.Redirect("?page=62") utanför for och NEXT kan även vara att du exemplevis din kod ligger i upload.asp dvs din redirect kanske skulle gå till default.asp Kontrollera vart du vill att den ska redirekta till ... mitt tips är att använda hela filnamnet dvs \\ Permalänk: https://www.webforum.nu/p/1909930 --- Tråden på webben: https://www.webforum.nu/amne/asp/154852-setmaxsize