照样子写句子五光十色:asp生成静态的问题高手帮帮忙

<%
dim conn
dim dbpath
dim ma
set conn=server.createobject("adodb.connection")
dbpath=server.mappath("aa.mdb")
'conn.open "driver={microsoft access driver (*.mdb)};dbq=" &dbpath
CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;Data Source="& dbpath
conn.open cnnstr
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
javastr="<style>A.menu2{text-decoration: none;color:#000099;line-height: 25pt;font-size:9pt} A.menu2:hover {text-decoration: none;line-height: 25pt;font-size:9pt;color: #ffffff}A.menu2:visited {color:#FF66cFF;line-height: 25pt;font-size:9pt}</style>"
javastr=javastr+"<table width=\"100%\" border=\"0\">"
<%set rs2=server.createobject("adodb.recordset")
sql2="select * from bookfl"
set rs2=conn.execute(sql2)%>
<%
do while not rs2.eof
%>
javastr=javastr+"<tr><td>"
javastr=javastr+"<font color=\"#000000\" size=\"2\"><a href=<%=rs2("bookid")%>.htm><%=rs2("biaoti")%></a> </font>"
javastr=javastr+"</td></tr>"
<%
rs2.movenext
loop
%>
javastr=javastr+"</table>"
<%ma=document.write (javastr)%>

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/31/news.asp，行28