ASP删除文件的问题

高手们帮我看看这段代码,为什么删除不了文件!谢谢啦!!   
  dim   sql     
        dim   rs   
        set   rs=server.createobject("adodb.recordset")   
        sql="select   *   from   learning   where   resourceid="&request("ID")   
        rs.open   sql,conn,1,1   
        if   not   rs.eof   then   
        call   DeleteAFile(rs("address"))   
        sql="delete   learning   where   resourceid="&request("ID")   
  conn.execute(sql)   
        end   if   
        conn.close   
        set   conn=nothing   
        response.write"<script   language=javascript>alert('删除成功!');"   
        response.write"this.location.href='MResource.asp';</script>"   
  Sub   DeleteAFile(filespec)   
      filespec=server.MapPath("./")&"\"&filespec   
      Set   fso   =   CreateObject("Scripting.FileSystemObject")   
      if   (fso.FileExists(filespec))   then   
      fso.DeleteFile   filespec,true     
      end   if   
  End   Sub