ASP Source Code ASP
File: Increment.asp
|
|
<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>