<% Function company1(n,Table)
Table = Lcase(Trim(Table))
 %>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
                            <tr>
                                    <td width="80%" align="left" height="25" bgcolor="#178EDE">&nbsp;&nbsp;<font color="#ffffff">最新加入企业</font></td>
                                    <td width="20%" bgcolor="#178EDE"><a  href=nchy/mingpian.asp class="linkone" target="_blank"><font color="#ffffff">更多...</font></a></td>
                                    </tr>
                                    </table>
                                    <table width="100%"  align="center" cellpadding="0" cellspacing="0" class="main">
                                    
                              <%
                              
                               set rs=server.CreateObject("adodb.recordset")
                               sql="select top "&n&" id,company,typename from '"& Table &"' where zj='1' order by dnt desc, place desc"
                            rs.open sql,conn,1,3
                            
                           Do While Not Rs.Eof
                          
                           
                          %>
                              <tr>
                                <td width=15></td><td height="18" align="left"><img src="ima/arrow5.gif" width="5" height="5" align="absmiddle">
                                  <% if rs("typename")="装饰装璜" then%> <a  href=nchy/zhuangshi-mp.asp?id=<%=trim(rs("id"))%>&typename=<%=rs("typename")%> class="linkone" target="_blank"><%else%><a  href=nchy/company_mingpian.asp?id=<%=trim(rs("id"))%>&typename=<%=rs("typename")%> class="linkone" target="_blank"><%end if%><font color="#333333"><%=getStr(trim(rs("company")),18)&".."%></font></a></td>
                               <td width=20><img  src="nchy/img/08065819.gif" ></td>
                              </tr>
                              <tr class="trline"  height="1">
                                <td width=15></td><td background="ima/back.gif"  height="1" colspan="2"></td>
                              </tr>
                              <%
                           Rs.MoveNext
                           Loop
                           Rs.Close
                           set rs=nothing

                          %>
                            </table>
                            <% End Function%>





调用后提示:查询语法错误。查询子句不完整。

请高手指点,在线等!!

把红色两个豆号去掉
sql="select top "&n&" id,company,typename from '"& Table &"' where zj='1' order by dnt desc, place desc"

试过了,没用

sql="select top "&n&" id,company,typename from '"& Table &"' where zj='1' order by dnt desc, place desc"
Response.Write(Sql)
显示一下sql语句然后把这句话后面的代码暂时的注释掉。

用Response.Write(Sql)后

select top 8 id,company,typename from '' where zj='1' order by dnt desc, place desc
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''


怎么变量没传值呀

朽木不可雕也

可以了，传值过程中出了点问题


正确的是：
sql="select top "&n&" id,company,typename from "& Table &" where zj='1' order by dnt desc, place desc"

谢谢各位了，
Response.Write(Sql)很管用

Response.Write()
Response.End()
ASP里面错误测试经常用到