引用:

---

<%
set rs4=server.CreateObject("ADODB.RecordSet")
rs4.Source="select * from News order by NewsID"
rs4.Open rs4.Source,conn,1,1
%>
<%
i=1
Dim Arrayhot(20)

while not rs4.EOF
RecordCount=rs4.RecordCount

Hot=rs("hot")
-----------------rs4("hot")的吧?
Arrayhot(i)=Hot

i=i+1

rs4.MoveNext
wend
rs4.close
%>
<%
set rs5=server.CreateObject("ADODB.RecordSet")
for i=1 to RecordCount
---------------------------------RecordCount?你本意不是如此吧?(rs5.Recordcount也应该吧后面的一段代码写在for之前)
hot=Arrayhot(i)

%>
                 <%
rs5.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,hot,click from News where hot='"1"' order by NewsID DESC"
rs5.Open rs5.Source,conn,1,1
while not rs.EOF
-------------------------应该是while not rs5.eof吧?
Title=trim(rs5("Title"))
TitleLen=len(Title)
If TitleLen<15 then
Response.Write "