--- title: "Upload med kompontent" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13696-upload-med-kompontent" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "janfang" published: "2002-01-10T16:37:00.000Z" updated: "2002-01-11T11:02:00.000Z" replies: 12 views: 247 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/13696-upload-med-kompontent" --- # Upload med kompontent ## #1 — janfang, 2002-01-10T16:37Z Hej, Jag har problem med upload. Jag använder komponenten ASPsmartUpload. Jag får felet ``` Subscript out of range ``` när jag ska ladda upp en fil i en form blandat med andra fält. Vad betyder "subscript out of range"? \[Redigerat av janfang den 10 jan 2002\] Permalänk: https://www.webforum.nu/p/13696 ## #2 — janfang, 2002-01-10T16:45Z Hej, här kommer koden också. Jag tror det är något som rör till sig när jag både vill plocka ut text ur fält och ladda upp filer samt att jag vill ha in filnamnet i databasen. / Jan. Formkoden jag använder, lite förenklad utan tabeller: ```
Namn
Epost
Rubrik
Ljudfil Inlägg
``` adderaPost.asp ser sedan ut ungefär så här: ``` '########## Ladda upp fil på servern med kod här nedan. On Error Resume Next ' Variables ' ********* Dim mySmartUpload Dim intCount Dim file ' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") ' Only allow these files ' *************************** mySmartUpload.AllowedFilesList = "qcp,mp3" ' Deny physical path ' ******************* mySmartUpload.DenyPhysicalPath = True ' ***************************************** mySmartUpload.MaxFileSize = 400000 ' *************************************************************** mySmartUpload.TotalMaxFileSize = 400000 ' Upload ' ****** mySmartUpload.Upload ' Save the files with their original names in a virtual path of the web server ' **************************************************************************** intCount = mySmartUpload.Save("../upload/ljudfiler") ' sample with a physical path ' intCount = mySmartUpload.Save("c:\temp\") ' Trap errors ' *********** If Err Then Response.Write("Fel : " & Err.description) Else ' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.") End If Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/ljudforum.mdb")&";" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From ljudforum" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.ADDNEW RecSet("NAMN") = Request.Form("namn") RecSet("EPOST") = Request.Form("epost") RecSet("RUBRIK") = Request.Form("rubrik") RecSet("INLAGG") = Request.Form("inlagg") RecSet("IP") = Request.ServerVariables("REMOTE_ADDR") RecSet("DATUM") = NOW() RecSet("LJUDFIL") = file.FileName IF Request.QueryString("refID") <> "" THEN RecSet("REF_ID") = Request.QueryString("refID") END IF RecSet.UPDATE RecSet.CLOSE mySmartUpload.CLOSE ``` Permalänk: https://www.webforum.nu/p/303596 ## #3 — janfang, 2002-01-10T21:04Z Är det någon som har en lösning på mitt uppladdningsproblem? / Jan. Permalänk: https://www.webforum.nu/p/303597 ## #4 — LarsG, 2002-01-10T21:16Z Vilken rad får du fel på? Testa detta i stället. ``` RecSet("NAMN") = mySmartUpload.Form("namn") RecSet("EPOST") = mySmartUpload.Form("epost") RecSet("RUBRIK") = mySmartUpload.Form("rubrik") RecSet("INLAGG") = mySmartUpload.Form("inlagg") ``` Permalänk: https://www.webforum.nu/p/303598 ## #5 — janfang, 2002-01-10T21:19Z Hej, det är ju att jag får inte fel på någon speciell rad. Det är iaf uppladdningsscriptet som ger ifrån sig felmeddelandet som jag hade först. Ska ta och testa din kod... \*\*\*\*\* Redigerat. Med koden ``` RecSet("NAMN") = mySmartUpload.Form("namn") RecSet("EPOST") = mySmartUpload.Form("epost") RecSet("RUBRIK") = mySmartUpload.Form("rubrik") RecSet("INLAGG") = mySmartUpload.Form("inlagg") ``` kommer inget in i databasen och inga filer laddas upp. Jag såg just en sak, måste man inte binda ihop fältet "file" i formen med uploadscriptet på något sätt, hur gör man detta i så fall? / Jan. \[Redigerat av janfang den 10 jan 2002\] \[Redigerat av janfang den 10 jan 2002\] \[Redigerat av janfang den 10 jan 2002\] Permalänk: https://www.webforum.nu/p/303599 ## #6 — emission, 2002-01-11T06:44Z Du har glömt att sätta ENCTYPE på formuläret. Permalänk: https://www.webforum.nu/p/303600 ## #7 — janfang, 2002-01-11T08:04Z Hej, ENCTYPE="multipart/form-data" löste filuppladdningsproblemet, men nu blir alla andra rutor tomma. Alltså när jag tar Request.form("namn") blir det tomt. Ska jag använda något annat än "multipart/form-data"? \[Redigerat av janfang den 11 jan 2002\] Permalänk: https://www.webforum.nu/p/303601 ## #8 — doggelito, 2002-01-11T08:42Z du måste nog skriva: mySmartUpload.Form("namn") istället för request. Permalänk: https://www.webforum.nu/p/303602 ## #9 — janfang, 2002-01-11T08:54Z Tackar så mycket, nu funkar nästan allt... Det är bara filnamnet som inte läggs in i min databas. Jag har då testat att lägga in det med raden RecSet("LJUDFIL") = file.FileName Jag har även testat och bytt ut file mot mySmartUpload, men det funkar ändå inte. Det kommer in ett mellanslag i databasfältet. / Jan. Permalänk: https://www.webforum.nu/p/303603 ## #10 — Jacek, 2002-01-11T08:59Z vart är det man hittar ASPsmartUpload, vart kan man köpa det? Permalänk: https://www.webforum.nu/p/303604 ## #11 — janfang, 2002-01-11T09:00Z kolla på [www.aspsmart.com](http://www.aspsmart.com) \[Redigerat av janfang den 11 jan 2002\] Permalänk: https://www.webforum.nu/p/303605 ## #12 — @nders, 2002-01-11T09:01Z ASPSmartUpload är gratis. Du hittar den på . Mvh, Permalänk: https://www.webforum.nu/p/303606 ## #13 — janfang, 2002-01-11T11:02Z Tack för hjälpen, Nu funkar det. Jag justerade upload-koden mot en annan som fanns på hemsidan. / Jan. Permalänk: https://www.webforum.nu/p/303607 --- Tråden på webben: https://www.webforum.nu/amne/asp/13696-upload-med-kompontent