這段代碼錯在哪里?請高手幫忙!

<%
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("mdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sub CloseConn()
    conn.close
    set conn=nothing
end sub
%>
<%
bost =lcase(request.servervariables("HTTP_HOST"))
set rs=Server.CreateObject("adodb.recordset")
sql ="select pla from PPst_User where [WebURL] ='" &"http://"&bost & "'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%=rs("pla")%>
<%
b=pla
if b=1 then a="News/index.asp"
if b=11 then a="Art/Index.asp"
response.Redirect (a)
%>
<%end if%>