谁来帮我修正一段ASP代码

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database/database.mdb")
%>

<%dim exec,exec1,rs1

exec="Select C.ArticleID,A.ArticleID,A.title From comment C,Article A where C.com='true' and C.ArticleID=A.ArticleID"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1

exec1="Select Count(*) From comment C,Article A where C.com='true' and C.ArticleID=A.ArticleID"
set rs1=server.createobject("adodb.recordset")
rs1.open exec1,conn,1,1

%>
<% dim tiaoshu
tiaoshu = Conn.Execute("Select Count('ArticleID') From comment where com='true' and ArticleID ="&rs("ArticleID")&"")(0)
%>

'================================

<table width="

谁来帮我修正一段ASP代码 帮我修正ASP代码 谁帮我分析一段ASP代码 谁能帮我写一段asp代码？谢谢！ 谁能帮我解释一段ASP代码,谢谢:) 一段ASP代码,谁帮我看看 帮我解释一段ASP代码 asp高手帮我看一段代码 帮我分析一段ASP代码 一段ASP数据库代码