<%

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 13
      strer=Replace(strer,"[emb"&emci&"]","<image src=images/icon/emb"&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=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=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=images/icon/em"&emci&".gif border=0>&nbsp;")
    next
  end if
  code_jk_em=strer
end function

%>