<%

function code_jk_em(strers)
  dim strer
  strer=strers
  if var_null(strer)="" then
    code_jk_em=""
    exit function
  end if
  dim emci
  if instr(strer,"[emb")>0 then
    for emci=1 to 23
      strer=Replace(strer,"[emb"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/emb/"&emci&".gif border=0>&nbsp;")
    next
  end if
if instr(strer,"[emc")>0 then
    for emci=1 to 25
      strer=Replace(strer,"[emc"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/emc/"&emci&".gif border=0>&nbsp;")
    next
  end if
if instr(strer,"[emd")>0 then
    for emci=1 to 12
      strer=Replace(strer,"[emd"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/emd/"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[emq")>0 then
    for emci=1 to 80
      strer=Replace(strer,"[emq"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/emq/"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[emm")>0 then
    for emci=1 to 67
      strer=Replace(strer,"[emm"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/emm/"&emci&".gif border=0>&nbsp;")
    next
  end if
  if instr(strer,"[em")>0 then
    for emci=1 to 16
      strer=Replace(strer,"[em"&emci&"]","<image src="&joekoe_cms.web_path&"images/icon/em/"&emci&".gif border=0>&nbsp;")
    next
  end if
  code_jk_em=strer
end function
%>