Kan ikke få det til at virker.. (Haster)

Hej jeg har lidt problemmer med denne kode.

<%
If Request.Form(\"Action\") = \"Gem\" Then
    strUID = Trim(Replace(Request.Form(\"username\"),\"\'\",\"\"))

    If Len(strUID) > 0 Then

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

        strSQL = \"SELECT * FROM bruger WHERE (Username = \'\" & strUID & \"\')\"
        Set rs = Conn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
        strERR = \"Brugernavn er Optaget\"
        else
        SQL = \"insert into bruger (Name,Username,Password,Email,kon,alder,town,landsdel,Seksuelstatus,partnerstatus,dinhojde,dinvaegt,dinharfave,dinojenefave,born,ryger,uddannelse,baggrund,Seksuelleinteresser,soger,Notat,opratte,Status,grad) values (\'\" & Trim(Replace(Request.Form(\"realname\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"username\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"Password\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"email\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_2\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"age\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"town\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_1\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_3\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_4\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_5\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_6\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"haircolor\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"eyecolor\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"children\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"smoke\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"education\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"etnicbackground\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_7\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"combo_8\"),\"\'\",\"\")) & \"\',\'\"& Trim(Replace(Request.Form(\"personaldescription\"),\"\'\",\"\")) & \"\',now,0,0)\"
        Conn.Execute(SQL)
        SQL = \"SELECT * FROM bruger WHERE (Username = \'\" & strUID & \"\')\"
        Set rs = Conn.Execute(SQL)
        intUID = RS(\"ID\")
        Set rs = Nothing
        end if
        Conn.Close
        Set rs = Nothing
        Set Conn = Nothing
   
        If Len(intUID) Then
            Session(\"id\") = intUID
            \'strErr = \"adgang give \" & intUID                            \' Her har jeg et problem hvor den ikke vil gå ind
            response.redirect \"./\"

\'    Fejl Besked
           
\'    Response-objekt fejl \'ASP 0156 : 80004005\'
\'    Headerfejl
\'    profile.asp, linje 31
\'    HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.
           
\'    Jeg kan ikke få den til at gå til en anden fil, da den har opratte og hente bruger id. der til virker den som den skal.           
           
           
        End If
    End If

    If Len(strErr) > 0 Then

        strErr = \"<p><font color=red>\" & strErr & \"</font></p>\"
    End If
End If
%>

Jeg kan ikke få den til at gå vider..