Hvad er fejlen?

Er der nogen som kan se hvad fejlen er:
Her er fejlen:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'

[TCX][MyODBC]You have an error in your SQL syntax near 'sCounter = '346' dvdcounter = '19' tilladStemme = '2' link = 'http://www.dvdmekk' at line 1

/admin.asp, line 291

-----------------------------------------

<%

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn

'createdataobject "mySQL"

if len(request.form("deleterecord")) > 0 then
    myConn.Execute ("DELETE FROM film WHERE ID = " & clng(request.form("deleterecord")) & ";")
else
    if len(request.form("program")) > 0 then
        if request.form("program") = "save" then
            strSQL = "UPDATE film SET Year = '" & request.form("sYear") & "', "
            strSQL = strSQL & "Titel = '" & replace(request.form("sTitle"),"'","''") & "', "
            strSQL = strSQL & "Copyright = '" & replace(request.form("sCopyright"),"'","''") & "', "
            strSQL = strSQL & "Tekst = '" & replace(request.form("sText"),"'","''") & "', "
            strSQL = strSQL & "Billede = '" & replace(request.form("sImage"),"'","''") & "' "
            strSQL = strSQL & "sCounter = '" & replace(request.form("ssCounter"),"'","''") & "' "
            strSQL = strSQL & "dvdcounter = '" & replace(request.form("sdvdcounter"),"'","''") & "' "
            strSQL = strSQL & "tilladStemme = '" & replace(request.form("stilladStemme"),"'","''") & "' "
            strSQL = strSQL & "link = '" & replace(request.form("slink"),"'","''") & "' "
            strSQL = strSQL & "WHERE ID = " & clng(request.form("ID")) & ";"
            myConn.Execute(strSQL)

        elseif request.form("program") = "create" then
            strSQL = "INSERT INTO film (Year, Titel, Copyright, Tekst, Billede) VALUES ("
            strSQL = strSQL & "'" & request.form("sYear") & "', "
            strSQL = strSQL & "'" & replace(request.form("sTitle"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("sCopyright"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("sText"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("ssCounter"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("sdvdcounter"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("stilladStemme"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("slink"),"'","''") & "', "
            strSQL = strSQL & "'" & replace(request.form("sImage"),"'","''") & "');"
            myConn.Execute(strSQL)

        elseif request.form("program") = "new" then
            enew = true
        end if
    else
        eNew = false
        if len(request.querystring("ID")) > 0 then
            ID = clng(request.querystring("ID"))
            strSQL = "SELECT * FROM film WHERE ID = " & ID & ";"
            set rs = myConn.Execute (strSQL)
            if (rs.eof or rs.bof) then
                response.write "ERROR!"
                response.end
            else
                sYear = rs("Year")
                sTitle = rs("Titel")
                sText = rs("Tekst")
                sImage = rs("Billede")
                sCopyright = rs("Copyright")
                ssCounter = rs("sCounter")
                sdvdcounter = rs("dvdcounter")
                stilladStemme = rs("tilladStemme")
                slink = rs("link")
                eedit = true
            end if
        else
            eEdit = false
        end if
    end if
end if
%>