ASP缺少对象问题怎么解决!望各位大侠指导.题内付各大软件注册码以表答谢.
错误类型：
Microsoft   VBScript   运行时错误   (0x800A01A8)
缺少对象

right.asp第   15   行

内容开始
------------------------------------
<%
      sqlright   =   "Select   *   From   新闻   where   news_classid <> 100   and   news_classid <> 10   and   news_classid <> 0   and   news_hits> 9   and   news_hits <99   ORDER   BY   newid() "
      Set   rsright   =   conn.Execute(   sqlright   )   <!--第15行-->
    if   not   rsright.eof   then    
    i=0
    while   not   rsright.eof   i <10
%>
<%
      rsright.movenext    
      i=i+1    
      wend    
      else
%>
<%
    end   if
%>
------------------------------
内容结束

AVG   Anti-Spyware   7.5（国际最强的杀毒软件之一）：70-THXMV1-PM-C21-SJLI7-SLG-58CA  
uedit32注册码（二进制十六进制编辑制作软件）：Name:CaoRiYue
Code:Z8R2E-Z9O9D-A9C2S-T3Q6I-SPR4E-D1C9Q

------解决方案--------------------
是否是前面关闭掉了conn
------解决方案--------------------
数据调用.asp

内容开始
-----------------------------------------------
SqlLocalName = "(local) " '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername = "bitandmild " '用户名
SqlPassword = "123456 " '用户密码
SqlDatabaseName= "数据库 " '数据库名
ConnStr = "Provider=Sqloledb;User ID= " & SqlUsername & "; Password= " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source= " & SqlLocalName & "; "
SqlNowString= "GetDate() "
ver= "5.13b SQL "
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
END IF ============================> > > > 你这个是干么的？是否应该干掉呢？
On Error Resume Next
Set conn=Server.CreateObject( "ADODB.Connection ")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "服务器更新当中…… <br> 请稍等片刻访问本站！ "
Response.End
End If
----------------------------------------------
全部结束


仔细看上面的，前面多了一个END IF是怎么回事，把他去掉吧！