这是代码：
<%
Dim Recordset1
Dim Recordset1_numRows
Dim number
number=request("number")

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_odb_STRING
recordset1.source="SELECT * FROM member where number=number"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>

这里输出的还是第一条记录，我想是number=number的错误，我改为这样：
Dim A
A=request("number")

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_odb_STRING
recordset1.source="SELECT * FROM member where number=A"

测试错误：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'

[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。

/MEMBER/info.asp，行15




这是什么回事啊？大家帮帮我，我明天要交货了

问题还没解决：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_odb_STRING
rs.source="SELECT * FROM member where number='"&request.querystring("number")&"'" ,3
rs.Open()

%>







<% if rs.eof and rs.bof then%>

会员<%=request.querystring("number")%>
还没有注册！或者已经被删除！

<%
rs.Close()
Set rs = Nothing
%>

输出错误：
会员个人信息
亲爱的会员:[
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Field 错误 '80020009'

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/MEMBER/info.asp，行0



另外改成这样：
<%
dim usernumber, rs
if Session.Contents("number") = " " then %>

<%
else
'获得查询的会员卡号
usernumber=request.querystring("number")
'创建数据库连接
set conn1=server.createobject("adodb.connection")
DBPath = Server.MapPath("member.asp")
conn1.Open "driver={Microsoft Access Driver (*.mdb)}; dbp=" & DBPath
set rs=server.createobject("adodb.recordset")
'查询所选会员个人资料
set rs=conn1.execute("select * from member Where number='"&usernumber&"'")
%>







<% if rs.eof and rs.bof then%>

会员<%=usernumber%>
还没有注册！或者已经被删除！

 

$nbsp;

重新登陆

<%else%>

中国直复营销网会员个人信息

姓名: <%=rs("username")%>

卡号: <%=rs("number")%>

性别: <%=rs("sex")%>

出生日期: <%=rs("born")%>

地址: <%=rs("address")%>

身份证号: <%=rs("IDNo")%>

电话: <%=rs("tel")%>

文凭: <%=rs("xueli")%>

介绍人: <%=rs("jiesh")%>

介绍人卡号: <%=rs("jieshrNo")%>

查询其他会员资料

恒源国际

<%
'关闭数据库
rs.close
set conn1=nothing
set rs=nothing
%>





输出错误如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/MEMBER/info.asp，行64



怎么回事呢？