连数据库的问题 没有错误就是连不上 请那为大哥帮帮忙


连不上数据库 谁能帮我找出错误 跪谢
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>jjjjj</title>
<body>
<hr color="red" siz="1" noshade>
<div align="center">
<%
writer
dim cnn,rst,sql,currentPage,rowCount,i
currentPage=Request.QueryString("currentPage")if currentPage="" then
currentPage=1
end if
Application("sql")="DBQ="+server.MapPath(""+";pwd=;DRIVER={Microsoft Access Driver (*.mdb)};"
set cnn=server.CreateObject("ADODB.Connection")cnn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;"& _"UID=sa; PWD="";DATABASE=A911"
set rst=server.CreateObject("ADODB.Recordset" )
rst.CursorType=adOpenStatic
rst.PageSize=5
sql="SELECT * FROM fei3"
rst.open cnn,sql,3,2rst.AbsolutePage =Cint(currentPage)
rowCount=0
<%
<table border="0" cellpadding="2" cellpadding="2" width="100%">
<tr bgcolor="#0084ca">
<th>作者</th><th>地址</th>
</tr>
<% while not rst.EOF and rowCount < rst.PageSize %>
<tr bgcolor="#d9f2ff">
<td><%=rst("ID1")%></TD>
<td><%=rst("pass")%></td>
</tr>
<%
rowCount=rowCount+1
rst.Movenext
wend
%>
</table>
<p>当前主题页数<% = rst.RecordCount %> &nbsp;
每页<%=rst.PageSize %>个主题&nbsp;
当前页次：<% = currentPage %>/<% =rst.PageCount %>页&nbsp;
<%
for i=1 to rst.PageCount
if i=Cint(currentPage) then
%>
[<font color="red"><% =i %></font>&nbsp;&nbsp;
Else
<p>fdsfdsfsd</p>
%>
</div>
</body>
</head>
</html>