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

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

Microsoft OLE DB Provider for SQL Server 错误 '80040e14' 

在关键字 'order' 附近有语法错误。 

/admin/yp/yp.asp，行93 

<%if request("word")<>"" then
sql= "select *  from SMT_yp where SMT_coname like'%"&request("word")&"%' order by [SMT_id] desc"
elseif request("vip")<>"" then
sql="select * from SMT_yp where SMT_vip="&request("vip")&" and (SMT_key=1 or SMT_key=3) and SMT_ktdate>"&SMT_citydate&" order by [SMT_id] desc"
elseif request("cha")<>"" then
sql= "select *  from SMT_yp where SMT_ktdate<("&SMT_citydate&"+10) and (SMT_ktdate-"&SMT_citydate&")>0 order by [SMT_id] desc"
elseif request("key1")<>"" then
sql="select *  from SMT_yp where SMT_key1=0 order by [SMT_id] desc"
elseif request("key2")<>"" then
sql="select *  from SMT_yp where SMT_key="&request("key2")&" order by [SMT_id] desc"
else
sql="select *  from SMT_yp order by [SMT_id] desc"
end if
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
    response.write "暂无内容"
else  
'分页的实现 
listnum=23
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>