你没有定义过程或者函数HtmEnd ,请将这段源代码补上
sub HtmEnd(Msg)
set upload=nothing
response.Write "<br>"&Msg&"[<a href=""javascript:history.back()"">返回</a>]"
response.End
end sub
后半部分把你改了一下：
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select count(*) from [order] where ordernum='"&ordernum&"'"
rs.open sqlstr,conn,1,1（这就是出错的行）
if rs(0)>0 then
response.Write("对不起，你的输入的提单编号已经存在，请使用新的提单编号<br><br>")
response.Write("<a href='order_add.asp'>返回重新输入</a>")
rs.close
set rs=nothing
response.End()
end if
%>
