'constant from another file put there dim CONST_DOCPATH 'network path of the folder for the doc file CONST_DOCPATH = "\\mimas\boss\" 'if i put CONST_DOCPATH = "C:\docs\" it will work just fine dim strFile strFile = "1_1_1.doc" 'strFile = "testSETUP.doc" strPath = CONST_DOCPATH 'response.Write strPath & strFile 'Set the content type to the specific type that you are sending. Response.Buffer = True Response.Clear Response.ContentType = "application/msword" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.LoadFromFile strPath & strFile Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.End
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.