Hvorfor kan mit script ikke update ?

jeg har dette script der ikke vil opdatere i min database, hvas er min fejl..:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("man.mdb")
Conn.Open DSN

SQL = "Select * FROM Produkt WHERE ID=" & Session("ID")
Set rs = Conn.Execute(SQL)


if Request.ServerVariables("REQUEST_METHOD") = "POST" then

if Request.form("Brugernavn") = "" then
    Response.Write("<td class=menu_punkt style=background-color:#;text-align:right;color:#FF0000;>Du skal vælge en brugerkode !</td>")
end if
if Request.form("Brugerkode") = "" then
    Response.Write("<td class=menu_punkt style=background-color:#;text-align:right;color:#FF0000;>Du skal vælge et fornavn !</td>")
end if
if Request.form("Fornavn") = "" then
    Response.Write("<td class=menu_punkt style=background-color:#;text-align:right;color:#FF0000;>Du skal vælge et efternavn !</td>")
end if
if Request.form("Efternavn") = "" then
    Response.Write("<td class=menu_punkt style=background-color:#;text-align:right;color:#FF0000;>Du skal vælge en by !</td>")
end if

if Brugernavn <> "" AND Brugerkode <> "" AND Fornavn <> "" AND Efternavn <> "" then
        rs.update
        rs("Brugernavn") = Request.form("Brugernavn")
        rs("Brugerkode") = Request.form("Brugerkode")
        rs("Fornavn") = Request.form("Fornavn")
        rs("Efternavn") = Request.form("Efternavn")
        rs("Velkomst") = Request.form("Velkomst")
        rs.update
Response.write "<td class=menu_punkt style=background-color:#"& index_color &";text-align:right;color:#FF0000;>Dit produkt er nu opdateret !</td>"
end if
end if
%>

-----
Hvad kan der være galt...?