ASP连接数据库出错帮忙看看

[go18201007]

<%
function News(SortPath)
  dim sql,NewsName,NewFlag
  dim rs as adodb.recordset 
  conn=server.mappath("db/Energy.mdb") 
  set rs = server.createobject("adodb.connection")
  sql="select top 7 * from News where NewsTitle='"+"国内动态"+"'order by NewsId desc"
  rs.open sql,conn,1,1
  ''response.end()
  if rs.eof then
    response.write "暂无相关信息"
  else
    do while not rs.eof
	  if now()-rs("NewsTime")<=2 then 
	    NewsName=StrLeft(rs("NewsTitle"&Language),42)
	    NewFlag=" <font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
	  else
	    NewsName=StrLeft(rs("NewsTitle"&Language),46)
	    NewFlag=""
	  end if
      response.write "  "&rs("NewsTime")&" | <a href="">"&NewsName&"</a><br/>"
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end function
%>

错误提示：

错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/chenghe999/首页.asp, line 114, column 7
dim rs as adodb.recordset
------^

[lzp4881]

dim rs 就可以了

[go18201007]

dim rs出现下面错误
初学asp求解

错误类型：
ADODB.Connection (0x800A0E78)
对象关闭时，不允许操作。
/chenghe999/首页.asp, 第 120 行

[yangcookie]

去掉dim rs as adodb.recordset

改为
path=server.mappath("db/Energy.mdb")
Set oconn = Server.CreateObject("ADODB.Connection")
oconn.Open path

set rs= Server.CreateObject("Adodb.RecordSet")

[yangcookie]

rs.close 可以去掉试一下，有时候会出这样的错误

[lzp4881]

[Quote=引用 2 楼 go18201007 的回复:]
dim rs出现下面错误
初学asp求解

错误类型：
ADODB.Connection (0x800A0E78)
对象关闭时，不允许操作。
/chenghe999/首页.asp, 第 120 行
[/Quote]
这个已经是另外的错误了，不是刚才那个