<%
'****************************************************
' Joekoe CMS 1.2 Free      Power by Joekoe.com
' Email: cms@joekoe.com , service@joekoe.com
' Web: http://www.joekoe.com , http://www.topv.com
' Copyright (C) 2004 Joekoe.com All Rights Reserved.
'****************************************************
function code_jk_wawa(strers)
  dim strer
  strer=strers
  if var_null(strer)="" then
    code_jk_em=""
    exit function
  end if
  dim emci
  if instr(strer,"[wawa")>0 then
    for emci=1 to 52
      strer=Replace(strer,"[wawa"&emci&"]","<Span onmouseover='DispAudibles(this,"&emci&")'><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=48 height=48><PARAM NAME=movie VALUE='images/icon/audio/"&emci&".swf'><param name=menu value=false><PARAM NAME=quality VALUE=high><PARAM NAME=play VALUE=false><param name='wmode' value='transparent'><embed src='images/icon/audio/"&emci&".swf' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=48 height=48></embed></OBJECT></Span>&nbsp;")
    next
  end if
  code_jk_wawa=strer
end function
'****************************************************
' Joekoe CMS 1.2 Free      Power by Joekoe.com
' Email: cms@joekoe.com , service@joekoe.com
' Web: http://www.joekoe.com , http://www.topv.com
' Copyright (C) 2004 Joekoe.com All Rights Reserved.
'****************************************************
%>