Hmn...Hvad fanden sker der

Hey. Jeg har et lille problem jeg ikke kan forstå at jeg har. Er ved at lave en bruger profil side til mit login system. Men har et problem med Rediger siden.




<%

strMode = Request.Querystring("Mode")
Response.Buffer = True


strBrugeradgang = session("brugeradgang")

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

%>



<%
if strMode = "Update" then
    ' SQL2-sætning opbygges
    strSQL2 = "Update Users set "
    strSQL2 = strSQL2 & "Adgangskode= '" & Request.form("Adgangskode") & "', "
    strSQL2 = strSQL2 & "Mail= '" & Request.form("Mail") & "', "
    strSQL2 = strSQL2 & "Fødedato= '" & Request.form("Fødedato") & "', "
    strSQL2 = strSQL2 & "Fødemaaned= '" & Request.form("Fødemaaned") & "', "
    strSQL2 = strSQL2 & "Fødeaar= '" & Request.form("Fødeaar") & "', "
    strSQL2 = strSQL2 & "Fornavn= '" & Request.form("Fornavn") & "', "
    strSQL2 = strSQL2 & "Efternavn= '" & Request.form("Efternavn") & "', "
    strSQL2 = strSQL2 & "Adresse= '" & Request.form("Adresse") & "', "
    strSQL2 = strSQL2 & "postnr= '" & Request.Form("Postnr") & "', "
    strSQL2 = strSQL2 & "City= '" & Request.Form("City") & "', "
    strSQL2 = strSQL2 & "Hjemmeside= '" & Request.Form("Hjemmeside") & "', "
    strSQL2 = strSQL2 & "Fritekst= '" & Request.Form("Fritekst") & "' "
    strSQL2 = strSQL2 & " Where Brugernavn = '" & Session("Brugeradgang") & "';"

' SQL2 sætning eksekveres
Conn.Execute(strSQL2)

Response.Redirect("Rediger_Profil.asp?Mode=Updated")
Elseif strMode = "Updated" Then
Response.Redirect "include/profil_opdateret.inc"
else

strSQL = "Select * From users Where Brugernavn = '" & strBrugeradgang & "'"
Set rs = Conn.Execute(strSQL)





%>
<% End if %>


<%
Str_ID=Request.QueryString("ID")

Dim PicCheck
Set PicCheck = CreateObject("Scripting.FileSystemObject")
PicFile=Server.MapPath("Bruger_Billeder/" & str_ID & ".jpg")
If (PicCheck.FileExists(PicFile)) Then
Picture_Name="Bruger_Billeder/" & str_ID & ".jpg"
else
Picture_Name="Bruger_Billeder/User_Missing_Picture.jpg"
end if
Set PicCheck=nothing
%>


Det jeg prøver at få til at virke er
Str_ID=Request.QueryString("ID")

Men det kræver at jeg får
Set rs = Conn.Execute("select * from users where ID = " & Request.QueryString("ID"))
sat in lige ovenover. Men det vil den ikke. Hvis jeg sætter den ind, virker siden ikke, og jeg får denne fejl:


Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ID ='.



Ved at det har noget at gøre med Mode Opdate at gøre.
Får på Vis profil siden virker det fint, men det er kun en vis profil, og ikke en rediger profil, så der er Mode Opdate der ikke, og det køre bare.

Nogen der kan hjælpe..???