Problem med UDATE og SESSION

Så er jeg her igen, denne gang er det et (Nr1) UPDATE script som ikke virker, og nr2 er en asp-fil med SESSION som jeg ikke kan finde ud af at tage noget fra.

Nr1:
<%
if session(\"godkendt\") = \"\" Then
Response.redirect(\"default.asp\")
end if
%>
<%Dim ID,units

id=Request.QueryString(\"ID\")

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

if request.querystring(\"knap\")<>\"Ret\" then

    SQLstringK=\"SELECT * FROM users WHERE id=\"&id
    SET units=Connection.Execute(SQLstringK)
else
   
    SQLstringK=\"UPDATE users SET username=\'\"&Request.QueryString(\"username\")&\"\', godkendt=\'\"&Request.QueryString(\"godkendt\")&\"\', units=\'\"&Request.QueryString(\"units\")&\"\' WHERE id=\"&id
    Connection.Execute(SQLstringK)
    response.buffer=true
    response.clear
    response.redirect \"users.asp\"
    response.end

end if
    %>
<html>

<head>
<title>Units</title>
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\" link=\"#006699\" vlink=\"#006699\" alink=\"#006699\">
        <%if not units.eof then%>
<form method=\"GET\" action=\"<%=request.servervariables(\"SCRIPT_NAME\")%>\">
  <input type=\"text\" name=\"username\" maxlength=\"100\" class=\"bottom\" value=\"<%=UNITS(\"username\")%>\">
Units:<input type=\"text\" name=\"units\" maxlength=\"100\" class=\"bottom\" value=\"<%=UNITS(\"units\")%>\">
  <input type=\"text\" name=\"godkendt\" value=\"<%=UNITS(\"godkendt\")%>\">
  <INPUT type=\"hidden\" name=\"id\" value=\"<%=UNITS(\"id\")%>\">
<input type=\"submit\" value=\"Ret\" name=\"knap\">
</form>
<%end if%>
</body>

</html>

Nr2:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"../db/database.mdb\")
Conn.Open DSN

strSQL = \"Select * From users Where username = \'\" & Trim(Replace(request.form(\"username\"),\"\'\",\"\'\'\" )) & \"\' AND Password = \'\" & Trim(Replace(request.form(\"password\"),\"\'\",\"\'\'\" )) & \"\'\"

Set rs = Conn.Execute(strSQL)
If (Not rs.eof) Then
Session(\"username\") = Request.Form(\"username\")
Response.write rs(\"units\")
else
Response.write \"Du har indtastet forkert brugernavn eller password\"
end if

Conn.Close
Set Conn = Nothing
%>
Ovenover skal jeg have pillet SESSION fra som viser \"units\" fra den session som er logged ind. Men det er også et login script, og det skal fjernes.