Update viser ingen fejl, men opdaterer ikke

i adresselinien:
....showbooking_details.asp?action=update&id=18&uge=12&aarstal=2002

min update:
<% if mode = "update" then %>
<%

    uge = request.form("bookuge")
    aar = request.form("bookaar")
    Navn = Request.Form("Navn")
    Adresse = Request.Form("Adresse")
    Postnr = Request.Form("Postnr")
    Bynavn = Request.Form("Bynavn")
    Tlf = Request.Form("Tlf")
    Mobil = Request.Form("Mobil")
    Mail = Request.Form("Mail")
    Bem = Request.Form("bem")

    Bem = replace(bem,"'","''")
   
    if request.form("bekraeft") <> "" then
      check_bekr = 1    'Eller true
    else
      check_bekr = 2    'Eller false
    end if


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../database/kalender.mdb")

SQLstmt = "UPDATE DISTINCTROW kundedb SET Navn = '" & Navn & "', Adresse = '" & Adresse & "', Postnr = '" & Postnr & "', Bynavn = '" & Bynavn & "', Tlf = '" & Tlf & "', Mobil = '" & Mobil & "', Mail = '" & Mail & "', uge = '" & uge & "', aar = '" & aar & "', Bem = '" & Bem & "', Bekraeft = '" & check_bekr & "' WHERE ID=" & request.querystring("id")
'SQLstmt = SQLstmt & "VALUES ('" & request.form("Navn") & "','" & request.form("Adresse") & "','" & request.form("Postnr") & "','" & request.form("Bynavn") & "','" & request.form("Tlf") & "','" & request.form("Mobil") & "','" & request.form("Mail") & "','" & request.form("bookuge") & "','" & request.form("bookaar") & "','" & request.form("Bem") & "','" & request.form("check_bekr") & "')"

response.write sqlstmt

Conn.Execute (SQLstmt)

conn.Close
Set conn = nothing
Set SQLstmt = nothing

    response.redirect "showbooking_details.asp?mode=ok"

end if %>


hvorfor virker det ikke