New Encoder Input
<%dim AgentLoc
dim Encoder
dim MchName
dim PrfCol
on Error Resume Next
set AgentLoc=Session("AgentLocSess")
if Err.number <> 0 then
ErrorNum=1
ErrorDesc=Err.description
Err.Clear
end if
MchName=Session("MchNameSess")
set EncAgent=AgentLoc.GetAgent(MchName)
if Err.number <> 0 then
ErrorNum=1
ErrorDesc=Err.description
Err.Clear
end if
set EncApp=EncAgent.CreateEncoder("EncPrf")
set Session("EncAppG")=EncApp
set Encoder=EncAgent.GetEncoder("EncPrf")
set PrfCol=Encoder.ProfileCollection
if Err.number <> 0 then
ErrorNum=1
ErrorDesc=Err.description
Err.Clear
end if%>