---
title: "Upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8371-upload/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-02-19T16:17:00.000Z"
updated: "2001-03-01T20:40:00.000Z"
replies: 48
views: 682
page: 3
pages: 3
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/8371-upload"
---

# Upload

_Sida 3 av 3._

## #41 — emission, 2001-03-01T08:46Z

Inte direkt konstigt, eftersom du helt hoppat över att använda den "dynamiska" SQL-satsen. Försök igen :)

Permalänk: https://www.webforum.nu/p/260283

## #42 — aleborg, 2001-03-01T11:35Z

Provade med:

```
<%
dim Conn
set rs= Server.CreateObject("ADODB.Recordset")
For each file In mySmartUpload.Files
if len(file.filename)>0 then strSQL=strSQL & "[" & file.name & "]='" & file.filename & "',"
next
strSQL=left(strSQL,len(strSQL)-1)
Conn.Execute("UPDATE Kateg SET [Kategrubr] = '" & mySmartUpload.Form("Kategrubr") & "', [EngKategrubr] = '" & mySmartUpload.Form("EngKategrubr") & "', [Kategbild] = " & strSQL & " WHERE [KategID] = " & Request.QueryString("KategID") & " ")
%>
```

Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'left'
/unisafe/admin/nykatchangesucc.asp, line 46

får jag när man inte laddar upp en bild.
har provat med flera olika varianter i koden :(

Permalänk: https://www.webforum.nu/p/260284

## #43 — emission, 2001-03-01T14:13Z

```
<%
dim Conn
set rs= Server.CreateObject("ADODB.Recordset")
For each file In mySmartUpload.Files
if len(file.filename)>0 then strSQL=strSQL & ",[" & file.name & "]='" & file.filename & "'"
next

Conn.Execute("UPDATE Kateg SET [Kategrubr] = '" & mySmartUpload.Form("Kategrubr") & "', [EngKategrubr] = '" & mySmartUpload.Form("EngKategrubr") & "'," & strSQL & " WHERE [KategID] = " & Request.QueryString("KategID") & " ")
%>
```

Permalänk: https://www.webforum.nu/p/260285

## #44 — aleborg, 2001-03-01T14:27Z

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel i UPDATE-uttryck.
/unisafe/admin/nykatchangesucc.asp, line 46

 :(

Permalänk: https://www.webforum.nu/p/260286

## #45 — aleborg, 2001-03-01T14:38Z

Det funkar bra när man inte har med några andra fält i db'n
t ex

```
<%
dim Conn
set rs= Server.CreateObject("ADODB.Recordset")
For each file In mySmartUpload.Files
if len(file.filename)>0 then strSQL=strSQL & "[" & file.name & "]='" & file.filename & "',"
next
strSQL=left(strSQL,len(strSQL)-1)
conn.Execute ("UPDATE Produkter SET " & strSQL & " Where ID =" & Request.QueryString("ID"))
%>
```

Men så fort man lägger till andra fält i databasen som inte har med uppladdningen att göra så blir det fel.

Permalänk: https://www.webforum.nu/p/260287

## #46 — emission, 2001-03-01T15:54Z

Jag gjorde en förändring till i for-loopen. Kolla in den, för den verkar saknas.

Permalänk: https://www.webforum.nu/p/260288

## #47 — aleborg, 2001-03-01T16:21Z

Jag kopierade din kod, det var då jag fick fel!

```
<%
dim Conn
set rs= Server.CreateObject("ADODB.Recordset")
For each file In mySmartUpload.Files
if len(file.filename)>0 then strSQL=strSQL & ",[" & file.name & "]='" & file.filename & "'"
next
Conn.Execute("UPDATE Kateg SET [Kategrubr] = '" & mySmartUpload.Form("Kategrubr") & "', [EngKategrubr] = '" & mySmartUpload.Form("EngKategrubr") & "'," & strSQL & " WHERE [KategID] = " & Request.QueryString("KategID") & " ")
%>
```

Permalänk: https://www.webforum.nu/p/260289

## #48 — emission, 2001-03-01T20:04Z

Sorry, ett litet komma låg kvar i SQL-satsen. Ta alltid för vana att skriva ut SQL-satsen när den strular.

.....Form("EngKategrubr") & **"'"** & strSQL

Permalänk: https://www.webforum.nu/p/260290

## #49 — aleborg, 2001-03-01T20:40Z

Nu funkar allt :) 
Tack!

Permalänk: https://www.webforum.nu/p/260291

---

Tråden på webben: https://www.webforum.nu/amne/asp/8371-upload/page3  
Föregående sida: https://www.webforum.nu/amne/asp/8371-upload/page2.md