<%@ Language=VBScript CODEPAGE=65001 %> 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%>

Name Sources Display Information Profile Output
 
 Identification name of this encoder:
         
                                                                                                            

<%if ErrorNum<>0 then%> <%end if%>