<%
'********************************************************************************
Dim obja2dhy
Set obja2dhy = Server.CreateObject("cjcl.a2dhy")
obja2dhy.I_init
Set obja2dhy = Nothing
Sub OnTransactionAbort()
End Sub
'********************************************************************************
%>