Object fungerer ikke i insert sætning

Hmmm den fik ikke hele linien med, så prøver lige igen...her er linien den melder fejl i:

sql = "INSERT INTO Billeder (Arrangement, Pic1, Txt1, Pic2, Txt2, Pic3, Txt3, Pic4, Txt4, Pic5, Txt5, Pic6, Txt6, Pic7, Txt7, Pic8, Txt8, Pic9, Txt9, Pic10, Txt10, Pic11, Txt11, Pic12, Txt12, Pic13, Txt13, Pic14, Txt14, Pic15, Txt15, Pic16, Txt16, Pic17, Txt17, Pic18, Txt18, Pic19, Txt19, Pic20, Txt20, CD) VALUES ("&"'"&arrang&"', '"&Pic11&"', '"&txt1&"', '"&Pic21&"', '"&txt2&"', '"&Pic31&"', '"&txt3&"', '"&Pic41&"', '"&txt4&"', '"&Pic51&"', '"&txt5&"', '"&Pic61&"', '"&txt6&"', '"&Pic61&"', '"&txt6&"', '"&Pic81&"', '"&txt8&"', '"&Pic91&"', '"&txt9&"', '"&Pic101&"', '"&txt10&"', '"&Pic111&"', '"&txt11&"', '"&Pic121&"', '"&txt12&"', '"&Pic131&"', '"&txt13&"', '"&Pic141&"', '"&txt14&"', '"&Pic151&"', '"&txt15&"', '"&Pic161&"', '"&txt16&"', '"&Pic171&"', '"&txt17&"', '"&Pic181&"', '"&txt18&"', '"&Pic191&"', '"&txt19&"', '"&Pic201&"', '"&txt20&"', '"&Date()&"')"

prøv og udskriv din sql, så er det lettere og se fejlen.

response.write sql
response.end

går der ikke noget galt i starten af din VALUES parentes... prøv at slette de første 3 tegn "&"

jeg undre mig over den kommer i den linje, er du 100% sikker på det er den linje?
Normlart kommer den i en linje hvor der indgår et object eksempelvis Conn og man skriver en funtion forkert Conn.Excuuute(sql) eller ligne.
Måske hvis en af dine variable er defineret som object??

Kan prøve at poste hele koden - har nemlig prøvet response.write sql men med samme fejl.

Here goes:

Case "pic_ny"

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverWriteFiles = False
Upload.Save Server.MapPath("./../images/pics") & "\"

arrang = replace(replace(upload.form("arr"),"'","´"),"""","´´")
Pic1 = Upload.form("pic1")
txt1 = replace(replace(upload.form("txt1"),"'","´"),"""","´´")
Pic2 = Upload.form("pic2")
txt2 = replace(replace(upload.form("txt2"),"'","´"),"""","´´")
Pic3 = Upload.form("pic3")
txt3 = replace(replace(upload.form("txt3"),"'","´"),"""","´´")
Pic4 = Upload.form("pic4")
txt4 = replace(replace(upload.form("txt4"),"'","´"),"""","´´")
Pic5 = Upload.form("pic5")
txt5 = replace(replace(upload.form("txt5"),"'","´"),"""","´´")
Pic6 = Upload.form("pic6")
txt6 = replace(replace(upload.form("txt6"),"'","´"),"""","´´")
Pic7 = Upload.form("pic7")
txt7 = replace(replace(upload.form("txt7"),"'","´"),"""","´´")
Pic8 = Upload.form("pic8")
txt8 = replace(replace(upload.form("txt8"),"'","´"),"""","´´")
Pic9 = Upload.form("pic9")
txt9 = replace(replace(upload.form("txt9"),"'","´"),"""","´´")
Pic10 = Upload.form("pic10")
txt10 = replace(replace(upload.form("txt10"),"'","´"),"""","´´")
Pic11 = Upload.form("pic11")
txt11 = replace(replace(upload.form("txt11"),"'","´"),"""","´´")
Pic12 = Upload.form("pic12")
txt12 = replace(replace(upload.form("txt12"),"'","´"),"""","´´")
Pic13 = Upload.form("pic13")
txt13 = replace(replace(upload.form("txt13"),"'","´"),"""","´´")
Pic14 = Upload.form("pic14")
txt14 = replace(replace(upload.form("txt14"),"'","´"),"""","´´")
Pic15 = Upload.form("pic15")
txt15 = replace(replace(upload.form("txt15"),"'","´"),"""","´´")
Pic16 = Upload.form("pic16")
txt16 = replace(replace(upload.form("txt16"),"'","´"),"""","´´")
Pic17 = Upload.form("pic17")
txt17 = replace(replace(upload.form("txt17"),"'","´"),"""","´´")
Pic18 = Upload.form("pic18")
txt18 = replace(replace(upload.form("txt18"),"'","´"),"""","´´")
Pic19 = Upload.form("pic19")
txt19 = replace(replace(upload.form("txt19"),"'","´"),"""","´´")
Pic20 = Upload.form("pic20")
txt20 = replace(replace(upload.form("txt20"),"'","´"),"""","´´")

Set Pic1 = Upload.Files("pic1")
    if Pic1 is nothing then
        Pic11 = ""
    else
        Pic11 = Pic1.ExtractFileName
    end if
   
Set Pic2 = Upload.Files("pic2")
    if Pic2 is nothing then
        Pic21 = ""
    else
        Pic21 = Pic2.ExtractFileName
    end if
   
Set Pic3 = Upload.Files("pic3")
    if Pic3 is nothing then
        Pic31 = ""
    else
        Pic31 = Pic3.ExtractFileName
    end if
   
Set Pic4 = Upload.Files("pic4")
    if Pic4 is nothing then
        Pic41 = ""
    else
        Pic41 = Pic4.ExtractFileName
    end if
   
Set Pic5 = Upload.Files("pic5")
    if Pic5 is nothing then
        Pic51 = ""
    else
        Pic51 = Pic5.ExtractFileName
    end if
   
Set Pic6 = Upload.Files("pic6")
    if Pic6 is nothing then
        Pic61 = ""
    else
        Pic61 = Pic6.ExtractFileName
    end if
   
Set Pic7 = Upload.Files("pic71")
    if Pic7 is nothing then
        Pic71 = ""
    else
        Pic71 = Pic7.ExtractFileName
    end if
   
Set Pic8 = Upload.Files("pic8")
    if Pic8 is nothing then
        Pic81 = ""
    else
        Pic81 = Pic8.ExtractFileName
    end if
   
Set Pic9 = Upload.Files("pic9")
    if Pic9 is nothing then
        Pic91 = ""
    else
        Pic91 = Pic9.ExtractFileName
    end if
   
Set Pic10 = Upload.Files("pic10")
    if Pic10 is nothing then
        Pic101 = ""
    else
        Pic101 = Pic10.ExtractFileName
    end if

Set Pic11 = Upload.Files("pic11")
    if Pic11 is nothing then
        Pic111 = ""
    else
        Pic111 = Pic11.ExtractFileName
    end if
   
Set Pic12 = Upload.Files("pic12")
    if Pic12 is nothing then
        Pic121 = ""
    else
        Pic121 = Pic12.ExtractFileName
    end if
   
Set Pic13 = Upload.Files("pic13")
    if Pic13 is nothing then
        Pic131 = ""
    else
        Pic131 = Pic13.ExtractFileName
    end if
   
Set Pic14 = Upload.Files("pic14")
    if Pic14 is nothing then
        Pic141 = ""
    else
        Pic141 = Pic14.ExtractFileName
    end if
   
Set Pic15 = Upload.Files("pic15")
    if Pic15 is nothing then
        Pic151 = ""
    else
        Pic151 = Pic15.ExtractFileName
    end if
   
Set Pic16 = Upload.Files("pic16")
    if Pic16 is nothing then
        Pic161 = ""
    else
        Pic161 = Pic16.ExtractFileName
    end if
   
Set Pic17 = Upload.Files("pic17")
    if Pic17 is nothing then
        Pic171 = ""
    else
        Pic171 = Pic17.ExtractFileName
    end if
   
Set Pic18 = Upload.Files("pic18")
    if Pic18 is nothing then
        Pic181 = ""
    else
        Pic181 = Pic18.ExtractFileName
    end if
   
Set Pic19 = Upload.Files("pic19")
    if Pic19 is nothing then
        Pic191 = ""
    else
        Pic191 = Pic19.ExtractFileName
    end if
   
Set Pic20 = Upload.Files("pic20")
    if Pic20 is nothing then
        Pic201 = ""
    else
        Pic201 = Pic20.ExtractFileName
    end if
   
sql = "INSERT INTO Billeder (Arrangement, Pic1, Txt1) VALUES ("&"'"&arrang&"','"&Pic11&"','"&txt1&"','"&Date()&"')"
Conn.Execute(sql)

response.redirect("pics.asp")

Har fundet fejlen - det var 2 variable der ved et uheld var kommet til at hedde det samme og dermed konfliktede.