紧急求助，asp+sql2000我写的这些代码怎么不能用
说明：（我是超级菜鸟，就会点html静态语言现在要做一个超级简单的查询系统，但我不会，网上学了半半拉拉，复制了点命令连起来，也没有运行通过，请大家帮忙，谁帮我改好，要是有说明那就更加五体投地的谢您了。要是您太忙，您把需要改的地方用文字说明一下，我自己找也行。要是您不忙帮我写好，那您就是大救星了。）asp+sql2000 iis和sql2000同在一台服务器上 就一个表：customersign1 包含 客户号，经纪人，日期，电话，地址
default.asp 为框架文件，包含02shangmian(上面的意思).asp和03xiamian（下面的意思）.asp文件；
02shangmian.asp文件的功能：
1.根据客户号和经纪人以及合同号为条件进行查询，结果显示到03xiamian.asp页面
2.向数据库添加一条记录包含“经纪人”“客户号”“姓名”“身份证号”“地址”等项目。
03xiamian.asp文件主要就是接受02shangmian.asp文件发出的查询条件，从数据库进行查询并显示结果。
数据库ip ： 192.100.100.99 名称 **** 用户名：** 密码 ：***
下面是源码：
---------------------
default.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页</title>
</head>
<frameset rows="229,*" cols="*" framespacing="0" frameborder="yes" border="0" bordercolor="#000000">
<frame src="02shangmian.asp" name="topFrame" scrolling="NO" noresize>
<frame src="03xiamian.asp" name="mainFrame">
</frameset>
<noframes><body>
</body></noframes>
</html>
--------------------------------------
02shangmian.asp
html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查询增加页面</title>
<style type="text/css">
<!--
.style1 {
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<div align="center">
<p class="style1">信息查询系统 </p>
<form name="input1" method="post" action="03xiamian.asp?action=Find">
<select name="select">
<option value="code" selected> 客户号 </option>
<option value="manager"> 经纪人</option>
</select>
<input type="text" name="input2">
<input type="submit" value="查询记录">
</form>
<table width="98%" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#000000">
<tr>
<td>经纪人</td>
<td>客户号</td>
<td>日期</td>
<td>姓名</td>
<td>地址</td>
</tr>
<tr>
<td><form name="manager" method="post" action="04xieru.asp">
<input type="text" >
</form></td>
<td><form name="code" method="post" action="04xieru.asp">
<input type="text" >
</form></td>
<td><form name="datee" method="post" action="04xieru.asp">
<input type="text" >
</form></td>
<td><form name="customer" method="post" action="04xieru.asp">
<input type="text" >
</form></td>
<td><form name="addr" method="post" action="04xieru.asp">
</form></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<form name="form2" method="post" action="04xieru.asp?action=Find">
<input type="submit" name="Submit2" value="增加记录">
</form>
<p> </p>
<br><br>
</div>
<p> </p>
</body>
</html>
--------------------------------------------------
03xiamian.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>下半部显示叶面</title>
</head>
<body>
<%
input1=Request.Form("input1") '将02shangmian.asp表单中的数据取出到变量input1和input2中
input2=Request.Form("input2")
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=SQLOLEDB; Data Source=127.0.0.1; UID=**; PWD=***; Database=****"
Conn.Open Connstr
Set rs= Server.CreateObject("ADODB.RecordSet")
'以上两语句为建立ADO对象，并连接数据库
sql="select * from customersign1 where input1='#"&input1&"#' like '%"&input2&"%'"
set rs=con.execute(sql) '执行SQL语句从数据库中查找满足条件的数据
if not rs.eof then '判断是否有满足条件的数据
do while not rs.eof
Response.Write dt&" 结果是： "&rs("sco")&"<br>" '循环将满足条件的数据显示
Rs.movenext
Loop
End if
Rs.close
Con.close '关闭连接
%>
</body>
</html>
-------------
04xieru.asp
<html>
<%
dim manager,code,datee,customer,addr
dim rs_test_name,rs_user
'接收表单数据
manager=request.form("manager")
code=request.form("code")
datee=request.form("datee")
customer=request.form("customer")
addr=request.form("addr")
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=SQLOLEDB; Data Source=127.0.0.1; UID=**; PWD=***; Database=****"
Conn.Open Connstr
'写入数据库
set rs_user=server.CreateObject("adodb.recordset")
rs_user.open "select * from [customersign1]",
'添加记录
rs_user.addnew
rs_user("manager")=manager
rs_user("code")=code
rs_user("datee")=datee
rs_user("customer")=customer
rs_user("addr")=addr
session("user_name")= name
%>
</html>
程序代码：