response.Write "253"  & "<br>"
          Set WordApp = CreateObject("Word.Application")
    	  response.Write "257" & "<br>"
	  response.End

<script language=VBScript>
    dim  WordApp 
    dim  FlagWQuit
    
    FlagWQuit= 0 
 
    Function fnOpenWordDoc(fAddPath,fPath,fAddParam )
        FlagWQuit= 1 
   	    Dim  fFullName
		Set WordApp = CreateObject("Word.Application")
        Set WordApp = Getobject(, "Word.Application")
        If Err.Number <>  0  Then
            Err.Clear  
		    Set WordApp = CreateObject("Word.Application")
		else
		    WordApp.Quit
            Set WordApp=nothing
            Set WordApp = CreateObject("Word.Application")
		end if
   
		fFullName=trim(replace(fAddPath,"/","\")) & trim(replace(fPath,"/","\"))
		WordApp.Application.Documents.Open(fFullName)
		WordApp.Application.Visible = True
    End Function
   
   
    Function fnClose()
        if FlagWQuit= 1  then
            Set WordApp = CreateObject("Word.Application") 
            Set WordApp = Getobject(, "Word.Application")
            If Err.Number =  0  Then            
                WordApp.Quit           
            else
                err.Clear
            end if 
            FlagWQuit= 2  
        end if      
        Set WordApp=nothing
        window.close()
    End Function
  
   
   
</script>

    	  response.Write "253"  & "<br>"
          Set WordApp = CreateObject("Word.Application")
    	  response.Write "257" & "<br>"
      	  response.Write "filePath=" & filePath & "<br>"
    	  WordApp.Documents.Open(filePath)
    	  response.Write "11" & "<br>"