IIS 6.0 & Enterprise Portal - DAX: Администрирование

dreshkov_imported · 06.02.2004, 15:03

А как вызевать без 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>