--- title: "Upload fungerar men ej lagring av information" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/168044-upload-fungerar-men-ej-lagring-av-information" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "sin_adec" published: "2008-01-12T14:07:13.000Z" updated: "2008-01-12T23:12:20.000Z" replies: 3 views: 437 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/168044-upload-fungerar-men-ej-lagring-av-information" --- # Upload fungerar men ej lagring av information ## #1 — sin_adec, 2008-01-12T14:07Z Hej! Ska vi se.. arbetar med en upload som ska lagra uppgifterna i en access databas, självaste uppladdning av filer fungerar bra, men när informationen ska lagras i databasen så fungerar inte det, får dock inga felmeddelanden. så nu undrar jag ifall ni bara kan kolla igenom koden och möjligtvis se det jag inte ser. tack på förhand ``` <% @ LANGUAGE = VBSCRIPT %> <% set upl = Server.CreateObject("SoftArtisans.FileUp") ' Specify the path to where to file should be placed ' - here the current path is used (.) upl.Path = Server.MapPath(".") if (upl.IsEmpty) then Response.write "

Error: The file is empty or doesn't exist!

" elseif (upl.ContentDisposition <> "form-data") then Response.write "

Error: Upload failed!

" else Response.write "

The file was successfully uploaded.

" on error resume next ' Save the uploaded file upl.Save end if %> <% Name = upload .Form("file").ShortFilename Size =upload .Form("file").TotalBytes Beskrivning = upload .Form("beskrivning") kategori = upload .Form("kategori") fotogalleri = upload .Form("fotogalleri") Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db1.mdb") Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From fotogalleri" RecSet.Open Addera, Connect, 3, 3 RecSet.AddNew Recset("bild1") = Name Recset("bild2") = Name RecSet.Update RecSet.close Connect.Close Set RecSet = nothing Set Connect = nothing %> ``` Permalänk: https://www.webforum.nu/p/168044 ## #2 — voigtann1, 2008-01-12T14:19Z du försöker göra en update när du ska göra en addNew. red. Kör istället en SQL Insert: ``` dim sSQL sSQL = "INSERT INTO fotogalleri (bild1,bild2) VALUES ('" & Name & "','" & Name & "')" Connect.Execute(sSQL) ``` Permalänk: https://www.webforum.nu/p/2069815 ## #3 — sin_adec, 2008-01-12T15:32Z Mycket märkligt för det fungerar inte, men jag ser i databasen att den hoppar ner ett steg, konstigt verkar som om "upload.form("file") inte har något värde sidan med upload formulär ser ut på följande sätt för er som vill veta ```
Ladda upp bilder
 Välj en bild:
 Max 1 Meg/bild
 
<% response.write Server.MapPath("/") %>
``` Permalänk: https://www.webforum.nu/p/2069833 ## #4 — voigtann1, 2008-01-12T23:12Z du söker efter upload.form("...") när ditt objekt heter upl. prova ändra upload itll upl eller tvärtom. Permalänk: https://www.webforum.nu/p/2069950 --- Tråden på webben: https://www.webforum.nu/amne/asp/168044-upload-fungerar-men-ej-lagring-av-information