ASP Source Code

ASP File: Increment.asp

 
   ASP Script
   Comments

<HTML>
<BODY>
<%
dim
IncrementHome
dim IncrementKey 
dim myIncrement 
dim count 
set IncrementHome = server.createobject("ejb.ibm:Increment") 
set IncrementKey = server.createobject("WebSphereSamples.Increment.IncrementKey","count") 
set myIncrement = IncrementHome.findByPrimaryKey(IncrementKey) 
count = myIncrement.getCount() 
Response.Write("Your Count: ") 
Response.Write(count) 
Response.Write("<br>") 
for i=0 to 3 
  Response.Write("Increment") 
  myIncrement.increment() 
  Response.Write("Your Count: ") 
  count=myIncrement.getCount() 
  Response.Write(count) 
  Response.Write("") 
next
%>
</BODY>
</HTML>