xinwen.asp
改成这样，还是提示同行的错误

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
lianjie.asp, 第 6 行




<%
dim sql
Dim stringes,displays,homepages,filers,title,ok
set rs=server.createobject("adodb.recordset")
          sql="select * from info"
          rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
homepages=rs("homepage")
filers=rs("filer")
          rs.close
sql="Select top 10 * From news Order By Date DESC"
rs.open sql,conn
 if not rs.eof then
    rs.movefirst
    ok=ok & ""
    do while not rs.eof
    if len(rs("title"))>stringes then
    title=left(rs("title"),stringes)
    else
 title=rs("title")
 end if
    ok=ok &"<a href=../Display.asp?id=" & rs("id") & " title=点击链接，进入详细页面  target=_blank>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
        rs.movenext
    loop
   
end if
           rs.close

          set rs=nothing

ok=""&ok&""
response.write ok
%>

<%
dim sql
Dim stringes,displays,homepages,filers,title,ok
set rs=server.createobject("adodb.recordset")
          sql="select * from info"
          rs.open sql,conn
stringes=rs("stringe")
displays=rs("display")
homepages=rs("homepage")
filers=rs("filer")
          rs.close
sql="Select top 10 * From news Order By Date DESC"
rs.open sql,conn
if not rs.eof then
    rs.movefirst
    ok=ok & ""
    do while not rs.eof
    if len(rs("title"))>stringes then
    title=left(rs("title"),stringes)
    else
title=rs("title")
end if
    ok=ok &"<a href=../Display.asp?id=" & rs("id") & " title=点击链接，进入详细页面  target=_blank>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
        rs.movenext
    loop
    
end if
           rs.close

          set rs=nothing

ok=""&ok&""
response.write ok
%> 

lianjie.asp源码是：

<table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="ffffff">
<%
  dim i
  i=0
    rs.open "select * from links where falg=1 and type1='1' order by id desc",conn,1,1'哪里来的rs
    if rs.recordcount=0 then 
       response.Write ""
    else
      if ii mod 8=0 then response.Write "<tr align=center bgcolor=F3F6FA>"
        do while not rs.eof
          response.write "<td><a href="&rs("webaddr")&" target=_blank><img src="&rs("weblogo")&" border=0 width=88 height=31></a></td>"
          i=i+1
      if i mod 8=0 then response.Write("</tr>")
          
     rs.movenext
          loop
   end if
rs.close
set rs=nothing
%>
</table>

<!--#include file="conn.asp"-->

<%
dim sql
Dim stringes,displays,homepages,filers,title,ok
set rs=server.createobject("adodb.recordset")
          sql="select * from info"
          rs.open sql,conn,1,1
stringes=rs("stringe")
displays=rs("display")
homepages=rs("homepage")
filers=rs("filer")
          rs.close
sql="Select top 10 * From news Order By Date DESC"
rs.open sql,conn,1,1
if not rs.eof then
    rs.movefirst
    ok=ok & ""
    do while not rs.eof
    if len(rs("title"))>stringes then
    title=left(rs("title"),stringes)
    else
title=rs("title")
end if
    ok=ok &"<a href=../Display.asp?id=" & rs("id") & " title=点击链接，进入详细页面  target=_blank>"&title&"</a>[<font size=1>"&datevalue(rs("Date")) & "</font>]<br>"
        rs.movenext
    loop
   
end if
           rs.close
          'conn.close
          'set rs=nothing
          'set conn=nothing
ok=""&ok&""
response.write ok
%>




<table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="ffffff">
<%
  dim i
  i=0
    rs.open "select * from links where falg=1 and type1='1' order by id desc",conn,1,1
    if rs.recordcount=0 then
       response.Write ""
    else
      if ii mod 8=0 then response.Write "<tr align=center bgcolor=F3F6FA>"
        do while not rs.eof
          response.write "<td><a href="&rs("webaddr")&" target=_blank><img src="&rs("weblogo")&" border=0 width=88 height=31></a></td>"
          i=i+1
      if i mod 8=0 then response.Write("</tr>")
         
     rs.movenext
          loop
   end if
rs.close
set rs=nothing
%>
</table>

<table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="ffffff">
<%
  dim ii
  ii=0
   Set rs1=Server.CreateObject("ADODB.Recordset")
   
    rs1.open "select * from links where falg=1 and type1='2' order by id desc",conn,1,1
    if rs1.recordcount=0 then
       response.Write ""
    else
      if ii mod 8=0 then response.Write "<tr align=center bgcolor=F3F6FA>"
        do while not rs1.eof
          response.write "<td><a href="&rs1("webaddr")&" target=_blank>"&rs1("webname")&"</a></td>"
          ii=ii+1
      if ii mod 8=0 then response.Write("</tr>")
         
     rs1.movenext
          loop
   end if
rs1.close
set rs1=nothing
%>
</table>