--- title: "Snälla jag behöver lite input!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/7720-snälla-jag-behöver-lite-input" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "manne" published: "2001-01-12T12:57:00.000Z" updated: "2001-01-15T10:17:00.000Z" replies: 10 views: 301 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/7720-snälla-jag-behöver-lite-input" --- # Snälla jag behöver lite input! ## #1 — manne, 2001-01-12T12:57Z Jag får inte min upload att funka. I min access databas "olle.mdb" har jag 2 recordset "Id" och "bild". Jag har snöat länge med detta. Vad är det som är fel, kan nån hjälpa mig med lite kod. ``` <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SaveVirtual("d:/clients/guldfot.nu/wwwroot/bilder") Set File = Upload.Files(1) filtyp = File.ImageType filstorlek = File.Size bild = upload.Form("FILE") If filtyp = "GIF" or filtyp = "JPG" or filtyp = "gif" or filtyp = "jpg" Then Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\clients\guldfot.nu\wwwroot\data\olle.mdb" SQLStmt = "Insert into tabell " SQLStmt = SQLStmt & " (bild)" SQLStmt = SQLStmt & " Values('" & bild & "')" Connection.Execute(SQLStmt) SET SQLStmt = Nothing SQLStmt = "Select Max(Id) as senasteid from tabell" SET RS = Connection.Execute(SQLStmt) senasteid = RS("senasteid") RS.Close SET SQLStmt = Nothing If file.ImageType = "gif" Then extension = "gif" elseif file.ImageType = "jpg" Then extension = "jpg" elseif file.ImageType = "GIF" Then extension = "gif" elseif file.ImageType = "JPG" Then extension = "jpg" End If filnamn = "bild" & senasteid & extension For Each File in Upload.Files File.Copy "d:\clients\guldfot.nu\wwwroot\bilder\bild" & senasteid & extension File.Delete Next SQLStmt = "Update tabell " SQLStmt = SQLStmt & " SET Filnamn = '" & Filnamn & "'" SQLStmt = SQLStmt & " Where Id = " & senasteid Connection.Execute(SQLStmt) SET SQLStmt = Nothing Connection.Close End If %> ``` Permalänk: https://www.webforum.nu/p/7720 ## #2 — Toonster, 2001-01-12T14:11Z Vad är det som strlar? Hamnar inte bilden på servern, eller sparas inte informationen i db'n? Försök först att bara ladda upp bilden, sedan kan du mixtra med databasen. Det jag snabbt kan se är följande: \-\> Set File = Upload.Files(1) ska det inte vara \-\>Set File = Upload.Files(0) Om du bara har en fil? Ett litet tips: du behöver inte bry dig om att döpa om filerna till jpg eller gif. Du kan isjälva verket kalla dom vad du vill, för filtypsinformationen finns i bildnamnet. /T Permalänk: https://www.webforum.nu/p/253813 ## #3 — manne, 2001-01-12T15:20Z När jag submittar från min form.asp får jag "500 internal server error". Jag skall kolla upp det, tack så länge! Permalänk: https://www.webforum.nu/p/253814 ## #4 — emission, 2001-01-12T17:14Z för filtypsinformationen finns i bildnamnet. Inte nödvändigtvis....det är bra att kolla Permalänk: https://www.webforum.nu/p/253815 ## #5 — Toonster, 2001-01-12T17:36Z > "500 internal server error". Kan vara att skrivrättigheter saknas där bilden skall sparas. > Inte nödvändigtvis....det är bra att kolla Jaha ? .jpg .gif .png är ju dom bilder man använder, och i dom står bildinformationen. Ta en bild ex. jaguar.jpg och döp om den till jaguar.gif funkar perfekt. (nu kollar han ju innan att det bara sker en uppladdning av jpg o gif) /T Permalänk: https://www.webforum.nu/p/253816 ## #6 — @nders, 2001-01-13T16:10Z 500 server error: ett tecken på att webbutvecklare skall stänga av 'vänliga felmeddelanden' i internet explorer. då får man nämligen reda på vad det är för fel, liksom, för det mesta. Permalänk: https://www.webforum.nu/p/253817 ## #7 — manne, 2001-01-14T13:32Z Tack alla för hjälpen! Ni fick mig på andra tankar. Nu funkar det klockrent. Permalänk: https://www.webforum.nu/p/253818 ## #8 — @nders, 2001-01-14T14:06Z vi nyfnikna vill förstås veta vad det var för fel, och hur du löste det! :) Permalänk: https://www.webforum.nu/p/253819 ## #9 — emission, 2001-01-14T17:58Z Jaha ? .jpg .gif .png är ju dom bilder man använder, och i dom står bildinformationen. Inte nödvändigtvis. På Macar, t.ex., används inte filslut för typningen, och man ska väl få ladda upp från Mac också? Ta en bild ex. jaguar.jpg och döp om den till jaguar.gif funkar perfekt. Vad funkar perfekt? Permalänk: https://www.webforum.nu/p/253820 ## #10 — Toonster, 2001-01-14T21:08Z Det jag menar är att du kan ta en bild ex. jaguar.jpg och döpa om den till jaguar.gif Vad jag menar är att bildformatet / kodningen finns i bildinformationen, och har egentligen inget att göra med filändelsen, som är till för op-systemet. Webbläsarna klarar av att visa den ändå. Nu vet jag inte om det finns någon större vits med det... /T Permalänk: https://www.webforum.nu/p/253821 ## #11 — manne, 2001-01-15T10:17Z Tjena @nders, givetvis skall jag dela med mig. Vad var fel? Jag hade glömt ("hjärnsläpp")att lägga till 3 recordset i min databas (info, filnamn och storlek). I nedanstående kod har jag också lagt till nya poster som skall läggas in. Det som händer är att bilden som laddas upp får namnet bild+id+filändelse och hamnar i recordset(filnamn). Tex om jag laddar upp en bild som heter namn.gif och är den fjärde bilden (id=4)får bilden namnet "bild4.gif". ``` <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SaveVirtual("bilder") Set File = Upload.Files(1) filtyp = File.ImageType filstorlek = File.Size info = upload.Form("info") plats = upload.Form("plats") ingang = upload.Form("ingang") utgang = upload.Form("utgang") typ = upload.Form("typ") If filtyp = "GIF" or filtyp = "JPG" or filtyp = "gif" or filtyp = "jpg" Then Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\clients\guldfot.nu\wwwroot\data\olle.mdb" SQLStmt = "Insert into tabell " SQLStmt = SQLStmt & " (info, storlek, plats, ingang, utgang, typ)" SQLStmt = SQLStmt & " Values('" & beskrivning & "', " & filstorlek & ", '" & plats & "', '" & ingang & "', '" & utgang & "', '" & typ & "')" Connection.Execute(SQLStmt) SET SQLStmt = Nothing SQLStmt = "Select Max(Id) as senasteid from tabell" SET RecordSet = Connection.Execute(SQLStmt) senasteid = RecordSet("senasteid") RS.Close SET SQLStmt = Nothing If file.ImageType = "gif" Then extension="." & LCase(File.Imagetype) elseif file.ImageType = "jpg" Then extension="." & LCase(File.Imagetype) elseif file.ImageType = "GIF" Then extension="." & LCase(File.Imagetype) elseif file.ImageType = "jpg" Then extension="." & LCase(File.Imagetype) End If filnamn = "bild" & senasteid & extension For Each File in Upload.Files File.Copy "d:\clients\emerc1.nu\wwwroot\bilder\bild" & senasteid & extension File.Delete Next SQLStmt = "Update tabell " SQLStmt = SQLStmt & " SET Filnamn = '" & Filnamn & "'" SQLStmt = SQLStmt & " Where Id = " & senasteid Connection.Execute(SQLStmt) SET SQLStmt = Nothing Connection.Close End If %> ``` Permalänk: https://www.webforum.nu/p/253822 --- Tråden på webben: https://www.webforum.nu/amne/asp/7720-snälla-jag-behöver-lite-input