怎样把我从数据库中取出的数据放在指定的<p>中？我是初学者，大家别见笑

Question

如题，我创建了一个asp页，在body的开头放了一段js代码，如下 
<script   language="javascript"   runat="Server"> 
        var   conn=new   ActiveXObject("Adodb.Connection"); 
        var   rs=new   ActiveXObject("Adodb.Recordset"); 
        conn.ConnectionString="provider=Microsoft.Jet.OLEDB.4.0;Data   Source="+Server.MapPath("../database/tzh.mdb"); 
        conn.Open(); 
        rs.LockType=rs.CursorType=1; 
        rs.ActiveConnection=conn; 
        rs.Source="SELECT   [title],[content],[pb-date]   FROM   每日一词"; 
        rs.Open(); 
  if(!rs.EOF){ 
                //document.all["tl"].innerHTML=rs("title");   
      
response.write(rs("title")); 
                rs.Close(); 
        }else{ 
                rs.Close(); 
        } 
conn.Close(); 
</script>   运行时候在页面左上角显示出从数据库中查出的内容，可是我想把   取得的数据放在页面一个指定的 <p>   “显示从数据库中查出的数据” </p> 中，所以我把上边的js   代码中的response.write(rs("title"));   改成：document.all["tl"].innerHTML=rs("title");   ，可是运行提示我document未定义，不知道是怎么回事，请大家帮忙，谢谢了 

Answer 1

<script       language="javascript"       runat="Server">   
---------->
兄弟,你这个所谓JS是服务器端的JS脚本;document是客户端HTML语言对象,你在SERVER端直接调用客户端的对象怎么可以呢?

Answer 2

再说,ASP里不允许把RUNAT SERVER 放到其他地方,只允许放到第一行

Answer 3

<%
  set conn=server.CreateObject("adodb.connection")
  '数据库连接字符串
  connStr=="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../database/tzh.mdb");   
  conn.Open connStr
  if conn.State<>1 then 
    Response.Write "数据库连接错误,请检查连接字符串!"
    set conn=nothing
    Response.End 
  end if     set rs=server.CreateObject("adodb.recordset")
  sql="SELECT [title],[content],[pb-date] FROM 每日一词"
  rs.Open sql,conn,1,1
  
  if not (rs.EOF and rs.BOF) then
    with response 
      .write " <table> " 
      .write " <tr> " 
      .write " <td>序号</td>" 
      .write " <td>标题</td>" 
      .write " <td>内容</td>" 
      .write " <td>发布时间</td>" 
      .write " </tr> " 
      for i=1 to rs.RecordCount 
        .write " <tr> " 
          .write " <td>"&i&" </td> " 
          .write " <td>"&rs("title")&" </td> " 
          .write " <td>"&rs("content")&" </td> " 
          .write " <td>"&rs("pb-date")&" </td> " 
        .write " </tr> " 
        rs.MoveNext
      next 
      .write " </table> " 
    end with  
  else
    Response.Write "没有数据"
  end if
  rs.Close:     set rs=nothing
  conn.Close:   set conn=nothing
 
%>