Tilmeldnings system ?????????

Jeg kan ikke fatte hvad der er galt med dette script, for når man tilmelder på det kommer der bare \"siden kan ikke vises\"

Help!!!

Her er scriptet: <%
    Function IsEmail(strEmail)
        Set objRegExpEMail = New RegExp

        objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"
        objRegExpEMail.Global = True
        objRegExpEMail.IgnoreCase = True

        IsEmail = objRegExpEMail.Test(strEmail)

        Set objRegExpEMail = Nothing
    End Function

    If Request(\"add\") = \"yes\" Then
        strusername = Trim(Request(\"username\"))
        strEmail = Trim(LCase(Request(\"email\")))
        strpassword = Trim(Request(\"password\"))
        strrigtignavn = Trim(Request(\"rigtignavn\"))
        strmigselv = Trim(Request(\"migselv\"))
        strurl = Trim(Request(\"url\"))
       

        DoReg = True

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

        If strpassword = \"\" Then Response.Write \"Du glemte at skrive et password :-(\": DoReg = False
        If DoReg And strEmail = \"\" Then Response.Write \"Du glemte at indtaste din email adresse :-(\": DoReg = False
        If DoReg And strusername = \"\" Then Response.Write \"Du glemte at indtaste et brugernavn :-(\": DoReg = False
        If DoReg And Not IsEmail(strEmail) Then Response.Write \"Den indtastede email adresse er ikke gyldig :-(\": DoReg = False

        Set Rs = Conn.Execute(\"SELECT * FROM user WHERE email=\'\" & strEmail & \"\';\")
        If DoReg And Not Rs.BOF Then Response.Write \"Den indtastede email adresse er allerede tilmeldt :-(\": DoReg = False

        If DoReg Then
            Conn.Execute \"INSERT INTO user (username,email,password,rigtignavn,url,migselv) VALUES (\'\" & Replace(strusername, \"\'\", \"\'\'\") &\"\',\'\" & strEmail & \"\',\'\" & Replace(strpassword, \"\'\", \"\'\'\") & \"\'),\'\" & Replace(strrigtignavn, \"\'\", \"\'\'\") & \"\',\'\" & Replace(strurl, \"\'\", \"\'\'\") & \"\'),\'\" & Replace(strmigselv, \"\'\", \"\'\'\") & \"\');\"
            Response.Write \"Tal for din tilmelding :-)\"
        End If
    Else
%>