非常感谢诸位！！！！！！！

include文件中引入的的数据库连接内容如下
dim db,dbstr,html_title
set db=server.CreateObject ("adodb.connection")
   
    dbstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath("../test/Inc/#inc_db_janis#.mdb")
    db.Open dbstr
   
    Session.Timeout=30


 正文
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open sql,db,1,1
%>
<table border="1" cellpadding="2"  cellspacing="0"   >
<%经测试下出现问题
If Not rs2.Bof And Not rs2.Eof Then   '如需分页显示，加源程序内容或本网站分页
  Do While Not rs2.Eof
%>

 <tr  valign="middle">


 <td align="center"><%=rs2("name")%></td>

 <td align="center"><%=rs2("address")%></td>

 <td align="center"><%=rs2("Schools")%></td>

 <td align="center"><%=rs2("Classa")%></td>

 <td align="center"><%=rs2("num")%></td>

 </tr>
<% rs2.MoveNext              
  Loop
End If
%>

 

</table> 

[ 本帖最后由 喜木 于 2013-3-12 01:16 编辑 ]

出错原因是“此错误(HTTP 500 内部服务器错误)意味着您正在访问的网站出现了服务器问题，此问题阻止了该网页的显示。”
网站的其他页面都能正常显示，就是这一张自己改写的不行，请各位老师帮忙看看

顶一下
谢谢各位高人了

期待大家的帮忙呀
万分感谢