这是global.asa文件内容，无法使用数据库？

<SCRIPT   LANGUAGE="VBScript"   RUNAT="Server">   
 
  SUB   Application_OnStart   
        
        APPLICATION("USERCOUNT")="safdsdf"  

        ProgramLb="ACCESS" '请选择数据库类型 msssql=SQL;access=ACCESS (必须用大写)
        if programlb<>"SQL" then
'采用ACCESS数据库
            db="/Database/As2007sp1.mdb" '数据库文件路径
            connstr="DBQ="+server.mappath("&db&")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
        else 

'采用SQL SERVER数据库
            SqlDatabaseName="aseanb2b_py"   '数据库名称
            SqlPassword="12345"             '数据库登陆密码
            SqlUsername="sa"                '数据库管理名称
            SqlLocalName="(local)"          '数据库服务器，本机用(local)或者：127.0.0.1

               connstr="driver={SQL Server};server="&SqlLocalName&";uid="&SqlUsername&";pwd="&SqlPassword&";database="&SqlDatabaseName&";"
     end if
      APPLICATION("ProgramLb")=ProgramLb
      APPLICATION("connstr")=connstr
      APPLICATION("db")=db
  
      APPLICATION("As_Edition")="0" '0--普及版(ACCESS) 1--普及版(SQL)  2--标准版  3--专业版  

  End   sub   
  </SCRIPT>



帮我看看哪里出错了？[em2]