Set WrdApp = Server.CreateObject("Word.Application")
AspConnectWord.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP Word.Application Tutorial</title>
</head>
<body>
<%
Dim WrdApp
Set WrdApp = Server.CreateObject("Word.Application")
If IsObject(WrdApp) Then
Response.write("Connect to Word.Application")
Else
Response.write("Can Not Connect to Word.Application")
End IF
%>
</body>
</html>