Opdater - er lidt i tvivl

Jeg er lidt i tvivl om hvorfor jeg får en intern serverfejl 500 -
Der kanb opdateres 2 felter
Betegnelse = tekstfelt
Lost = afkrydsningsfelt

kode:
<%mode = Request.QueryString("mode")%>
<% if mode = "opdater" then %>
<%
Set dbdrift = CreateObject("ADODB.Connection")
strConn = "dsn=support"
dbdrift.Open strConn
%>
<%
Betegnelse = request.form("Betegnelse")
if request.form("lost") <> "" then
  check_lost = date + time
else
  check_lost = ""
end if

Betegnelse = Replace(Betegnelse,"'","''")

SQLstmt="UPDATE Driftstatus set Betegnelse = '"&Betegnelse&"',Lost = '"&Lost&"'  WHERE ID = '" & request("ID") & "' "
'SQLstmt = SQLstmt & "VALUES ('" & Request.Form("Betegnelse") & "','" & request.form("check_lost") & "')"

response.write sqlstmt
dbdrift.Execute (SQLstmt)

response.write strCreateNew
Response.redirect("adm_driftsstatus.asp")

    dbdrift.close
    Set dbdrift = nothing
    Set SQLstmt = nothing

end if
%>

Kan man overhovedet lave det, jeg gør med et afkrydsningsfelt ?
Og hvis ja, hvad kan der så være af problem, siden jeg får fejl ?