А как вызевать без IIS?
Можно етот конектор с Win 2003 имеет проблем...
Ето работает...
<%@ language=VBScript %>
<html>
<head>
<title>Axapta Internet Connector - Active Server Page Sample</title>
</head>
<body>
<h1 align="center">Customers</h1>
<center>
<table BORDER="0" CELLSPACING="2" CELLPADDING="7" WIDTH="600">
<tr>
<td WIDTH="20%" BGCOLOR="#c0c0c0">
Customer account</td>
<td WIDTH="25%" BGCOLOR="#c0c0c0">
Name</td>
<td WIDTH="25%" BGCOLOR="#c0c0c0">
Address</td>
<td WIDTH="15%" BGCOLOR="#c0c0c0">
Phone</td>
<td WIDTH="15%" BGCOLOR="#c0c0c0">
Fax</td>
</tr>
<% Set Axapta = Server.CreateObject("AxaptaComConnector.Axapta")
Axapta.Logon "Admin", "", "", ""
' Find these with dict classes
CustTable = 77
CustTable_Name = 2
Set AxaptaQuery = Axapta.CreateObject("Query")
Set AxaptaDataSource = AxaptaQuery.Call("AddDataSource", CustTable)
Set AxaptaRange = AxaptaDataSource.Call("AddRange", CustTable_Name)
Set AxaptaQueryRun = Axapta.CreateObject("QueryRun", AxaptaQuery)
While (AxaptaQueryRun.Call("Next"))
Set CustTableBuffer = AxaptaQueryRun.Call("GetNo", 1)
AccountNumber = CustTableBuffer.Field("AccountNum")
Name = CustTableBuffer.Field("Name")
Address = CustTableBuffer.Field("Address")
Phone = CustTableBuffer.Field("Phone")
Fax = CustTableBuffer.Field("Telefax")
Response.Write "<TR>"
Response.Write "<TD WIDTH='25%' VALIGN='TOP'>"
Response.Write AccountNumber
Response.Write "</TD>"
Response.Write "<TD WIDTH='55%' VALIGN='TOP'>"
Response.Write Name
Response.Write "</TD>"
Response.Write "<TD WIDTH='55%' VALIGN='TOP'>"
Response.Write Address
Response.Write "</TD>"
Response.Write "<TD WIDTH='10%' VALIGN='TOP'>"
Response.Write Phone
Response.Write "</TD>"
Response.Write "<TD WIDTH='10%' VALIGN='TOP'>"
Response.Write Fax
Response.Write "</TD>"
Response.Write "</TR>"
Wend
Axapta.Logoff
Set Axapta = Nothing
%>
</table>
</center>
</body>
</html>