编程问题--急啊

<%
dim mysql
dim newusername,newuserpwd,newusernickname,ipadd
newusername=request.form("realname")
newuserid=request.form("uid")
newuserpwd=request.form("pwd1")
newusernickname=request.form("nickname")
ipadd=request.servervariables("remote_host")

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
set myrecord server.createobject("ADODB.recordset")
－－－－－－－－－－－－－－－－－－－－－－－－－－－
set myrecord = server.createobject("ADODB.recordset")
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

mysql="select*from everuser where userid='"& newuserid &"'"
myrecord.open mysql,conn,1,3

if not myrecord.bof then
response.write" this name have already exited,please input another new"
response.write"<a href='newuser.asp'>renew another"
else
myrecord.addnew
myrecord("userid")=ne