ID: Q172214
The information in this article applies to:
To invoke Microsoft Transaction Server (MTS) components from Active Server Pages, (ASP) perform the following three steps, which are described in more detail in the MORE INFORMATION section of this article:
1. Configure the registry to allow ASP to create out-of-process components.
For security reasons, ASP by default cannot create out-of-process
components. Thus, all attempts to create Transaction Server objects with
Server.CreateObject will fail, unless the MTS object is configured to
run "In the creator's process" using MTS Explorer. The ASP page will
return the following error message to the HTML client:
Server object error'ASP 0177:80040154'
Server.CreateObject Failed
Therefore, make sure that all non-Variant data types passed by your MTS
component are passed by value, not by reference. If you break this rule,
the ASP script will return the following error:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'Accountobj.Post'
component.
1. If the MTS object is configured to run in an Transaction Server process,
the registry must be configured to allow ASP to create out-of-process
components. Before changing this registry setting, make sure you have a
thorough understanding of how to secure out-of-process components. For
example, you should set a specific user identity for the component;
otherwise, the MTS component will run under the identity of the first
user to access it.
To allow out-of-process components, use Regedit to select the following
key:
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\W3SVC\ASP
\Parameters
The Parameters key has several subvalues that control ASP. Make sure it
has a subvalue named AllowOutOfProcCmpnts, and that this subvalue is set
to 1.
types must be passed by value. The Bank sample supplied with MTS breaks
this rule with its Account.Post method, which passes two longs and a
string by reference.
The following steps are instructions for modifying the Bank sample,
adding a PostVariant method that has Variant arguments.
A. Make sure that the Bank package is installed in MTS, and that the
Bank Client provided with MTS is able to credit and debit money.
B. In Visual Basic, open the Account.VB project in the MTX\Samples
directory.
C. Add the code below to the Account class. The new PostVariant method
simply wraps the existing Post method.
Public Function PostVariant(varAccountNo As Variant, _
varAmount As Variant, ByRef varResult As Variant) As Variant
Dim lngAccountNo As Long
Dim lngAmount As Long
Dim strResult As String
lngAccountNo = varAccountNo
lngAmount = varAmount
strResult = varResult
PostVariant = Post(lngAccountNo, lngAmount, strResult)
varAccountNo = lngAccountNo
varAmount = lngAmount
varResult = strResult
End Function
D. Compile the Bank project. Make sure that the new Vbacct.dll file
replaces the copy in the MTX\Packages directory.
E. In MTS Explorer, select My Computer. On the Tools menu, click Refresh
All Components. MTS Explorer should now show that the Bank.Account
component has a PostVariant method.
following steps to create an ASP page that manages a bank account by
calling the Account.PostVariant method created in step 2 above.
A. In Visual Interdev, use the Web Project Wizard to construct a new Web
project called MTSWeb. In step two of the wizard, choose to create a
new web.
B. In Visual Interdev, create a new Active Server Page file named
MTSBank in the MTSWeb project.
C. The new ASP file has a line reading "Insert HTML here." At that
point, insert the following HTML:
<%
Dim Accountobj, Msg
If (Not IsNumeric(Request("Amount")) _
or IsEmpty(Request("Amount"))) Then
Msg = "Please enter the amount of the transaction."
Else
set Accountobj = server.createobject("Bank.Account")
Accountobj.PostVariant Request("AccountID"), _
Request("Type") * Request("Amount"), Msg
End If%>
<%=Msg%>
<BR>
<FORM METHOD="POST" ACTION="MTSBank.asp">
Transaction Type:
<INPUT TYPE="RADIO" NAME="Type" VALUE="1" CHECKED>Credit
<INPUT TYPE="RADIO" NAME="Type" VALUE="-1" >Debit
<BR>
Account ID: <INPUT TYPE="TEXT" NAME="AccountID" SIZE=30 VALUE="1">
<BR>
Amount : <INPUT TYPE="TEXT" NAME="Amount" SIZE=30>
<BR>
<INPUT TYPE="SUBMIT" VALUE="Submit">
</FORM>
D. Save the new ASP file. If you now use a Web browser to access
http://YourWebServer/MTSWeb/MTSBank.asp, you will be able to credit
or debit money using ASP and the MTS Bank.Account component.
For more information, visit the Web sites at:
Keywords : kbinterop kbusage TSrvExplorer TSrvGen
Version : WINDOWS NT:1.0
Platform : winnt
Issue type : kbhowtoLast Reviewed: October 11, 1997