'Class_Globals
Sub Class_Globals
public oClassActivity as activity
end sub
'Activity Code
oClass.TransmitToServer(Activity)
'Class Code
Sub TransmitToServer(oActivity As Activity) As String
oClassActivity=oActivity
end sub
sub JobDone(Job as HttpJob)
callsubdelayed2(oClassActivity,"TransmitToServer_Finished","")
end sub