ASP注册问题

VBScript code:
<%
if request.form.count<>0 then
id=request.querystring("id")
SQL = "Select username,contrl from users where username='"&id&"'"
set rr=conn.execute(sql)
contrl=rr("contrl")
regf=rr("username")
set rr = nothing
if contrl=1 or id=regf then

sql="select * from users where username='"&regf&"'"
set rm=conn.execute(sql)
regfrom=rm("regfrom")
username=request.Form("username")
userpass=request.Form("password")
qq=request.Form("qq")
province=request.Form("province")
city=request.Form("city")
bank_name=request.Form("bank_name")
bank_num=request.Form("bank_num")
bank_bank=request.Form("bank_bank")
if id="" then
id="admin"
end if

if username<>"" then
if Cint(request.Form("codestr")) = Session("GetCode") then
sql="select username from users where username='"&username&"'"
set rr=conn.execute(sql)
if rr.eof then

SQL = "Select * from users"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,2
Rs.addnew