kimiwan hjælp mig

her er oprettles koden til det !!!

<!-- #include virtual = "inc/dbconn.asp" -->
<!-- #include virtual = "inc/options.asp" -->
<!-- #include virtual = "inc/status.asp" -->
<!-- #include virtual = "inc/top.asp" -->
<%
if request("mode") = "opret" then

session("name") = Request.Form("name")
session("username") = Request.Form("username")
session("pass") = Request.Form("pass")
session("pass2") = Request.Form("pass2")
session("alder") = Request.Form("alder")
session("land") = Request.Form("land")
session("email") = Request.Form("email")
session("server") = Request.Form("server")


if Request.Form("name") = "" then Response.Redirect "createuser.asp?error=1" end if
if Request.Form("username") = "" then Response.Redirect "createuser.asp?error=2" end if
if Request.Form("pass") = "" then Response.Redirect "createuser.asp?error=3" end if
if not Request.Form("pass") = Request.Form("pass2") then Response.Redirect "createuser.asp?error=4" end if
if Request.Form("alder") = "" then Response.Redirect "createuser.asp?error=5" end if
if Request.Form("land") = "" then Response.Redirect "createuser.asp?error=6" end if
if Request.Form("email") = "" then Response.Redirect "createuser.asp?error=7" end if
if Request.Form("server") = "" then Response.Redirect "createuser.asp?error=8" end if

strsql= "Select * From user"
set rs = conn.execute(strsql)

do until rs.EOF
if Request.ServerVariables("REMOTE_ADDR") = rs("ip") then
Response.Redirect "createuser.asp?error=10"
end if
rs.MoveNext
loop

strSQL = "SELECT * FROM user where username = '" & Request.Form("username") & "'"
Set rs = Conn.Execute(strSQL)
If not (rs.BOF Or rs.EOF) Then
response.redirect "createuser.asp?error=9"
End If
   



        strSQL = "SELECT * FROM user"
        Set RS = Server.CreateObject("ADODB.Recordset")
        rs.Open strSQL, Conn, 3, 3

          rs.AddNew
        rs("name") = Request.Form("name")
        rs("username") = Request.Form("username")
        rs("pass") = Request.Form("pass")
        rs("alder") = Request.Form("alder")
        rs("land") = Request.Form("land")
        rs("email") = Request.Form("email")
        rs("server") = Request.Form("server")
        rs("god") = "notselect"
        rs("status") = "user"
        rs("opretdato") = now()
        rs("win") = "0"
        rs("lose") = "0"
        rs("team") = "notselect"
        rs("ip") = Request.ServerVariables("REMOTE_ADDR")
        rs.Update
         
          session("name") = ""
        session("username") = ""
        session("pass") = ""
        session("pass2") = ""
        session("alder") = ""
        session("land") = ""
        session("email") = ""
        session("server") = ""
          session("newusername") = Request.Form("username")
          session("teamtjek") = "yes"
         
          Response.Redirect "selectteam.asp"



else

error = request("error")

if error = 1 then Response.Write cb & cuser1 & scb end if
if error = 2 then Response.Write cb & cuser2 & scb end if
if error = 3 then Response.Write cb & cuser3 & scb end if
if error = 4 then Response.Write cb & cuser4 & scb end if
if error = 5 then Response.Write cb & cuser5 & scb end if
if error = 6 then Response.Write cb & cuser6 & scb end if
if error = 7 then Response.Write cb & cuser7 & scb end if
if error = 8 then Response.Write cb & cuser8 & scb end if
if error = 9 then Response.Write cb & cuser9 & scb end if
if error = 10 then Response.Write cb & cuser10 & scb end if
%>

<FORM action="createuser.asp?mode=opret" method=POST id=form1 name=form1>
<br>


<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
    <tr>
      <td>Name: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" name=name value="<%=session("name")%>" size="20"></td>
    </tr>
    <tr>
      <td>Username: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" name=username value="<%=session("username")%>" size="20"></td>
    </tr>
    <tr>
      <td>Password: </td>
    </tr>
    <tr>
      <td>
<INPUT type="password" name=pass value="<%=session("pass")%>" size="20"></td>
    </tr>
    <tr>
      <td>Password igen: </td>
    </tr>
    <tr>
      <td>
<INPUT type="password" name=pass2 value="<%=session("pass2")%>" size="20"></td>
    </tr>
    <tr>
      <td>Age: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" id=text1 name=alder value="<%=session("alder")%>" size="20"></td>
    </tr>
    <tr>
      <td>Contry: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" id=text2 name=land value="<%=session("land")%>" size="20"></td>
    </tr>
    <tr>
      <td>Email: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" id=text3 name=email value="<%=session("email")%>" size="20"></td>
    </tr>
    <tr>
      <td>Server: </td>
    </tr>
    <tr>
      <td>
<INPUT type="text" name=server value="<%=session("server")%>" size="20"></td>
    </tr>
    <tr>
      <td>
<INPUT type="submit" value="Submit" id=submit1 name=submit1></td>
    </tr>
  </table>
  </center>
</div>

</FORM>

<% end if %>
<!-- #include virtual = "inc/bund.asp" -->

det er så erro fejl nr 10 !!!

zez