Function txpic(num,nsort,fontnum,sql,ishome,focus_width,focus_height)
Dim mysql,url,imgUrl,imgtext,imgLink,i,snum
snum=num
mysql = sql
url=joekoe_cms.web_upload
If ishome Then url="upload/"
Set rs=joekoe_cms.exec(mysql,1)
redim imgurl(snum)
redim imgtext(snum)
redim imgLink(snum)
For i=1 To snum
  If Not rs.eof Then
   imgLink(i) = rs(0)
   imgtext(i) = joekoe_cms.code_html_nd(rs(1),1,fontnum)
   imgUrl(i) = url&rs(2)    
   rs.movenext
  End If
Next
rs.close
set rs=nothing
%>
<a target=_self href="javascript:goUrl()">
<span class="f14b">
<script type="text/javascript">
  var focus_width=<%=focus_width%>
  var focus_height=<%=focus_height%>
  var text_height=23
  var swf_height = focus_height+text_height
  var pics=""
  var links=""
  var texts=""
<%for i=1 to snum %>
  var imgUrl<%=i%>="<%=imgUrl(i)%>";
  var imgtext<%=i%>="<%=imgtext(i)%>";
  var imgLink<%=i%>=escape("<%=joekoe_cms.web_dir&nsort%>"+"/"+"view.asp?id=<%=imgLink(i)%>");
  pics=pics+imgUrl<%=i%>
  links=links+imgLink<%=i%>
  texts=texts+imgtext<%=i%>
  <%if i < snum then %>
   pics=pics+"|";
   links=links+"|";
   texts=texts+"|";
  <%end if%>
<%next%>
  document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
  document.write('<param name="allowscriptAccess" value="sameDomain"><param name="movie" value="<%if ishome=false then response.write joekoe_cms.web_dir%>images/focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
  document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
  document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
  document.write('<embed src="<%if ishome=false then response.write joekoe_cms.web_dir%>images/focus.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowscriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
</script>
</span>
</a>
<%End Function %>