Formatting a BinaryStream for output to Word doc

[Bruce Zigenfous]

Hello,

Here is the code. followed by an explanation for what I am trying to
do. In particular, this line: BinaryStream.Wr ite byteArray 'Need to
format
<%Response.Buff er=0 %>
<!--#include file="global.as p" -->

<%
Dim oUpload, oUploadCopy, oFiles, oForm, oFilesCopy, oFormCopy

Server.ScriptTi meout = 600
Set oUpload = Server.CreateOb ject("asppw.upl oad")
'Set properties first
'oUpload.FileEx tensionList = "txt,gif,jpg,ti f,doc,bmp,xls"
'oUpload.MaxFil eSize = 10 * 1024 * 1024
'oUpload.UserDi skQuota = 20 * 1024 * 1024

'Now we can parse the uploaded stream
On Error Resume Next
oUpload.Upload

ChkError "Upload failed:"

Set oFiles = oUpload.Uploade dFileInfo
Set oForm = oUpload.Form

Dim sFileName, lFileLength, byteArray, sDirectory

byteArray = oUpload.GetUplo adedFileBlob("d ocumentFile",sF ileName
,lFileLength )
ChkError "Upload File Blob failed:"

Const adTypeBinary = 1
Const adTypeText = 2

Const adSaveCreateOve rWrite = 2

'Create Stream objects
Dim BinaryStream
Set BinaryStream = CreateObject("A DODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Ty pe = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Op en
BinaryStream.Wr ite byteArray
Set fs=CreateObject ("Scripting.Fil eSystemObject")
sOrder = oForm("orderNum ber")
sVersion = oForm("versionN umber")
sExtenstion = oForm("extensio nNumber")
'sRootFolder = Server.mappath( "/Fupload") + "\Upload"

'RemoteHost = Request.ServerV ariables("REMOT E_HOST")

If Request.ServerV ariables("REMOT E_HOST") = "192.168.112.41 " Then
sRootFolder = ("\\it1\ETS2Doc App\ETS Documents")
Else
sRootFolder = ("\\it1\ETS2Doc App\ETS Test Docs")
End If

'create Order subfolder
If sOrder <> "" then
If not fs.FolderExists (sRootFolder & "\" & sOrder) Then
fs.CreateFolder (sRootFolder & "\" & sOrder)
End If
sDirectory = sRootFolder & "\" & sOrder
End If

'create Version subfolder
If sVersion<>"" Then
If Not fs.FolderExists (sRootFolder & "\" & sOrder & "\" & sVersion)
Then
fs.CreateFolder (sRootFolder & "\" & sOrder & "\" & sVersion)
End If
sDirectory = sRootFolder & "\" & sOrder & "\" & sVersion
End If

'create Extension subfolder
If sExtenstion <>"" then
If not fs.FolderExists (sRootFolder & "\" & sOrder & "\" & sVersion &
"\" & sExtenstion) Then
fs.CreateFolder (sRootFolder & "\" & sOrder & "\" & sVersion & "\" &
sExtenstion)
End If
sDirectory = sRootFolder & "\" & sOrder & "\" & sVersion & "\" &
sExtenstion
End If

' Get document path on server
Dim strFilePathOnSe rver

strFilePathOnSe rver = sDirectory & "\" & sFileName

If fs.FileExists(s trFilePathOnSer ver) Then
'Response.write "1"
On Error Resume Next
BinaryStream.Lo adFromFile strFilePathOnSe rver
'Response.write strFilePathOnSe rver
If Err.number = 3002 Then
Response.Write( "3002")
' Throw error message in DocumentManager Proxy
Response.End
End If
End If

BinaryStream.Wr ite byteArray 'Need to format

If not Err Then
' Save binary data To disk
'Response.write "2"
BinaryStream.Sa veToFile sDirectory + "\" + sFileName,
adSaveCreateOve rWrite
'Response.write "3"
Response.Write sDirectory & "\" & sFileName '& RemoteHost
End If
Set BinaryStream=No thing

%>
I am using an ASP that uses a third party active-x control to upload a
file to a file server using the ADO Stream Object. It uses the
FileSystemObjec t to create folders and files, which works fine. If the
file does not exist, it saves the file (Word.doc), if it does exists,
it checks to see if the file is open. If it is open, and another user
is trying to save or overwrite the same file, I trap an Error 3002
(document open), which another application picks up and throws an
exception. If it is open, and another user is trying to save or
overwrite this file, but no one has it open, it is not overwriting. I
realized that what is happening is if the file is created the first
time, I do a saveToFile, which works fine, and if the file is opened
and the Error 3002 is trapped, it does a loadFromFile and behaves
correctly as well. However, what is happening is if the file exists
but is not open, it is still doing a loadFromFile, and the bytearray I
am returning from the BinaryStream is only returning the file name,
corrupting the word document. So, I tried creating a separate
BinaryStream and did a copyTo a fresh BinaryStream - didn't work, then
just a separate BinaryStream which almost works - I am getting the
file to be saved and overwritten, but when I open the file it is rtf
code. I tried several methods to encode it properly, but nothing I try
seems to work. If I could figure out how to convert this second
BinaryStream to a Word doc my problem would be solved. Is there any
way to force a conversion of a bytearray returned from a Binary Stream
to a Word doc? I tried doing a "Write" and "WriteToTex t" and that
doesn't seem to work, and tried it with these constants: adTypeBinary
1, adTypeText 2. If I can just get the file to convert to a Word.doc
I'd have it. Any help would be appreciated.

Thanks in advance,
BZ