brugersystem

hvad er der galt her..
den skriver ik noget om der er fejl eller noget som helst hvad kan der så værre fejl ??



<%
Function ChkString(str)   
       
        str = replace(str, \"<\", \"&lt;\", 1, -1, 1)
        str = replace(str, \">\", \"&gt;\", 1, -1, 1)
   
    ChkString = str
End Function

Brugernavn = trim(ChkString(Request.form(\"brugernavn\")))
Password = trim(ChkString(Request.form(\"password\")))
Navn = trim(ChkString(Request.form(\"navn\")))
Alder = trim(ChkString(Request.form(\"Alder\")))
by = trim(ChkString(Request.form(\"by\")))
Email = trim(ChkString(Request.form(\"Email\")))
Icq = trim(ChkString(Request.form(\"icq\")))
website = trim(ChkString(Request.form(\"website\")))
fritekst = trim(ChkString(Request.form(\"fritekst\")))

ConnString = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"bruger.mdb\")

set my_conn= Server.CreateObject(\"ADODB.Connection\")
my_Conn.Open ConnString
set rscheck = my_conn.Execute (\"Select email from bruger where email=\'\" & email & \"\'\")
       
if rscheck.eof then
been_here_before=\"No\"
end if

RScheck.close
set rs = server.CreateObject(\"adodb.recordset\")   
if been_here_before=\"No\" then
sql =\"select * from bruger\"

RS.open Sql,my_conn,1,3
RS.AddNew
RS(\"Brugernavn\")=brugernavn
RS(\"Password\")=password
RS(\"Navn\")=navn
RS(\"Alder\")=alder
RS(\"By\")=by
RS(\"Icq\")=icq
RS(\"Website\")=website
RS(\"fritekst\")=fritekst
RS(\"dato\") = now()

RS.update
        %>
        <center><font face=\"Verdana\" size=\"2\">Tillykke du er oprettet :)!<br>
        Din ID nr: <%=email%> , Og din adgangskode : <%=password%>
        </font>
<p><a href=\"login.asp\"><font face=\"Verdana\" size=\"2\">Gå til log ind siden.</font> </a>
       
        <%
        else   
        %>
<br>
        <%
        end if
       
rs.close
my_conn.Close
set my_conn = nothing
set rs = nothing
%>