Upload

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

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 :(

<%
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") & " ")
%>

------------------
-------------------
What a waste it is to lose one's mind. Or not to have a mind is being very wasteful. How true that is.
Dan Quayle

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

:(

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.

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

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") & " ")
%>

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

Nu funkar allt :)
Tack!