向各位大侠求救！！急

[nanjingshi]

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

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

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

行集不能被重新启动。

/xhcclient/_ScriptLibrary/client/soidpart.asp，行252

下面是我的源代码

set conn11=server.CreateObject("adodb.connection")
set cmd11=server.CreateObject("adodb.command")
set rs11=server.CreateObject ("ADODB.Recordset")
conn11.Open "hcproject",session("namehc"),session("hc")
set cmd11.ActiveConnection=conn11
cmd11.CommandType=4
cmd11.CommandText="salebox_search"
cmd11.Parameters(1)=rs1(0)
cmd11.Parameters(2)=rs1(5)
cmd11.Parameters(3)=rs1(6)
set rs11=cmd11.Execute()


if rs11.EOF then
sale_box_search="还没有号码"
else
'252行 rs11.MoveFirst
box1=rs11(1)
rs11.MoveLast
box2=rs11(1)
dim j,m,n
m=clng(box1)
n=clng(box2)
j=n-m+1

set conn12=server.CreateObject("adodb.connection")
set cmd12=server.CreateObject("adodb.command")
set rs12=server.CreateObject ("ADODB.Recordset")
conn12.Open "hcproject",session("namehc"),session("hc")
set cmd12.ActiveConnection=conn12
cmd12.CommandType=4
cmd12.CommandText="pre_name_search"
cmd12.Parameters(1)=rs1(0)
cmd12.Parameters(2)=rs1(5)
cmd12.Parameters(3)=rs1(6)
set rs12=cmd12.Execute()

if rs12.recordcount<>1 then
box10=1
else
box10=0
end if

rs12.close
conn12.close

sale_box_search=rs11(0)
if j = rs11.RecordCount and box10=0 then
sale_box_search= sale_box_search&" "&box1&"-"&box2
else
box3=" "
rs11.MoveFirst
id1=clng(rs11(1))

id3=clng(rs11(1))
isel=true
sale_box_search=rs11(0)
while isel = true
rs11.MoveNext
if rs11.EOF then
if id2 <> id1 then
rs11.MoveLast
sale_box_search1=rs11(0)
box3 = box3&sale_box_search1&" "&id1&"-"&id2
end if
isel=false
else

id2=clng(rs11(1))
sale_box_search1=rs11(0)
id4 = id3 + 1

if id2 = id4 and sale_box_search = sale_box_search1 then
id3=id2
else
box3=box3&sale_box_search&id1&"-"&id3&";"
sale_box_search=rs11(0)
id3=id2
id1 = id3
end if

end if

wend

sale_box_search= box3

end if


end if
请大侠们指点迷津
谢啦！！

[lbd8848]

conn11.Open "hcproject",session("namehc"),session("hc")
set cmd11.ActiveConnection=conn11
cmd11.CommandType=4
cmd11.CommandText="salebox_search"
cmd11.Parameters(1)=rs1(0)
cmd11.Parameters(2)=rs1(5)
cmd11.Parameters(3)=rs1(6)
set rs11=cmd11.Execute()

下面加一句 rs11.open "select * from table",conn11,1,2

[flbz]

检查你的if 语句,肯定有end if与if then 对应不上的

[lbd8848]

set rs11=server.CreateObject ("ADODB.Recordset")
你只定义了上一句，但没有使用rs11打开任何表

[希偌]

少了一个end if?

[nanjingshi]

我用的是存储过程salebox_search

[nanjingshi]

if 和 end if是对应的

[stefli]

+ 不会哦！你就在多加一个end if看看。测试一些就知道你是不是缺少了。

[nanjingshi]

我已经试过了，问题不是出在这儿。我刚才没用存储过程，改用下面的程序
sqlcmd11="select sbn.pre_name , sbn.id, sbn.madeno , sbn.flag from sale_box_number sbn, sodetail sd where sd.part=sbn.part and sd.soid=sbn.soid and sd.so_seq = sbn.seqid and sbn.soid='"&soid1&"' and sbn.part='"&part1&"'and sbn.seqid ='"&soseq1&"' order by sbn.id "
set conn11=server.CreateObject("ADODB.Connection")
set rs11=server.CreateObject ("ADODB.Recordset")
conn11.Open "hcproject",session("namehc"),session("hc")
rs11.Open sqlcmd11,conn11 ,3,3
就没有问题，
是不是在使用存储过程得到的记录不能进行rs11.movefirst和rs11.movelast操作？？
还是由于cmd11.CommandType=4的取值的问题？？
请高手度来看看！！！！！

[nanjingshi]

我自己解决了