Why user download word file is binary when open

Andraw · January 14th, 2005, 05:43 PM

Hi, all,
I create a word report in the server side, I try to force the client to save it. I test the program in my local server, when I open the download word file, it's binary file, why? I use the following codes:
'''''''''''''''''''''''''''''''''''''''''''''''''
   Response.Buffer = True
   strFileName = "reportWord.doc"
   response.addHeader "Content-"application/msword"
   Response.AddHeader "Content-disposition",
                       "attachment;filename=""" & strFileName & """"
   set fso = createobject("scripting.filesystemobject")
   set objTS = fso.OpenTextFile(docFileName,1)
   Response.BinaryWrite (objTS.ReadAll)
   Response.Flush
''''''''''''''''''''''''''''''''''
   I also use Response.Write (objTS.ReadAll), not right. I try to use Set Stream = Server.CreateObject("ADODB.Stream"), get eror.
What I want is when download dialog box appear, if use choose open, it display word format(binary is also OK), but when user open the saved file, it must be word format, include the page header/footer.

Can you help me for that, please.......

Andraw

Andraw · January 15th, 2005, 02:34 AM

I found that even I can use above(some type error caused by copy/paste, souce is right) to let user download word file, the header and footer are lost, did anybody has the same problem?

Andraw

Shibu · January 15th, 2005, 02:53 AM

Hello Andraw

  While copying some unrecognized characters might have got included in your doc.
  Some months before i had the simillar problem.

  I had to replace all the unrecognized charecters with the curresponding html notations.

   Following were my code to solve this issue.

("str_doc" means the string which needs to be written as doc file.)

Code:

if instr(str_doc,chr(45)) > 0 then
    str_doc = replace(str_doc,chr(45),"&ndash;")
end if
if instr(str_doc,chr(189)) > 0 then
    str_doc = replace(str_doc,chr(189),"&ndash;")
end if
if instr(str_doc,chr(146)) > 0 then
    str_doc = replace(str_doc,chr(146),"&rsquo;")
end if
if instr(str_doc,chr(145)) > 0 then
    str_doc = replace(str_doc,chr(145),"&rsquo;")
end if
if instr(str_doc,chr(147)) > 0 then
    str_doc = replace(str_doc,chr(147),"&quot;")
end if
if instr(str_doc,chr(148)) > 0 then
    str_doc = replace(str_doc,chr(148),"&quot;")
end if
if instr(str_doc,chr(150)) > 0 then
    str_doc = replace(str_doc,chr(150),"&ndash;")
end if
if instr(str_doc,chr(151)) > 0 then
    str_doc = replace(str_doc,chr(151),"&ndash;")
end if
if instr(str_doc,"Â£") > 0 then
    str_doc = replace(str_doc,"Â£","&pound;")
end if

Please let me know if this helps you.:)

Andraw · January 15th, 2005, 10:21 PM

Shibu,
Thanks for response.
The word file is already created using CreateObject("Word.Application"), when do i have to replace the special character? your codes give me some instruction when I create the word file.

Andraw

Shibu · January 17th, 2005, 12:24 AM

Hello Andraw

You are right this replacements are are to be done while creatigng the word document.
So, I believe you have a word file already created and saved on your server. Let me give you a suggession ( a wild guess).
   Instead of opening the doc and writing using binary write, why can't you directly link the original doc file.
  Fo eg.
  <a href ="xxx.doc" target="_blank">click here</a>

Hope this is not foolishness.

Andraw · January 17th, 2005, 12:41 PM

Hi, Shibu,

the only reason is that I want the the download dialog box appear. and the display stream is read from the original file, if other user update the original file, it doesn't matter. otherwise, maybe there is a warning "other user is using the file, you cann't update it", my understanding is right?, I am in testing perion now, please give me more suggestion. thanks!

Andraw