反兴奋剂中心:rs.open sql,conn,1,3

<%@LANGUAGE="VBSCRIPT"%>
<table width="779" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="779" height="13" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="13" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="269" align="center" valign="middle">
<%
dim username,realname,sex,userpassword,userpwd,ask,answer,email
dim year,month,day,qq,tel,phone,addr,kfzl,qm
dim sql,conn,submit
submit=request("Submit")
if submit="提交" then
username=request("username")
realname=request("realname")
sex=request("sex")
userpassword=request("userpassword")
userpwd=request("userpwd")
ask=request("ask")
answer=request("answer")
email=request("email")
if username="" then
messes="·登录名不能为空"
else
sql="select * from dbo.[user] where username='"& username &"'"
set rs=server.CreateObject("ADODB.Recordset")

rs.open sql,conn,1,1

if not rs.eof and not rs.bof then
messes="·您的登录名已经被使用，请更改"
else
。。。 else
rs.addnew
rs("username")=username
rs("realname")=realname
rs("sex")=sex
rs("userpassword")=userpassword
rs("ask")=ask
rs("answer")=answer
rs("email")=email
rs("year")=year
rs("month")=month
rs("day")=day
rs("qq")=qq
rs("tel")=tel
rs("phone")=phone
rs("addr")=addr
rs("kfzl")=kfzl
rs("qm")=qm
rs.update
messes="·<a href='index.asp'>注册成功，返回首页登录</a>"
end if
end if
rs.close
set rs=nothing
end if
end if
%><%=request("mess")%><%=messes%> </td>
</tr>
<tr>
<td height="13" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="25" align="center" valign="middle" background="../image/subbg.gif"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="13" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="59" align="center" valign="middle"><!--#include file="over.asp"--> </td>
</tr>
<tr>
<td height="70"> </td>
</tr>
</table>

还是刚才的问题！！偶是新手
刚才几个好心人帮我解答了，但是不行，不过谢谢你们
我怕是我的整个程序有错，贴出来看看！部分省略，因为不可以贴那么多字！
希望这次能解决！谢谢！