地精火箭小队:asp.net存储过程有点问题,请帮助解决

<%
on error resume next
Dim con '定义对象
Dim sDatabaseName '用来装数据库的名字
sDatabaseName = "CL网络工作室数据库" '为数据库赋值名称
Set con = Server.CreateObject("ADODB.Connection") '创建对象
'打开对象的路径
con.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
'执行数据库语句用来创建数据库
con.Execute "CREATE DATABASE " & sDatabaseName
con.Close '关闭对象
'重新打开对象
con.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CL网络工作室数据库;Data Source=."
'在sDatabaseName库中创建表
con.Execute "create table CL工作室用户登陆表(系统ID int identity(1000,1) primary key,登陆ID varchar(8), 登陆密码 varchar(8),确认密码 varchar(8),真实姓名 varchar(8),出生年月 varchar(15),家庭住址 varchar(15),联系方式1 varchar(15),联系方式2 varchar(15),密码问题 varchar(12),密码答案 varchar(12))"
'为表里追加数据为登陆用
'con.Execute " insert into CL工作室用户登陆表 values ('admin','admin','admin','曹彩鹏','1980-06-15','湖北当阳','139-86830359','134-77835163','cao','caipeng')"
'创建存储过程--增加用
con.execute "create proc add_admin @add_id varchar(30),@add_pwd1 varchar(30),@add_pwd2 varchar(30),@add_name varchar(30),@add_age varchar(30),@add_address varchar(30),@add_tel1 varchar(30),@add_tel2 varchar(30),@add_question varchar(30),@add_anwser varchar(30) as begin insert into CL工作室用户登陆表 values(@add_id ,@add_pwd1 ,@add_pwd2 ,@add_name ,@add_age,@add_address ,@add_tel1 ,@add_tel2 ,@add_question ,@add_anwser )end "
'con.execute "create proc add_login(@id varchar(30),@pwd varchar(100))as begin if @id='root'begin select * FROM CL工作室用户登陆表view where 登陆ID=@id and 登陆密码=@pwd print '登陆成功'end if @id<>'root'print '登陆失败'end"
' con.execute "create proc add_login(@id varchar(30),@pwd varchar(100))as begin if @id='admin'and @pwd='admin'begin select * FROM CL工作室用户登陆表view where 登陆ID=@id and 登陆密码=@pwd return 1 end if @id<>''or @pwd<>'admin'begin return 0 end end "
'创建视图--删除--查找
con.execute"create view CL工作室用户登陆表view as select * ,'<a href=add_xg.asp?id='+convert(varchar(30),系统ID)+'>修改</a>'+'<a href=add_del.asp?id='+convert(varchar(30),系统ID)+'>删除</a>'as '<font color=#FF0000>操作项</font>' from CL工作室用户登陆表 "
'response.Write(sql)
'response.end
response.Redirect("login.asp")
%>
以上是本人的ASP中建库建表建视图建存储过程的代码
以下是调用存储过程的代码
<%
Dim rct '定义对象
dim con
Set con = Server.CreateObject("ADODB.Connection") '创建对象
Set rct = Server.CreateObject("adodb.recordset") '创建对象
con.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CL网络工作室数据库;Data Source=."
'sql="exec add_admin '"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"','"&request.Form("textfield")&"

dim add(10)'定义数组为传值备用
for i=1 to 10 '循环i到10
add(i-1)=request.Form("textfield"&i)'循环赋值
next
'执行存储过程并传值
sql="exec add_admin '"&add(0)&"','"&add(1)&"','"&add(2)&"','"&add(3)&"','"&add(4)&"','"&add(5)&"','"&add(6)&"','"&add(7)&"','"&add(8)&"','"&add(9)&"'"
rct.open(sql),con,1,3 '打开 rct
%>
<script language="JavaScript">
alert("恭喜您注册成功，您现在可以返回主页登陆CL聊天室.")
navigate("login.asp");
</script>

出现什么提示？这么看好乱。