Upload

--- title: "lägg till i databasen" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen/page2" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Jeppeweb" published: "2006-10-24T22:46:41.000Z" updated: "2006-10-25T13:33:13.000Z" replies: 23 views: 751 page: 2 pages: 2 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/152937-lägg-till-i-databasen" --- # lägg till i databasen _Sida 2 av 2._ ## #21 — Jeppeweb, 2006-10-25T11:20Z Hm, känns som om jag bara förstör mer o mer, men here it goes :p Error Type: ADODB.Connection.1 (0x80004005) SQLState: 4 Native Error Code: 1064 \[TCX\]\[MyODBC\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '\[vems\], \[datum\], \[filename\]) VALUES(,#10/25/2006 1:18:52 PM#,'j /outputfile2.asp, line 64 ``` For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("cmid") Set RecSet = Connect.execute(SQL) bild = filename vems = cmid Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"', vems = '"& vems &"' WHERE id = "&Session("cmid")&"") Datum = Now [b]SQL = "INSERT INTO fotoalbum ([vems], [datum], [filename]) VALUES(" & vems & ",#"& datum &"#,'" & filename & "')" Connect.Execute(SQL)[/b] %> ``` Permalänk: https://www.webforum.nu/p/1887285 ## #22 — jonne, 2006-10-25T12:02Z Börja med att skriva ut din SQL variabel eftersom det är den som är ursprunget till felet: ``` SQL = "INSERT INTO fotoalbum ([vems], [datum], [filename]) VALUES(" & vems & ",#"& datum &"#,'" & filename & "')" Response.Write SQL Connect.Execute(SQL) ``` Så ser du att den innehåller det du förväntar dig. Om den inte gör det så har du ett ställe att utgå ifrån och leta dig tillbaka. Har du föresten ändrat det ovanstående nu för "bild" och "vems" som du hade fel på innan eller är detta koden du kör med? Du hade ``` SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("id") Set RecSet = Connect.execute(SQL) bild = cStr(RecSet("filename")) vems = cLng(RecSet("userid")) ``` innan som du fick fel på eller rättade du till det? (filename och userid kolumnen saknas i den select-satsen) Permalänk: https://www.webforum.nu/p/1887297 ## #23 — Jeppeweb, 2006-10-25T13:32Z Sådär, skrev ut det och fick nu det här meddelandet; Request object error 'ASP 0207 : 80004005' Cannot use Request.Form /outputfile2.asp, line 183 Cannot use Request.Form collection after calling BinaryRead. \- line 183 finns ju inte ens ? Permalänk: https://www.webforum.nu/p/1887324 ## #24 — Jeppeweb, 2006-10-25T13:33Z ``` Upload <% Response.Expires=0 Response.Buffer = TRUE Response.Clear 'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes)) byteCount = Request.TotalBytes 'Response.BinaryWrite(Request.BinaryRead(varByteCount)) RequestBin = Request.BinaryRead(byteCount) Dim UploadRequest Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin 'Exempel på hur man kan 'plocka ner' andra forumlärelement contentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("blob").Item("Value") 'Create FileSytemObject Component Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 'Create and Write to a File pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 ' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.Serv erVariables("PATH_INFO")),pathEnd)&filename) filename = session("cmalias") & "_" & filename Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/fotoalbum" & "\" & filename)) For i = 1 to LenB(value) MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close SQL = "SELECT bild,vems FROM fotoalbum WHERE id = "&Session("id") Set RecSet = Connect.execute(SQL) bild = filename vems = cLng(RecSet("userid")) Connect.Execute("UPDATE fotoalbum set bild = '"& bild &"', vems = '"& vems &"' WHERE id = "&Session("cmid")&"") Datum = Now SQL = "INSERT INTO fotoalbum ([vems], [datum], [filnamn]) VALUES(" & vems & ",#"& Datum &"#,'" & filename & "')" Response.Write SQL Connect.Execute(SQL) %> ``` Permalänk: https://www.webforum.nu/p/1887325 --- Tråden på webben: https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen/page2 Föregående sida: https://www.webforum.nu/amne/asp/152937-lägg-till-i-databasen.md