打开该文件的时候提示该文件或者有错误,或者不是SYLK文件格式

代码如下，请大家帮忙看看
 dim rs,sql,filename,fs,myfile,x,link
 sql=request("sql") 
 Set fs = server.CreateObject("scripting.filesystemobject")
 filename = Server.mappath("file/online.xls")
 if fs.FileExists(filename) then
  fs.DeleteFile(filename)
 end if

 set myfile = fs.CreateTextFile(filename,true)
 Set rs = Server.CreateObject("ADODB.Recordset")
' sql = "select * from 首页推荐"
 rs.Open sql,conn
 if rs.EOF and rs.BOF then
 else
  dim strLine,responsestr
  strLine=""
   For each x in rs.fields
    strLine= strLine & x.name & chr(9)
   Next
'response.write strLine
' response.end
   myfile.writeline strLine
   Do while Not rs.EOF
   strLine=""
   for each x in rs.Fields
    strLine= strLine & x.value & chr(9)
   next
   
   myfile.writeline strLine

   rs.MoveNext
   loop
   
 end if

rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing