<%
Dim filename, doctext, objWord

filename ="c:\temp\myword.doc"

Set objWord = CreateObject("Word.Application")
objWord.Visible = FALSE

objWord.Documents.Open(filename)

doctext = objWord.ActiveDocument.Content.Text

Set ObjWord = Nothing
%>

<%=doctext%>