Active Server Page (ASP) Demonstration: ASPDemo


This demonstration consists of a couple of Active Server Pages that accept a string as input, convert it to upper case, and display the resulting string. This is accomplished by a call to the ToUpper method on the ITestobj1 interface.

The ASP program consists of the following files:

In addition to TIBCO Adapter for COM, you must have either the Microsoft Internet Information Server or the Microsoft Personal Web Server installed and running.

Code

The following is the code for RequestForm.asp:

 
<%@ Language=VBScript %> 
<HTML> 
<HEAD> 
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 
<BODY> 
 
<P>&nbsp;</P> 
 
<CENTER> 
<H1> Method Invocation using the COM Adapter</H1> 
<FORM NAME="RequestForm" ACTION="ResultForm.asp" METHOD=POST> 
    Enter the String To Be Upper Cased  <INPUT TYPE=TEXT 
NAME="ToUpperString"><BR><BR> 
    <INPUT TYPE=SUBMIT VALUE="Upper"> 
    <INPUT TYPE=RESET VALUE="Clear"> 
</FORM> 
</CENTER> 
 
</BODY> 
</HTML> 
 

The following is the code for ResultForm.asp:

 
<%@ Language=VBScript %> 
<HTML> 
<HEAD> 
<TITLE> Result Of Invoking ToUpper Method </TITLE> 
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 
<BODY> 
<CENTER> 
<H1> Result Of Invoking the ToUpper Method</H1> 
 
<% 
Set objTestobj1 = 
GetObject("tibco:c:\tibco\adapter\adcom\5.3\examples\sample.dat|Ad
apter for COM/Interceptor 
Instances/TIBCOCOMInterceptor1|Operation2.Testobj1") 
Dim vBstrIn, vBstrRet 
vBstrIn = Request.Form("ToUpperString") 
vBstrRet = objTestobj1.ToUpper(vBstrIn) 
%> 
<B> String To Be Upper Cased : </B> <% =vBstrIn%><BR><BR> 
<B> Upper Cased String is : </B> <%=vBstrRet%><BR> 
<CENTER> 
</BODY> 
</HTML> 
 

TIBCO Adapter™ for COM User’s Guide
Software Release 5.3, September 2005
Copyright © TIBCO Software Inc. All rights reserved
www.tibco.com