<%
    dim strSql,rs,i,PageNo
    strSql="Select p.PropertyNO,p.DistrictName,p.Trade,p.PriceUnit,e.EmpName,e.Tel ,a.AreaName,a.DistrictName
From Area a,Employee e,Property p Where p.Trade = '出租' and e.EmpID=p.EmpID and   p.CityName=a.CityName 
order by p.PropertyNO"
    set rs=Server.CreateObject("ADODB.RecordSet")
    rs.open strSql,conn,3,3
    rs.PageSize=20
    PageNo=request("PageNo")
    if PageNo<1 or not isnumeric(PageNo) then
        PageNo=1
    end if
    if cint(PageNo)>rs.PageCount then
        PageNo=rs.PageCount
    end if
%>

运行出现:

错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/hire.asp, line 361, column 105
strSql="Select p.PropertyNO,p.DistrictName,p.Trade,p.PriceUnit,e.EmpName,e.Tel ,a.AreaName,a.DistrictName
--------------------------------------------------------------------------------------------------------^