Set WrdApp = Server.CreateObject("PowerPoint.Application")
AspConnectPowerPoint.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP PowerPoint.Application Tutorial</title>
</head>
<body>
<%
Dim pptApp
Set pptApp = Server.CreateObject("PowerPoint.Application")
If IsObject(pptApp) Then
Response.write("Connect to PowerPoint.Application")
Else
Response.write("Can Not Connect to PowerPoint.Application")
End IF
%>
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
