<%@ Language="VBscript" %>
<%
Dim cn
Dim sql
Dim StrConnectionString
set cn=server.CreateObject("adodb.connection")
cn.open "dirver={Microsoft Access Dirver (*.mdb)};Data Source="& Server.MapPath("userinfo.mdb")"

sql="select * from user"
set Rs=cn.Execute(sql)
%>
<table border="1">
<tr>
<%
Do until Rs.eof
%>
<tr>
<td align="center"><%= Rs("username") %></td>
<td align="center"><%= Rs("userpassword") %></td>
<td align="center"><%= Rs("ipad") %></td>
</tr>
<tr>
<%
Rs.MoveNext
loop
%>
</table>

<%
cn.close
set cn=Nothing
%>
这段程序怎么也连不上数据苦，出现http500错误！我是一个新手，请赐教！