Update tekst i databasen !

fejl:
Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/script/asp/jwringetoner/admin/godkendt.asp, line 15

else
^

Linje 15:
else

Hele scripten, da den ik er lang:
<%option explicit%>

   
<%
    dim connection,id,SQLstringK

    Set Connection = Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"&Server.MapPath(\"../database.mdb\")
   
    id    =        Trim(Request.QueryString(\"id\"))
           
    SQLstringK=\"SELECT * FROM jwringetoner WHERE id=\"&id
    SET opslag=Connection.Execute(SQLstringK)

    else
   
    SQLstringK=\"UPDATE jwringetoner SET godkendt=\'\"&Request.QueryString(\"Ja\")&\"\' WHERE id=\"&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect \"oversigt.asp\"
    response.end

end if
    %>