asp连接access的问题
<%
Dim conn
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("ecnews.mdb")
Dim rs,strSql
%>
<body>
<div class="container tm-container">
<div class="row navbar-row">
<div class="col-xs-12 col-sm-12 col-md-12 col-lg-12 col-xl-12 navbar-container">
<a href="javascript:void(0)" class="navbar-brand" id="go-to-top">Strip</a>
<nav class="navbar navbar-full">
<div class="collapse navbar-toggleable-md" id="tmNavbar">
<ul class="nav navbar-nav">
<li class="nav-item">
<a class="nav-link" href="#tm-section-1">Home</a>
</li>
<li class="nav-item">
<a class="nav-link" href="#tm-section-2">Services</a>
</li>
<li class="nav-item">
<a class="nav-link" href="#tm-section-3">About</a>
</li>
<li class="nav-item">
<a class="nav-link" href="#tm-section-4">Contact</a>
</li>
</ul>
</div>
</nav>
<button class="navbar-toggler hidden-lg-up" type="button" data-toggle="collapse" data-target="#tmNavbar">
☰
</button>
</div>
</div>
<div class="tm-page-content">
<!-- #home -->
<section id="tm-section-1" class="row tm-section">
<div class="tm-white-curve-left col-xs-12 col-sm-12 col-md-12 col-lg-7 col-xl-6">
<div class="tm-white-curve-left-rec"></div>
<div class="tm-white-curve-left-circle"></div>
<div class="tm-white-curve-text">
<%
strSql="Select * From My music"
Set rs=conn.Execute(strSql)
%>
<h2 class="tm-section-header blue-text">Introduction</h2>
<p class="tm-section-header blue-text"> </p>
<%do while not rs.eof%>
<p>
<li><%=rs("musicname")%>;<%=rs("writer")%>;<%=rs("special")%><li>
</p>
<%
rs.movenext
loop
%>
</div>
</div>
<div class="tm-home-right col-xs-12 col-sm-12 col-md-12 col-lg-5 col-xl-6">
<%
strSql="Select * From My travel"
Set rs=conn.Execute(strSql)
%>
<h2 class="tm-section-header">Our Mission</h2>
<%do while not rs.eof%>
<p class="thin-font">
<li><%=rs("site")%>;<%=rs("scenic spot")%>;<%=rs("tc")%><li>
</p>
<%
rs.movenext
loop
%>
</div>
</section> <!-- #home -->
<!-- #services -->
<section id="tm-section-2" class="row tm-section">
<div class="tm-flex-center col-xs-12 col-sm-6 col-md-6 col-lg-5 col-xl-6">
<img src="img/strip-01.jpg" alt="Image" class="img-fluid tm-img">
</div>
<div class="tm-white-curve-right col-xs-12 col-sm-6 col-md-6 col-lg-7 col-xl-6">
<div class="tm-white-curve-right-circle"></div>
<div class="tm-white-curve-right-rec"></div>
<div class="tm-white-curve-text">
<%
strSql="Select * From My news"
Set rs=conn.Execute(strSql)
%>
<h2 class="tm-section-header red-text">Our Services</h2>
<%do while not rs.eof%>
<p>
<li><%=rs("mname")%>;<%=rs("addtime")%><li>
</p>
<%
rs.movenext
loop
%>
</div>
</div>
</section> <!-- #services -->
<!-- #about -->
<section id="tm-section-3" class="row tm-section">
<div class="tm-white-curve-left col-xs-12 col-sm-6 col-md-6 col-lg-7 col-xl-6">
<div class="tm-white-curve-left-rec">
</div>
<div class="tm-white-curve-left-circle">
</div>
<div class="tm-white-curve-text">
<%
strSql="Select * From My sports"
Set rs=conn.Execute(strSql)
%>
<h2 class="tm-section-header gray-text">About our company</h2>
<%do while not rs.eof%>
<p class="thin-font">
<li><%=rs("sname")%>;<%=rs("source")%>;<%=rs("time")%><li>
</p>
<%
rs.movenext
loop
%>
</div>
代码有问题吗，我的网页显示不出来
