Ciao, intanto ti consiglierei di convertire i documenti word in pdf.... io non ho office e non potrei leggerli, non esiste solo microsoft.
<%
PercorsoFile = server.MapPath("documento.doc")
Response.Buffer = True
Response.Clear
Set ADOStream = Server.CreateObject("ADODB.Stream")
ADOStream.Open
ADOStream.Type = 1
Set FS = Server.CreateObject("Scripting.FileSystemObject")
If FS.FileExists(PercorsoFile) Then
Set FileStream = FS.GetFile(PercorsoFile)
DimensioneFile = FileStream.Size
ADOStream.LoadFromFile(PercorsoFile)
If not Err Then
NomeFile = Mid(PercorsoFile, InStrRev(PercorsoFile, "\")+1)
Response.ContentType = "application/msword"
Response.AddHeader "Content-Disposition", "inline"
Response.AddHeader "Content-Length", DimensioneFile
Response.BinaryWrite ADOStream.Read
Response.Flush
Set FS = Nothing
DownloadFile = True
End If
End If
%>