asp把access数据库内容导出到excel的代码

我写了一段，但是有点问题。帮忙看看。
<% 
  action=request("action") 
  if  action="make_excel"  then'只有获取指令才进行操作 
  dim  conn,ConnStr 
  ConnStr="DBQ="+server.mappath("../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
  set  conn=server.CreateObject("adodb.connection") 
  conn.Open  ConnStr 
  dim  rs,sql,filename,fs,myfile,x 
  Set  fs  =  server.CreateObject("scripting.filesystemobject") 
  '定义文件路径，直接为当前目录 
  filepath=Request.ServerVariables("APPL_PHYSICAL_PATH") 
  '定义文件名，以当前时间作文件名，不会重复 
  filename  =  filepath&year(now)&month(now)&day(now)&".xls" 
  response.Write(filepath&"sss <br>")
  response.Write(filename)
  if  fs.FileExists(filename)  then 
  fs.DeleteFile(filename) 
    end  if 
  set  myfile  =  fs.CreateTextFile(filename,true) 
  Set  rs  =  Server.CreateObject("ADODB.Recordset") 
  sql&nbs